Help with UPDATE

[tcox]

to start I apologize that I'm running back here for every little problem I'm having. I have truly searched google to try to find the answers before I post. I need to take a class that explains how VBA is to be structured.

The goal of this code is to take an entered number, capsules_ran in this case and populate it to the corresponding order_details field for all parts in that order.
It takes the order number from a combo box and the capsules ran from a text box.

Private Sub CapsuleAutoFill_Click()
Dim SQL As String
SQL = "UPDATE T_Order_Details" & _
"SET [T_Order_Details].[Capsules_Ran] =  [Me.TXT_CapsulesRan]" & _
"WHERE Order_ID = Me.CBO_OrderNumSel "


DoCmd.RunSQL SQL

End Sub

[June7]

CurrentDb.Execute "UPDATE T_Order_Details SET [Capsules_Ran] = " & [Me.TXT_CapsulesRan] & " WHERE Order_ID = " & Me.CBO_OrderNumSel

Assumes both fields are number type.

[tcox]

I had a little trouble with the code, but got it to work with locally stored variables.
It was giving Run time Error 2465
Here is the complete function. I'm working on learning how to implement error handling.
For example, a field is not entered and is considered Null.

Private Sub CapsuleAutoFill_Click()
Dim LintCapsules As Long
Dim intOrderIndex As Integer

On Error GoTo Error_Message
Exit Sub
Error_Message:
Select Case Err.Number
Case Else
MsgBox "Please fill in form"
End Select

LintCapsules = Me.TXT_CapsulesRan
intOrderIndex = Me.CBO_OrderNumSel

CurrentDb.Execute "UPDATE T_Order_Details SET [T_Order_Details].[Capsules_Ran] = " & LintCapsules & " WHERE Order_ID = " & intOrderIndex

DoCmd.Requery "T_Order_Details Query Subform1"

End Sub

[June7]

The error handler code goes to end of procedure.

Review: http://allenbrowne.com/ser-23a.html