Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Codefehler strWhereCategory
Gehe zu Seite 1, 2  Weiter
zurück: "Alten" Gruppenkopf zusammen mit Seitenkopf ausgeb weiter: Anzahl der Datensätze zählen, mit Kriterium Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
k.edgar
Excel-Kenner (ohne VBA)


Verfasst am:
25. Feb 2007, 21:17
Rufname:

Codefehler strWhereCategory - Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Hallo Access - Experte,

ich habe diesen Code.
Code:
Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Vorschau_Click
    ' Diese Prozedur wird in den Unterprozeduren "Vorschau_Click" und
    ' "Drucken_Click" verwendet. Den in der Optionsgruppe "ZuDruckenderBericht"
    ' gewählten Bericht drucken oder in der Vorschau anzeigen. Dann das
    ' Formular "Berichte-Dialog" schließen.
    Dim strWhereCategory As String
   
    strWhereCategory = _
                  "Abteilung = Forms![MABerichte-Dialog]![KategorieAuswählen]"
    Select Case Me!ZuDruckenderBericht
      Case 1
        DoCmd.OpenReport "Geburtstagliste", PrintMode
      Case 2
        DoCmd.OpenReport "Stammdatenblatt", PrintMode
      Case 3
        If IsNull(Forms![MABerichte-Dialog]![KategorieAuswählen]) Then
            DoCmd.OpenReport "rpt_Mitarbeiter nach Kategorien", PrintMode
          Else
            DoCmd.OpenReport "rpt_Mitarbeiter nach Kategorien", PrintMode, , _
                             strWhereCategory
        End If
    End Select
    DoCmd.Close acForm, "MABerichte-Dialog"
Exit_Vorschau_Click:
    Exit Sub
Err_Vorschau_Click:
    Resume Exit_Vorschau_Click
End Sub
Ich habe habe folgende Ergänzung gamacht.
Code:
    strWhereCategory = _
                  "Abteilung = Forms![MABerichte-Dialog]![KategorieAuswählen]"
    strWhereCategory = _
                "Arbeitgeber = Forms![MABerichte-Dialog]![KategorieAuswählen]"
Es wird weiter ein Bericht nach Abteilung gedruckt und Bericht nach Arbeigeber ist leer.

Wo liegt der Fehler?

Ich wäre für Tipps euch sehr dankbar.

Edgar
jens05
Moderator


Verfasst am:
25. Feb 2007, 21:23
Rufname:
Wohnort: ~~~~~


AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Hallo
steht denn in [KategorieAuswählen] der passende Wert um für Arbeitgeber was zu filtern?
Code:
Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Vorschau_Click
    ' Diese Prozedur wird in den Unterprozeduren "Vorschau_Click" und
    ' "Drucken_Click" verwendet. Den in der Optionsgruppe "ZuDruckenderBericht"
    ' gewählten Bericht drucken oder in der Vorschau anzeigen. Dann das
    ' Formular "Berichte-Dialog" schließen.
    Dim strWhereCategory As String
    Dim strWhereCategory2 As String
   
    strWhereCategory = _
                  "Abteilung = Forms![MABerichte-Dialog]![KategorieAuswählen]"
    strWhereCategory2 = _
                "Arbeitgeber = Forms![MABerichte-Dialog]![KategorieAuswählen]"
    Select Case Me!ZuDruckenderBericht
      Case 1
        DoCmd.OpenReport "Geburtstagliste", PrintMode
      Case 2
        DoCmd.OpenReport "Stammdatenblatt", PrintMode
      Case 3
        If IsNull(Forms![MABerichte-Dialog]![KategorieAuswählen]) Then
            DoCmd.OpenReport "rpt_Mitarbeiter nach Kategorien", PrintMode
          Else
            DoCmd.OpenReport "rpt_Mitarbeiter nach Kategorien", PrintMode, , _
                              strWhereCategory
            DoCmd.OpenReport "rpt_Mitarbeiter nach Kategorien", PrintMode, , _
                              strWhereCategory2
        End If
    End Select
    DoCmd.Close acForm, "MABerichte-Dialog"
Exit_Vorschau_Click:
    Exit Sub
Err_Vorschau_Click:
    Resume Exit_Vorschau_Click
End Sub

_________________
mfg jens05 Wink
k.edgar
Excel-Kenner (ohne VBA)


Verfasst am:
19. Apr 2007, 22:02
Rufname:

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Hallo Jens05,

wo muss ich genau den passenden Wert in [KategorieAuswählen] eingeben, um für Arbeitgeber was zu filtern?

Danke im Voraus.

Edgar
MissPh!
Office-VBA-Programmiererin


Verfasst am:
19. Apr 2007, 22:48
Rufname:
Wohnort: NRW

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Ich gehe mal davon aus, der Fehler liegt hier:
Code:
    strWhereCategory = _
                  "Abteilung = Forms![MABerichte-Dialog]![KategorieAuswählen]"
