Help with DLookup

[Guest]

Hello - Can anyone tell me what is wrong with this DLookup?

Me.txtMessage = DLookup("txtMessage", "tblModel", "ModelID = " &
Me.cboModel.Column(1))

I suspect that it's because ModelID is a text value and not a number.
Access gives me the following error when the afterupdate event is triggered
in the combobox where this code is place:

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

Any help would be appreciated.

 

[Guest]

If txtMessage is not a field in your table, you will get an error. In any
case it should bracketed. If the txtMessage in the DLookup is the same as
Me.txtMessage, then you are confusing Access. Fix this for starters and
let's see what happens.

 

[Guest]

Oops! The field name is actually [Message], so this is the revised code:

Me.txtMessage = DLookup("[Message]", "tblModel", "[ModelID] = " &
Me.[cboModel].Column(1))

Unfortunately I still have the same error.

 

[Tom Lake]

Oops! The field name is actually [Message], so this is the revised code:

Me.txtMessage = DLookup("[Message]", "tblModel", "[ModelID] = " &
Me.[cboModel].Column(1))

Unfortunately I still have the same error.

Since you're dealing with text, you can do this:

Me.txtMessage = DLookup("[Message]", "tblModel", "[ModelID] = '" &
Me.[cboModel].Column(1) & "'")

Tom Lake

 

[Guest]

Tom - That does it! Thanks so much.

Klatuu - That you for pointing out the field name error.
--
Gary in Michigan, USA

Oops! The field name is actually [Message], so this is the revised code:

Me.txtMessage = DLookup("[Message]", "tblModel", "[ModelID] = " &
Me.[cboModel].Column(1))

Unfortunately I still have the same error.

Since you're dealing with text, you can do this:

Me.txtMessage = DLookup("[Message]", "tblModel", "[ModelID] = '" &
Me.[cboModel].Column(1) & "'")

Tom Lake