Dlookup not working Error cancelled operation 1

[vba317]

I am trying to set up a form to enter a name into a textbox and have an ID number populate another textbox. I am not getting an error but the destination textbox is not populating.
Here is the details
Table: dbo_dic_Client
Name of the form: frmMain
Form Data Entry text box: txtClient
Form Destination textbox: txtClientNum
ID Field from table clid
info from table: uci

Private Sub txtClient_Exit(Cancel As Integer)
Dim intClient As Integer

intClient = DLookup("clid", "dbo_dic_Client", "uci = " & Forms![frmMain]!txtClient)
Debug.Print intClient
frmMain!txtClientNum = intClient

End Sub

 

[PHV]

What about this ?

Dim intClient As Vatiant
intClient = DLookup("clid", "dbo_dic_Client", "uci = '" & Me!txtClient & "'")
Debug.Print intClient
Me!txtClientNum = intClient

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

That worked perfectly! Thanks