Da musst du den konkreten Wert übergeben, und zwar so für Texte
Code:
    strWhereCategory = _
        "Abteilung = '" & Forms![MABerichte-Dialog]![KategorieAuswählen] & "'"
und so für Zahlen
Code:
    strWhereCategory = _
               "Abteilung = " & Forms![MABerichte-Dialog]![KategorieAuswählen]
k.edgar
Excel-Kenner (ohne VBA)


Verfasst am:
20. Apr 2007, 19:21
Rufname:


AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

es geht leider nicht.

Hier ist mein kompletter Code für mein Formular, vielleicht liegt der Fehler woanders. Datenherkunft des Kombinationsfeldes "AbteilungAuswählen" ist eine Abfrage.
Code:
Option Compare Database
Option Explicit

Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Vorschau_Click
' Diese Prozedur wird in den Unterprozeduren "Vorschau_Click" und
' "Drucken_Click" verwendet. Den in der Optionsgruppe "ZuDruckenderBericht"
' gewählten Bericht drucken oder in der Vorschau anzeigen. Dann das
' Formular "Berichte-Dialog" schließen.
    Dim strWhereCategory As String

    strWhereCategory = "Abteilung = " & _
                       "Forms![MABerichte-Dialog]![AbteilungAuswählen]"
    Select Case Me!ZuDruckenderBericht
      Case 1
        If IsNull(Forms![MABerichte-Dialog]![AbteilungAuswählen]) Then
            DoCmd.OpenReport "rpt_ExterneMitarbeiter", PrintMode
        Else
            DoCmd.OpenReport "rpt_ExterneMitarbeiter", PrintMode, , _
                              strWhereCategory
        End If
      Case 2
        If IsNull(Forms![MABerichte-Dialog]![AbteilungAuswählen]) Then
            DoCmd.OpenReport "rpt_Geburtsliste", PrintMode
          Else
            DoCmd.OpenReport "rpt_Geburtsliste", PrintMode, , _
                              strWhereCategory
        End If
      Case 3
        If IsNull(Forms![MABerichte-Dialog]![AbteilungAuswählen]) Then
            DoCmd.OpenReport "rpt_Mitarbeiter nach Arbeitsbereich", PrintMode
          Else
            DoCmd.OpenReport "rpt_Mitarbeiter nach Arbeitsbereich", _
                             PrintMode, , strWhereCategory
        End If
    End Select
    DoCmd.OpenForm acForm, "MABerichte-Dialog"
Exit_Vorschau_Click:
    Exit Sub
Err_Vorschau_Click:
    Resume Exit_Vorschau_Click
End Sub

Private Sub Abbrechen_Click()
' Dieser Code wurde vom Befehlsschaltflächen-Assistenten erstellt.
On Error GoTo Err_Abbrechen_Click
   ' Formular schließen.
    DoCmd.Close
Exit_Abbrechen_Click:
    Exit Sub
Err_Abbrechen_Click:
    MsgBox Err.Description
    Resume Exit_Abbrechen_Click
End Sub


Private Sub Vorschau_Click()
' Den gewählten Bericht in der Vorschau anzeigen. Diese Prozedur verwendet
' die im Bereich (Allgemein) des Moduls definierte Unterprozedur
' "PrintReports".
    PrintReports acPreview
End Sub

Private Sub Drucken_Click()
' Den gewählten Bericht drucken. Diese Prozedur verwendet die im
' Bereich (Allgemein) des Moduls definierte Unterprozedur "PrintReports".
    PrintReports acNormal
End Sub

Private Sub ZuDruckenderBericht_AfterUpdate()
' Das Kombinationsfeld "AbteilungAuswählen" aktivieren, wenn der
' Benutzer den Bericht "Berichte nach Arbeitsbereich" und
' Benutzer den Bericht "Geburtstagliste" ausgewählt hat.
    Const conSalesByCategory = 1

    If Me!ZuDruckenderBericht.Value = conSalesByCategory Then
        Me!AbteilungAuswählen.Enabled = True
      Else
        Me!AbteilungAuswählen.Enabled = True
    End If
End Sub
MissPh!
Office-VBA-Programmiererin


Verfasst am:
20. Apr 2007, 20:34
Rufname:
Wohnort: NRW

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Und was hat der gezeigte Code jetzt noch mit dem eingangs genannten Problem zu tun?
Zitat:
Es wird weiter ein Bericht nach Abteilung gedruckt und Bericht nach Arbeigeber ist leer.
k.edgar
Excel-Kenner (ohne VBA)


Verfasst am:
20. Apr 2007, 21:54
Rufname:

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Dieser Code ist für mein Formular, womit ich meine Berichte sortiert nach Abteilung und Arbeitgeber ausdrucken möchte.

Berichte nach Arteilung bekomme ich schon mit diesem Code ausgedruckt.

Berichte nach Arbeiger bekomme ich leer angezeigt.

Edgar
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
20. Apr 2007, 22:53
Rufname:

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Hallo,

