Question about DoCmd.RUNSQL using an insert statem

Nasem · May 2nd, 2006, 12:04 PM

Today is my first daying using access & VB6.0, and Im working with some visual basic 6.0 code.

Im trying to do a simple Insert for one of the tables that I have created, here is the code Im using:

Private Sub Command51_Click()
On Error GoTo Err_Command51_Click

DoCmd.RunSQL "Insert into test(nameF, nameL) values(me.firstname,me.lastname)"
    DoCmd.GoToRecord , , acNewRec

Exit_Command51_Click:
    Exit Sub

Err_Command51_Click:
    MsgBox Err.Description
    Resume Exit_Command51_Click

End Sub

For some reason, when I click on the button thats supposed to activate this piece of code, It displays an message box asking me to input the "me.firstname" and another box for the "me.lastname"..... Those 2 fields (first and last name) are enterable fields that I have created in one of my forms. Can someone help me out plz

thanks

BrianWren · May 5th, 2006, 10:15 AM

You are sending the literal characters "m" "e" "." "f" "i" "r" (etc.) to the SQL parser.
You need to "unpack" the data:

Code:

Private Sub Command51_Click()

    On Error GoTo Er    ' Labels have procedure scope.  No need to use
                        ' so many letters.  (Personal preference...)
    DoCmd.RunSQL "Insert into test( nameF, nameL ) " & _
                 "values ( '" & me.firstname & "', '" & me.lastname & "')"

    DoCmd.GoToRecord , , acNewRec

Xt_Cmd51_Clk:
    Exit Sub

Er:
    MsgBox Err.Description
    Resume Xt_Cmd51_Clk

End Sub