Variable in Anfügeabfrage / INSERT INTO einbauen / übergeben

[Frank77]

Hallo, und ein gutes neues jahr an alle!

Ich möchte mit der unteren Prozedur  Daten aus einer Tabelle mit SELECT DISTINCT Anweisung Selektieren
Damit erhalte ich einen Datensatz mit 2 Feldern und einerzeile
In das 3. Feld möchte ich dann die Variable V einfügen  und die Daten an die entsprechenden Felder der TblBestellung übergeben
Soweit funktioniert alles nur die Übergabe der variable bleibt leer und ich werde zur Eingabe eines Parameters für V gefragt

Wenn ich die variable in ein Textfeld schreiben lasse und es mit diesem SQL ausführe

Code [Auswählen] Erweitern

INSERT INTO TblBestellung ( BestellZBIDRef, BestellLieferAdresse, BestellDateiPfad )
SELECT DISTINCT TblWarenkorb.WkorbZBIDRef, TblWarenkorb.WkorbLiefAdresse, [Forms]![FrmBestellungSenden]![TxtDateipfad] AS Pfad
FROM TblWarenkorb;

Bekomme ich zwar keine Fehlermeldung aber das entsprechende Feld bleibt leer

Code [Auswählen] Erweitern

Private Sub Bestellung_Anlegen()  'Bestellung in tblBestellung anlegen

    Dim strSQL As String, pfad As String, file As String, ext As String, V As String

    fileSplit TxtDateipfad.Value, pfad, file, ext


    V = "C:\Program Files\verwaltung\Bestellungen\" & file & "." & ext & ""
    Debug.Print V

    strSQL = "INSERT INTO TblBestellung ( BestellZBIDRef, BestellLieferAdresse, BestellDateiPfad )" & _
             "SELECT DISTINCT TblWarenkorb.WkorbZBIDRef, TblWarenkorb.WkorbLiefAdresse, V AS Pfad FROM TblWarenkorb;"

    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
End Sub

Gruß Frank

[ebs17]

Code [Auswählen] Erweitern

    strSQL = "INSERT INTO TblBestellung ( BestellZBIDRef, BestellLieferAdresse, BestellDateiPfad )" & _
             " SELECT DISTINCT TblWarenkorb.WkorbZBIDRef, TblWarenkorb.WkorbLiefAdresse, '" & V & "' FROM TblWarenkorb;"

    CurrentDb.Execute strSQL, dbFailOnError

MfGA
ebs