The expression you entered as a query parameter produced this erro

[Ricter]

"The expression you entered as a query parameter produced this error: 'The
object doesn't contain the Automation object 'subInvoices.VendorInvNum.''"

After update, the field mentioned is checked for a preexisting, duplicate
value.

It has always worked, up until a couple of weeks ago, when I started getting
this popup, and I have not changed anything in my db.

Any theories, please? Code follows...


Private Sub VendorInvNum_AfterUpdate()

Me.VendorInvNum = UCase(Me.VendorInvNum)

On Error GoTo VendorInvNum_AfterUpdate_Err

If Not IsNull(DLookup("InvoiceID", "tblInvoices", "VendorInvNum =
[subInvoices].[VendorInvNum]")) Then
MsgBox "Hey, you've referenced that invoice number before!", vbOKOnly,
"Invoice Number Checker"
End If
VendorInvNum_AfterUpdate_Exit:
Exit Sub
VendorInvNum_AfterUpdate_Err:
MsgBox Error$
Resume VendorInvNum_AfterUpdate_Exit

End Sub

 

[John Spencer]

The problem is that [subInvoices].[VendorInvNum] is not known to the query
engine. IF SubInvoice is the name of the form you can use

If Not
IsNull(DLookup("InvoiceID", "tblInvoices",
"VendorInvNum = """ & Me.[VendorInvNum] & """")) Then

OR you can use
(DLookup("InvoiceID", "tblInvoices",
"VendorInvNum = Forms!subInvoices![VendorInvNum]")

If that errors, tell us what subInvoices is? Is it a subform on a mainform?

John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County

 

[Ricter]

John, that first suggestion worked, thank you!

Not sure why the old code quit working...

Rick

The problem is that [subInvoices].[VendorInvNum] is not known to the query
engine. IF SubInvoice is the name of the form you can use

If Not
IsNull(DLookup("InvoiceID", "tblInvoices",
"VendorInvNum = """ & Me.[VendorInvNum] & """")) Then

OR you can use
(DLookup("InvoiceID", "tblInvoices",
"VendorInvNum = Forms!subInvoices![VendorInvNum]")

If that errors, tell us what subInvoices is? Is it a subform on a mainform?

John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County

"The expression you entered as a query parameter produced this error: 'The
object doesn't contain the Automation object 'subInvoices.VendorInvNum.''"

After update, the field mentioned is checked for a preexisting, duplicate
value.

It has always worked, up until a couple of weeks ago, when I started getting
this popup, and I have not changed anything in my db.

Any theories, please? Code follows...


Private Sub VendorInvNum_AfterUpdate()

Me.VendorInvNum = UCase(Me.VendorInvNum)

On Error GoTo VendorInvNum_AfterUpdate_Err

If Not IsNull(DLookup("InvoiceID", "tblInvoices", "VendorInvNum =
[subInvoices].[VendorInvNum]")) Then
MsgBox "Hey, you've referenced that invoice number before!", vbOKOnly,
"Invoice Number Checker"
End If
VendorInvNum_AfterUpdate_Exit:
Exit Sub
VendorInvNum_AfterUpdate_Err:
MsgBox Error$
Resume VendorInvNum_AfterUpdate_Exit

End Sub