Code Error

[George]

I am trying to copy one table into another. I was given
this code and I inserted my field names. Its does work.
When I run it it stops at DoCmd.RunSQL. Can anyone see the
problem. Thanks - George

Private Sub Form_AfterUpdate()
Dim strSQL As String
strSQL = "INSERT INTO T-Issued-Tools-History([Date],[Man
Number],[Tool-ID],[Description],[Insp-Due-Date],
[Quantity])"
strSQL = strSQL & "VALUES Me.Date,Me.Man Number,Me.Tool-
ID,Me.Description,Me.Insp-Due-Date,Me.Quantity)"
DoCmd.SetWarnings False
DoCmd.RunSQL
DoCmd.SetWarnings True
End Sub

 

[Dorian Chalom]

George\

Try DoCmd.RunSQL strSQL

Dorian Chalom