Hoi,
Ik ben momenteel bezig met een INSERT Functie in VBA.
Ik heb net een tabel gecreëerd in access maar nu wil ik daar variable data instoppen.
Heb volgende code
Heb bij de laatste 3 querys even de fout erbij getypt. Iemand een idee?
Bedankt!
Ik ben momenteel bezig met een INSERT Functie in VBA.
Ik heb net een tabel gecreëerd in access maar nu wil ik daar variable data instoppen.
Heb volgende code
Code:
Select Case FCnt
Case 3
TTNr$ = Veld$
Case 44
Pnr$ = Veld$
Case 45
Rev$ = Veld$
Case 43
Lvl$ = Veld$
Case 47
Qtity$ = Veld$
Case 49
Ref$ = Veld$
Case 50
Desc$ = Veld$
Case 63
ECO$ = Veld$
Case 62
Dat$ = Veld$
Case 62
EGP$ = Veld$
End Select
x1 = x2 + 1
Loop
------------------------------------------ ERROR IN SQL STATEMENT---------------------------------------
'CurrentDb.Execute ("INSERT INTO compactreport_Output( [Technical Type], [Part Number], Revision, Level, Quantity, Reference, Description, ECO, Handling_Date, Engin_Group_Part) VALUES ((" & TTNr$ & "),(" & PNr$ & "),(" & Rev$ & "),(" & Lvl$ & "),(" & Qtity$ & "),(" & Ref$ & "),(" & Desc$ & "),(" & ECO$ & "),(" & Dat$ & "),(" & EGP$ & "))")
--------------------------------------Syntax Error in INSERT INTO STATEMENT----------------------
' CurrentDb.Execute ("INSERT INTO compactreport_Output( [Technical Type], [Part Number], Revision, Level, Quantity, Reference, Description, ECO, Handling_Date, Engin_Group_Part) VALUES (" & TTNr$ & ",""" & Pnr$ & """,""" & Rev$ & """,""" & Lvl$ & """,""" & Qtity$ & """,""" & Ref$ & """,""" & Desc$ & """,""" & ECO$ & """,""" & Dat$ & """,""" & EGP$ & """)")
--------------------------------Geen Error, maar data komt niet in tabel ---------------------------
CurrentDb.Execute ("INSERT INTO compactreport_Output( [Technical Type], [Revision]) VALUES (" & TTNr & "," & Rev & ")")
Heb bij de laatste 3 querys even de fout erbij getypt. Iemand een idee?

Bedankt!