Insert statement

[Sarah28]

When I save my purchase order(based on purchase order table) I would like to add a new record to my shipping table. The following code gives me an "Invalid use of Null" error. The following is my code...Can anyone help me?

Dim db As Database
Dim qdf As QueryDef
Dim rst As Recordset
Dim str As String
Dim txtID As String

txtID = Me!txtID

Set db = CurrentDb

str = "INSERT INTO dbo_Shipping " _
& "(MachineID, Complete) " _
& "VALUES(" & Me.txtID & ",1)"

Set qdf = db.CreateQueryDef("", str)

qdf.Execute

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

 

[sjn]

Be sure the value in Me!txtID contains a value if the MachineID is a key to the shipping table, and/or especially if the MachineID has in the shipping table the property set to No for Allow Zero Length.

Hope this helps.

Scott.