Error 3134 INSERT INTO Problem...

[Elysynn]

Greetings,

I'm feeling particularly dense this morning - was hoping an extra set of eyes could tell me what I'm overlooking here...

I have the following bit of code to insert user information into a logging table. I'm getting the Error 3134 message when I open the form. The only field in the table not being referenced is ID - which is an autonumber field.

Private Sub Form_Open(Cancel As Integer)

Dim strLogStatus As String
Dim datLogDate As Date

gblUser = Environ("UserName")
strLogStatus = "In"
datLogDate = Now()

DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tblUserLog(User, LogStatus, LogTime)" & _
             " VALUES '" & gblUser & "', '" & strLogStatus & "', #" & datLogDate & "#;"
              
DoCmd.SetWarnings True

End Sub

Thanks for taking a peek... I'm so glad it's Friday

TIA,
Elysynn

 

[CautionMP]

Elysynn,
Wrap the VALUES statement in parenthesis?

DoCmd.RunSQL "INSERT INTO tblUserLog(User, LogStatus, LogTime)" & _
             " VALUES [b]([/b]'" & gblUser & "', '" & strLogStatus & "', #" & datLogDate & "#[b])[/b];"

Hope this helps,
CMP

(GMT-07:00) Mountain Time (US & Canada)

 

[Elysynn]

Now how easy was that? Thank you so much, CMP!

-Elysynn