Command Button to set Shipped Date (Access 2003/SP3)

[79schultz]

What is wrong with this code?

Private Sub CmdShipped_Date_Click()
On Error GoTo Err_CmdShipped_Date_Click

Dim strSQL As String

strSQL = "UPDATE tblOrders SET tblOrders.ShippedDate = [Enter date to set]" & _
"WHERE tblOrders.OrderID = BETWEEN [Enter starting Order #] AND ([Enter ending order #]));"

'Dim stDocName As String

'stDocName = "qryupShippedDate"
'DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_CmdShipped_Date_Click:
Exit Sub

Err_CmdShipped_Date_Click:
MsgBox Err.Description
Resume Exit_CmdShipped_Date_Click

End Sub

I have a query that works, but I am trying to graduate to VBA coding for my SQL stuff. What I'm trying to do is set the shipped date on a set number of orders.

[HansV]

There is a parenthesis too much and an incorrect = before BETWEEN, and there is no space before WHERE.
To execute the SQL, you can use DoCmd.RunSQL.
<code>
strSQL = "UPDATE tblOrders SET ShippedDate = [Enter date to set] " & _
"WHERE OrderID BETWEEN [Enter starting Order #] AND [Enter ending order #]"
DoCmd.RunSQL strSQL</code>

[79schultz]

Thanks a million.