Sql

[IanT]

Hi
I am trying to append data from a form to a table. I have completed the vba below with out success. Can anyone help!

Dim intBatchNumber As Integer
Dim strType As String
Dim dbs As Database

Set dbs = OpenDatabase("PrintActivity.mdb")

intBatchNumber = Forms![New_frmPrintActivityAmend]![PrintBatchNumber]
strType = Forms![New_frmPrintActivityAmend]![Type]

dbs.Execute "INSERT INTO tblDeletedBatches (PrintBatchNumber, Type) VALUES ('intBatchNumber', 'strType');"

dbs.Close

End Sub

Thanks in advance..........

 

[ghudson]

Try this instead...

DoCmd.RunSQL ("INSERT INTO tblDeletedBatches (PrintBatchNumber, Type) VALUES ('" & intBatchNumber & "', '" & strType & "');")

You have to keep your strings out of the quotes.