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
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
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
strSQL = "INSERT INTO TblBestellung ( BestellZBIDRef, BestellLieferAdresse, BestellDateiPfad )" & _
" SELECT DISTINCT TblWarenkorb.WkorbZBIDRef, TblWarenkorb.WkorbLiefAdresse, '" & V & "' FROM TblWarenkorb;"
CurrentDb.Execute strSQL, dbFailOnError
MfGA
ebs