Syntaxfehler in Datum ...

[farsey]

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 :

Code [Auswählen] Erweitern

"SELECT Distinct [gepa],[Name 1],[Land],[Vertretung] FROM [2022_PS_EN_Ohne_Abfrage] WHERE [Vertretung]= "[Forms]![Export]![Vertreter]" "
hier die vba :

Code [Auswählen] Erweitern

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

[MzKlMu]

Hallo,
versuche es mal so:

Code [Auswählen] Erweitern

"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.

[farsey]

DANKE KLAUS - das war es schon 

GEILSTER TYP AUF ERDEN

[Beaker s.a.]

Zum Verständnis/zur Vertiefung kannst du auch dies mal lesen.