Einzelnen Beitrag anzeigen
Alt 07.11.2017, 01:54   #1
Jack1984
Neuer Benutzer
Neuer Benutzer
Weinen HILFE VBA mehrere Kriterien funktioniren nicht Funktionieren

Hi Leute,
ich habe ein Problem beim mir funktioniert das Kriterium Tabbuchstabe='I' und Tabbuchstabe='A' nicht kann mir jemand helfen.

Hier der Code:

Private Sub BTN_Schichtbericht_PDF_Click()
Dim Kriterien As String
Kriterien = "Tabbuchstabe='I' or Tabbuchstabe='A' or (Tabbuchstabe='T'"
If Me.Service And Me.Waste And Me.Gebaeude Then
Kriterien = Kriterien & ")"
ElseIf Me.Service And Not Me.Waste And Not Me.Gebaeude Then
Kriterien = Kriterien & " AND Service=True)"
ElseIf Not Me.Service And Me.Waste And Not Me.Gebaeude Then
Kriterien = Kriterien & " AND Waste=True)"
ElseIf Not Me.Service And Not Me.Waste And Me.Gebaeude Then
Kriterien = Kriterien & " AND Gebaeude=True)"
ElseIf Me.Service And Me.Waste And Not Me.Gebaeude Then
Kriterien = Kriterien & " AND (Service=True OR Waste=True))"
ElseIf Me.Service And Not Me.Waste And Me.Gebaeude Then
Kriterien = Kriterien & " AND (Service=True OR Gebaeude=True))"
ElseIf Not Me.Service And Me.Waste And Me.Gebaeude Then
Kriterien = Kriterien & " AND (Waste=True OR Gebaeude=True))"
ElseIf Not Me.Service And Not Me.Waste And Not Me.Gebaeude Then
Kriterien = Kriterien & " AND (Service=True AND Waste=True AND Gebaeude=True))"
End If


DoCmd.OpenReport "B_Informationen_FS_AUS_ProSchicht_DDS", acViewPreview, , Kriterien
Reports!B_Informationen_FS_AUS_ProSchicht_DDS.ZoomControl = 170
DoCmd.OpenForm "F_immer_offen", , , , , acHidden
Forms!F_Immer_offen.Ziel_Report = "B_Informationen_FS_AUS_ProSchicht_DDS"
End Sub

Vielen Dank im Voraus
PS. Ich bin ein frischling in VBA
Jack1984 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten