hello,
Ich versuche mit eine query eine tabelle namens Lieferascheine zu füllen. Die Daten um die tabelle "lieferscheine" zu füllen bezieht sich aus eine query und diese nutzt die tabelle "structureOK". Zusätzlich werden 3 felder hinzugefügt.
die 3 felder sind:
[date] AS Expr2
[Subject] AS Expr3
[Text] AS Expr1
Diese query habe in in access2003 gemacht und es funktioniert auch. Jedesmal wenn ich sie starte werde ich nach diesen 3 felder gefragt. Gebe ich daten ein und es funktioniert ohne probleme.
Jetzt habe ich einen formular gemacht mit 3 textboxes, einen für das Datum, betreff und für den text.
Statt zu fragen sollen die daten von den textboxes genommen werden
Deshalb definiere ich 3 variablen als string
str_text;
str_subject;
str_date
Wenn ich veuche die variblen in die sql instruction einzubinden bekomme ich fehlermeldung.
Kann mir jemand sagen wie ich die sql ändern muss damit es funktioniert
danke
regards
logo3
PS: ich habe den Eindruck das hatte ic schon mal gefragt aber ich finde den post nicht.
-------------------------------------------------------------
Dim objDB As DAO.Database
Dim objRS As DAO.Recordset
Dim strSQL As String
Dim str_text As String
Dim str_subject As String
Dim str_date As String
str_text = gei_texto.Value
str_subject = gei_asunto.Value
str_date = gei_fecha.Value
strSQL = "INSERT INTO ALBARANES ( [sales unit], unit, [jvperson], [jzperson], name, street, zipcode, city, city2, country, employee, phone, deliverydate, subject, Text ) SELECT structureOK.[sales unit], structureOK.unit, structureOK.[jvperson], structureOK.[jzperson], structureOK.name, structureOK.street, structureOK.[zipcode], structureOK.city, structureOK.[city2], structureOK.country, structureOK.customer, structureOK.[phone 1], [date] AS Expr2, [subject] AS Expr3, [Text] AS Expr1 FROM structureOK WHERE (((structureOK.unit)='18-000'));"
Set objDB = CurrentDb
Set objRS = objDB.OpenRecordset(strSQL, , DAO.dbSQLPassThrough)
Call objRS.Close
Set objRS = Nothing
Set objDB = Nothing
---------------------------------------
danke schön
logo3
