how do I increase the field size in a drop down box

[Guest]

In my drop down box will be a list of names. When a name is selected, I want
the form to fill in additional information that is hard coded, such as phone
number, fax number and e-mail address for that particular name. How can I do
this?

 

[Greg Maxey]

Something like this to run on exit from the dropdown:

Sub ExpandField()
Dim oFrmFld As FormFields
Set oFrmFld = Selection.FormFields
Select Case oFrmFld(1).Result
Case Is = "Bill"
oFrmFld(1).Result = "Bill Jones, 101 Miller Street"
Case Is = "Bob"
oFrmFld(1).Result = "Bob Smith, 57 East Maple Ave."
Case Else
End Select
End Sub

 

[Greg Maxey]

Unfortunately the expanded data will become part of the list entries in the
dropdown.

I suppose you on entry you could run a macro to clean up the list, but I
don't really see the benefits.