INSERT prompts parameter

[chaufschild]

I am running the following code on an Office XP database in Office 2000 file format:

Private Sub AccountManager_AfterUpdate()
Dim strDLR As String
Dim strSQL As String
Dim strAcct As String
Dim strDate As String

strDate = Format(Date, mm - DD - yyyy)
strAcct = Me.AccountManager.Value
strDLR = Me.DLR_NUM.Value
strSQL = "INSERT INTO DealerRepLog (ChangeDate, Dealer, NewAcctRep) VALUES (" & strDate & ", " & strDLR & ", " & strAcct & &quot"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

When I run the event, I get a enter parameter box. The message in the parameter box is the correct value of strDLR. The value entered into this box is then inserted into the Dealer field of the table. I am confused as to why it is behaving this way. Thanks in advance.

Chris Haufschild
chaufschild@hotmail.com

 

[Rolliee]

Chris,

I would try:

VALUES (#" & strDate & "#, " & strDLR & ", " & strAcct & &quot"

to bracket the date. I also like the direct methid for adding values. At times like this you can then use debug.print and msgbox to see what is going on. INSERTS are, in my opinion, trickier than they should be. Do you need code for the direct insert?


Rollie E

 

[chaufschild]

I guess I am not sure of what you mean by direct inserts. If you would post that code that would be great.

Chris

 

[Rolliee]

dim rs as doa.recordset
set rs = currentdb.openrecordset("MyTable&quot
rs.addnew
rs.fields(1) = StrValu1
rs.fields(2) = StrValu2
rs.fields(3) = StrValu3
rs.update
rs.close
set rs = nothing
me.requery

Rollie E