Insert Query - MS Access/VBA (1 Viewer)

[AunN]

Dear Programmers!!

Here is code to insert record into table. But i neither get any error message nor record is inserted into table. Please help me out. I'm very new to Access Database Development so need your kind guidance.

Private Sub Form_Click()
Dim dbs As Database
' Modify this line to include the path to Northwind
' on your computer.
Set dbs = OpenDatabase("C:\database\Ali Video Store.mdb")

' Create a new record in the Employees table. The
' first name is Harry, the last name is Washington,
' and the job title is Trainee.
dbs.Execute " INSERT INTO TransMaster "(tm_Customer,tm_DateOut,tm_Employee,tm_MovieID ) VALUES ('9', #02/02/2009#, '2', '2');"

dbs.Close

End Sub

tm_Customer, tm_Employee,tm_MovieID are integer variables. TransMaster has primary key tm_Number which is autonumber field.

Please solve my problem!!

 

[Alansidman]

I don't think that you need to have the single quote marks around integer values.

Try this:

dbs.Execute " INSERT INTO TransMaster "(tm_Customer,tm_DateOut,tm_Employee,tm_MovieI D ) VALUES (9, #02/02/2009#, 2, 2);"

Alan

 

[AunN]

Alan!!

I have tried this command as you stated but no way out..neither the record enters the table nor i get any kind of message by dbms.

Please re-look my problem!!

 

[Alansidman]

Not sure what the issue is. I am guessing it is an issue with the VBA and not the SQL statement. Look at this link on the Insert Command

http://www.w3schools.com/sql/sql_insert.asp

Alan