Runtime Error 2107

  • Thread starter Thread starter J Arty
  • Start date Start date
J

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
 
never mind, I put the "Call ChangeSQL" in the after update of the OrderID
witch is my key field and it works
 
No was wrong did not work if anyone has an idea please let me know ran out
of ideas myself
 
Back
Top