Help with INSERT INTO

[tcox]

I'm having trouble forming the syntax for an INSERT INTO statement.

It pulls values from a form (Edit Order) and uses them to add a new item to a parts order.

   Private Sub AR_EditOrder_Click()


 INSERT INTO T_Order_Details (Order_ID, [Thorne_ID], [Machine_ID], [Part_Set], [Initials]) 
    VALUES ([Form]![CBO_OrderNumSel], [Form]![CBO_AR_ThorneID], [CBO_AR_MachineID], [Form]![CBO_AR_PartSet], [Form]![TXT_AR_Initials])
End Sub

I'm a C++ guy and don't yet get how VBA wants its stuff wrapped.

Thanks!
-Tevis

[pbaldy]

Simplest for you is probably

Dim strSQL As String

strSQL = "INSERT INTO..."

DoCmd.RunSQL strSQL

Using RunSQL should allow you to leave the form references inside the string, though they need to be fixed:

Forms Refer to Form and Subform properties and controls

[June7]

Need form name in the parameter references. Try:

CurrentDb.Execute "INSERT INTO T_Order_Details (Order_ID, [Thorne_ID], [Machine_ID], [Part_Set], [Initials]) VALUES ([Forms]![form name here]![CBO_OrderNumSel], [Forms]![form name here]![CBO_AR_ThorneID], [Forms]![form name here]![CBO_AR_MachineID], [Forms]![form name here]![CBO_AR_PartSet], [Forms]![form name here]![TXT_AR_Initials])"

or if it doesn't like that, concatenate with Me alias. Which fields are text and which are number type? - maybe:

CurrentDb.Execute "INSERT INTO T_Order_Details (Order_ID, [Thorne_ID], [Machine_ID], [Part_Set], [Initials]) VALUES (" & Me.CBO_OrderNumSel & ", " & Me.CBO_AR_ThorneID & ", " & Me.CBO_AR_MachineID & ", '" & Me.CBO_AR_PartSet & "', '" & Me.TXT_AR_Initials & "')"

[tcox]

ORDER_ID | Number
Thorne_ID | Number
Machine_ID | Short Text
Part_Set | Short Text
Initials | Short Text

[June7]

Okay, if you use the concatenation method, include apostrophe delimiters for parameters of text fields as shown in the example. I did not put them in the Machine_ID.

[tcox]

Wow! Thank you!

I'll save this as an example for further work.

-Tevis

[June7]

Date/time fields use # delimiter.