Populate a text box based on list box selection

[almaroc]

I have a list box of company names and i need to populate a text box with the corresponding value from the usage field.
my table is named Average. the fields are Customer and Usage. i used this code in the AfterUpdate event of the list box. i cannot get the text box to populate.here is the code

Private Sub Cust_ListS_AfterUpdate()

    With Me
        .txt_AvgS = DLookup(Expr:="[Usage]", _
                         Domain:="[Average]", _
                        Criteria:="[Customer] = '" & .Cust_ListS & "'")
   End With
End Sub

[TheSmileyCoder]

The best way to debug such a thing is to start by checking that your criteria is set correctly. Try this in your code:

Dim strCrit as string
strCrit="[Customer] = '" & .Cust_ListS & "'"
Msgbox strCrit

And look at what the msgbox tells you. It will give us something to work from.

[almaroc]

thanks Smiley that did the trick.

[TheSmileyCoder]

Im glad to hear that, however for this forum to supply the best value, it would be nice if you could explain in more detail how it worked on your particular problem, for anyone else who might come along and find this thread.

[almaroc]

Well. after i looked at the value returned by the listbox. i found out that it was the CustomerID field instead of CustomerName. so I changed the field in my Dlookup criteria.