How to make a Form Field return numeric value

[Guest]

I have a form with a field (Field A) that has a list box with values such as
apple, orange, and bannana. In field B I would like it to display
automatically a 1 if apple is selected in Field A, a 2 if orange is selected
and so on. How can I do this? Thanks for any help.

 

[Guest]

There are several ways to accomplish this, here is one:

Put code like this in the On Click event of the list box:

Select Case cboFieldA
Case "Apple"
txtFieldB = 1
Case "Orange"
txtFieldB = 2
Case "Bannana"
txtFieldB = 3
Case Else
txtFieldB = ""
End Select