Finding error in query vba code

[George]

Good Day,



I am trying to access a value in a table using VBA DLookup code. However I am unsuccessful.

Can anyone please advise what is wrong with my code. I am sure the table exist and the field of reference exist also.

Here is the code that I am using:

The error message says it cannot find the input table or the query "RecBookNum"

[ICODE]

Private Sub Post_Deposit_Click()


Dim Y As Integer
Y = DLookup("ReceiptBook", "RecBookNum", "OrderID ='" & Me.[Order ID] & "'")

MsgBox Y

End Sub

[/ICODE]

[Bob Fitz]

The single quote delimerters are not needed if OrderID is numeric. Try:
Y = DLookup("ReceiptBook", "RecBookNum", "OrderID =" & Me.[Order ID])

[ranman256]

this expects OrderID to be a string since you used quotes.
ReceiptBook is the field to return
RecBookNum is the table/query

if OrderID is numeric, remove quotesL
= DLookup("ReceiptBook", "RecBookNum", "OrderID =" & Me.[Order ID] )

[Bob Fitz]

The single quote delimerters are not needed if OrderID is numeric. Try:
Y = DLookup("ReceiptBook", "RecBookNum", "OrderID =" & Me.[Order ID])

Are you sure you have these ("ReceiptBook", "RecBookNum") in the right order. Is "ReceiptBook" the name of the field whose value you want?

[George]

Thanks Bob.
Your suggestion is correct, however the problem persists. Please note that the error messages states that there is not such table.....

[Bob Fitz]

Perhaps then, as I suggested earlier, you may need:
Y = DLookup("RecBookNum","ReceiptBook", "OrderID =" & Me.[Order ID])

[George]

Thank again: You are so correct. They are in the wrong order. It's working fine now.

Have a great day all.

[Bob Fitz]

Thank again: You are so correct. They are in the wrong order. It's working fine now.

Have a great day all.

You're Welcome. Always glad to help if I can.

[orange]

Suggest you mark the thread SOLVED.