Hallo Leute,
habe ein Problem und im nach langer Suche im Netz leider nichts gefunden. Ich möchte mittels VBA einen Bericht öffnen/drucken, bei dem sich erst ein Formular öffnet, in dem ich den WHERE Ausdruck für die Auswahl der Daten auswähle. Hier mein Code:
Die Variable FilterKriterien steht in einem Kombinationsfeld vom Formular F_AuswahlZug. Hier die Daten welche im Kombinationsfeld sind:
">=100 und <200"
"5 oder >=200 und < 300"
Leider bekomme ich das nicht hin, dass der Bericht entsprechend geöffnet wird.
Vielleicht kann mit jemand beim Code helfen. Bin in VBA Programmierung noch ein Anfänger.
Besten Dank.
habe ein Problem und im nach langer Suche im Netz leider nichts gefunden. Ich möchte mittels VBA einen Bericht öffnen/drucken, bei dem sich erst ein Formular öffnet, in dem ich den WHERE Ausdruck für die Auswahl der Daten auswähle. Hier mein Code:
VB.NET-Quellcode
- Private Sub
- Befehl0_Click()
- Dim strSQL As String
- Dim FilterKriterien As String
- DoCmd.OpenForm "F_AuswahlZug", acNormal, WindowMode:=acDialog
- FilterKriterien = [Forms]![F_AuswahlZug]![Kombinationsfeld_FilterZuege]
- strSQL = "SELECT [standesbuchnummer] " & _
- "FROM A_Mitgliederliste " & _
- "WHERE standesbuchnummer " & FilterKriterien
- DoCmd.OpenReport "B_Mitgliederliste", View:=acViewPreview, WhereCondition:=strSQL
- End Sub
Die Variable FilterKriterien steht in einem Kombinationsfeld vom Formular F_AuswahlZug. Hier die Daten welche im Kombinationsfeld sind:
">=100 und <200"
"5 oder >=200 und < 300"
Leider bekomme ich das nicht hin, dass der Bericht entsprechend geöffnet wird.
Vielleicht kann mit jemand beim Code helfen. Bin in VBA Programmierung noch ein Anfänger.
Besten Dank.