hast du dir mal den Code von Jens angeschaut?

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Apr 2007, 01:19
Rufname:
Wohnort: NRW

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Du zeigst entweder nicht den vollständigen Code oder du verstehst die Hinweise nicht.

Außerdem gehst du nicht auf die NachFragen ein. - Wie sollen wir da helfen?

Vielleicht solltest du einfach mal eine Test-DB hochladen, um dein Problem darzustellen...
k.edgar
Excel-Kenner (ohne VBA)


Verfasst am:
21. Apr 2007, 19:35
Rufname:

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Wie kann meine Test-DB hochladen?

Danke für eure Hilfe.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Apr 2007, 19:51
Rufname:
Wohnort: NRW

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Schau doch mal den Beitrag von Thomas an, der sagt es dir. Klicke auf seine "Homepage".
jens05
Moderator


Verfasst am:
23. Apr 2007, 20:03
Rufname:
Wohnort: ~~~~~

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Hallo,
@ MissPh!
Zitat:
Ich gehe mal davon aus, der Fehler liegt hier:
Code:
     strWhereCategory = _
                  "Abteilung = Forms![MABerichte-Dialog]![KategorieAuswählen]"
Welchen Fehler erwartest du hierbei? Ob du den Kriterienwert unmittelbar mitgibst, oder es dem Bereicht überlässt sich den Wert zu holen dürfte eigentlich nichts ausmachen ;)
@k.edgar,
ist bei der gebundenen Spalte des Feldes "AbteilungAuswählen" der Wert eingestellt, der im Bericht für die Spalte Abteilung benötigt wird?
Falls ja, folge dem Rat von MissPh! und stelle eine Beispiel-DB online. ;)

_________________
mfg jens05 Wink
MissPh!
Office-VBA-Programmiererin


Verfasst am:
24. Apr 2007, 15:38
Rufname:
Wohnort: NRW

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

@jens05: da bin ich in der Zwischenzeit auch schon drauf gekommen. ;)
k.edgar
Excel-Kenner (ohne VBA)


Verfasst am:
25. Apr 2007, 20:52
Rufname:

AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Hallo Zusammen,

hier ist meine Datenbank.

Ich bedanke mich für eure Hilfe im Voraus.

k.edgar
jens05
Moderator


Verfasst am:
25. Apr 2007, 21:28
Rufname:
Wohnort: ~~~~~


AW: Codefehler strWhereCategory - AW: Codefehler strWhereCategory

Nach oben
       Version: Office XP (2002)

Hallo,
blicken tue ich es nicht ganz, aber versuche es mal so
Code:
Sub PrintReports(PrintMode As Integer)
On Error GoTo Err_Vorschau_Click
' Diese Prozedur wird in den Unterprozeduren "Vorschau_Click" und
' "Drucken_Click" verwendet. Den in der Optionsgruppe "ZuDruckenderBericht"
' gewählten Bericht drucken oder in der Vorschau anzeigen. Dann das
' Formular "Berichte-Dialog" schließen.
    Dim strWhereCategory As String
    Dim strWhereCategory2 As String
   
    strWhereCategory = _
        "Abteilung = Forms![MABerichte-Dialog]![AbteilungAuswählen] OR " & _
        "Arbeitgeber = Forms![MABerichte-Dialog]![AbteilungAuswählen]"
    Select Case Me!ZuDruckenderBericht
      Case 3
        If IsNull(Forms![MABerichte-Dialog]![AbteilungAuswählen]) Then
            DoCmd.OpenReport "rpt_Mitarbeiter nach Arbeitsbereich", PrintMode
          Else
            DoCmd.OpenReport "rpt_Mitarbeiter nach Arbeitsbereich", _
                             PrintMode, , strWhereCategory
        End If
    End Select
    DoCmd.OpenForm acForm, "MABerichte-Dialog"
Exit_Vorschau_Click:
    Exit Sub
Err_Vorschau_Click:
    Resume Exit_Vorschau_Click
End Sub

_________________
mfg jens05 Wink
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Kurze Frage nach Codefehler 1 sIsYpHuX 139 30. Apr 2012, 22:45
Gast Kurze Frage nach Codefehler
Keine neuen Beiträge Access Programmierung / VBA: Nicht genug Stapelspeicher - Codefehler 5 K_H_K 503 01. Jul 2011, 09:12
Bitsqueezer Nicht genug Stapelspeicher - Codefehler
Keine neuen Beiträge Access Programmierung / VBA: Codefehler: 3346 7 Mini25 276 16. Apr 2009, 09:29
Willi Wipp Codefehler: 3346
Keine neuen Beiträge Access Programmierung / VBA: Hilfe bei Codefehler bei Suchformular 11 Mini25 493 12. Mai 2008, 13:40
Marmeladenglas Hilfe bei Codefehler bei Suchformular
Keine neuen Beiträge Access Programmierung / VBA: Codefehler??? Abfrage 2 morthen 609 12. Okt 2005, 18:27
tania63 Codefehler??? Abfrage
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe