Runtime Error 2107

[J Arty]

Hi all,

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 use the code "'RunCommand acCmdSaveRecord" it tells me the save record
is not available

any help would be greatly appreciated

 

[J Arty]

I can't use the code "'RunCommand acCmdSaveRecord" it tells me the save
record

 

[J Arty]

never mind, I put the "Call ChangeSQL" in the after update of the OrderID
witch is my key field and it works

 

[J Arty]

No was wrong did not work if anyone has an idea please let me know ran out
of ideas myself