Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Hallo

ich bekomme eine fehlermedung wegen die struktur des datums.

kann mir jemand dies bitte lösen ?


Dim objDB As DAO.Database
Dim objRS As DAO.Recordset
Dim strSQL As String

strSQL = "INSERT INTO ALBARANES (" & _
"[sales unit], unit, [jvperson], [jzperson], name, " & _
"street, zipcode, city, city2, country, employee, " & _
"phone, deliverydate, subject, Text) " & _
"SELECT [sales unit], unit, [jvperson], [jzperson], " & _
"[name], [street], [zipcode], [city], [city2], " & _
"country, customer, [phone 1], " & _
Format(form_generar2.gei_fecha, '\#dd/m/yyyy\#') & ", " & _
"'" & Form_generar2.gei_asunto & "', " & _
"'" & Form_generar2.gei_texto & "' " & _
"FROM structureOK " & _
"WHERE ([unit]='18-000')"
Set objDB = CurrentDb
Set objRS = objDB.OpenRecordset(strSQL, , DAO.dbSQLPassThrough)
Call objRS.Close
Set objRS = Nothing
Set objDB = Nothing
----------------------------------------------

danke

logo3