Question : RunCommand AcCmdSaveRecord

I have a form with a subform.... once the user celect the client, he then
goes to the subform and add qty and select a check box to order...
when the user selects the check box the following code is done:

 DoCmd.SetWarnings False
 Me.OrderID.Value = Forms!OrderParts!OrderID
 DoCmd.DoMenuItem acFormBar, acFile, acSaveRecord, , acMenuVer70
 'RunCommand acCmdSaveRecord
 Call ChangeSQL
 Exit Sub


Private Function ChangeSQL()
Dim SupID As Integer
SupID = Forms!OrderParts!SupplierID

Forms!OrderParts!orderpartssubform.Form.RecordSource = "SELECT Orderid,
SupplierID," _
    & "ModelID, ProductID, Description, OrderQty, Price, CONVERT(money,
Price * OrderQty) " _
    & "AS ExtPrice, Date, Reorder FROM CommandeE" _
    & " WHERE (OrderID = N' ' OR OrderID is null  OR OrderID = '" _
    & Forms!OrderParts!OrderID & "') AND SupplierID = '" _
    & SupID & "'"
End Function

but when it gets to the part where i change the recordsource I get this
error : "Run-Time error '2107':
the value you entered doesn't meet the validation rule defined for the field
or control", if I debug and press f5
it run ok.

I am saving the record before I change the record souce... so I should not
get this error, but I am..

I can't use the code "'RunCommand acCmdSaveRecord" it tells me the save record
is not available.. can anyone tell me why it is unavailable

any help would be greatly appreciated

Answer : RunCommand AcCmdSaveRecord

"code is in the subform... In the onclick of the check box" try moving it to the AfterUpdate of the CheckBox.

Cheers, Andrew