Hallo,
vllt kann mir jemand helfen bei einem Syntaxfehler
Ich habe ein Kombinationsfeld wo ich einen Vertreter auswählen möchte und ein VBA welches nach dem Eintrag in dem Kombinationsfeld eine where abfrage machen soll.
Evtl liegt der Fehler schon in der SQL abfrage :
"SELECT Distinct [gepa],[Name 1],[Land],[Vertretung] FROM [2022_PS_EN_Ohne_Abfrage] WHERE [Vertretung]= "[Forms]![Export]![Vertreter]" "
hier die vba :
Private Sub Befehl211_Click()
'-----------------------------------------------------------------
' table: "2022_PS_EN_Ohne_Abfrage"
' data in 2022_PS_EN_Ohne_Abfrage: "gepa"
' report: "2022_PS_EN_Ohne_Abfrage"
' target: "C:\Fettzuschlag\" & Land & "_" & gepa & "_" & Name_1 & ".PDF"
'-----------------------------------------------------------------
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strDatei As String, strWhere As String
Set db = CurrentDb
'The code should set the current database active
strSQL = "SELECT Distinct [gepa],[Name 1],[Land],[Vertretung] FROM [2022_PS_EN_Ohne_Abfrage] WHERE [Vertretung]= "[Forms]![Export]![Vertreter]" "
'The data field "gepa" from the table "2022" should be selected
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
'The first entry should be taken
Do Until rs.EOF
strDatei = "C:\Fettzuschlag\" & rs.Fields(2).Value & "_" & rs.Fields(0).Value & "_" & rs.Fields(1).Value & ".pdf"
'The file should be given the name of the data field in the target folder
DoCmd.OpenReport "2022_Preisanschreiben_EN_Ohne_Abfrage", acViewPreview, , "gepa = '" & rs(0) & "'", acHidden
'the report is opened and the invoice number is entered as a selection criterion.
DoCmd.OutputTo acOutputReport, "2022_Preisanschreiben_EN_Ohne_Abfrage", acFormatPDF, strDatei, False
'The PDF is generated and stored in the folder with the invoice number.
DoCmd.Close acReport, "2022_Preisanschreiben_EN_Ohne_Abfrage"
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
Hallo,
versuche es mal so:
"SELECT Distinct [gepa],[Name 1],[Land],[Vertretung] FROM [2022_PS_EN_Ohne_Abfrage] WHERE [Vertretung]='" & Me.[Vertreter] &"'"Me ist der Verweis auf das Formular mit dem Kombi. Kriterien müssen verkettet (&) werden und Texte in Hochkomma eingeschlossen.
DANKE KLAUS - das war es schon :o
GEILSTER TYP AUF ERDEN
Zum Verständnis/zur Vertiefung kannst du auch dies (https://docs.microsoft.com/de-de/office/vba/language/reference/user-interface-help/ampersand-operator) mal lesen.