Insert SQl command

Status
Niet open voor verdere reacties.

bertje123

Gebruiker
Lid geworden
13 nov 2007
Berichten
57
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
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!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan