Hallo
ich bekomme folgende fehler meldung "die vorgegebenen daten der query müssen zumindesteine tabelle oder query enthalten" error code 3067.
in der regel müsste mich nach Lieferdatum,betreff und text fragen.
ich habe stattdessen 3 variablen festgelegt.
ich weiss nicht warum es nicht funktioniert.
die query soll die Tabelle 'lieferscheine' anlegen, diese setzt sich zusammen aus tabelle 'struc' und füge lieferdatum,betreff und text zu.
bis jetzt hat immer gefragt und so hat es funktioniert. ich möchte aber diese 3 felder festlegen kommen jedoch von keine tabelle.
-----------------------------------------------------------
Dim objDB As DAO.Database
Dim objRS As DAO.Recordset
Dim strSQL As String
strSQL = "INSERT INTO Lieferscheine ( [sales unit], GB, [VKL person], [GB person], [mitarbeiter], name, Lieferdatum, Betreff, Text )" & _
"SELECT struc.[sales unit], struc.GB, struc.[VKL person], struc.[GB person], struc.[mitarbeiter], struc.name, [datum] AS Expr2, [betreff] AS Expr3, [Text] AS Expr1" & _
"FROM struc WHERE (((struc.GB)='25-000'));"
gei_text="hallo"
gei_datum="09/05/2007"
gei_betreff="probe"
Expr1 = gei_text
Expr2 = gei_datum
Expr3 = gei_betreff
Set objDB = CurrentDb
Set objRS = objDB.OpenRecordset(strSQL, , DAO.dbSQLPassThrough)
Call objRS.Close
Set objRS = Nothing
Set objDB = Nothing
-------------------------------------------------------------
danke
logo3
T-Rex
