the property "DisplayControl" appears to be available ONLY in table Design
view.

The combo box I'd like to create contains two fields (the first being the
value the control is bound to, and the second, of course, is what's shown to
the user) :

1;"Employee";2;"Support Staff";3;"Sub Contract"

I'd like to do this so that when I update the client's existing version, I
don't have to do it manually.  -That presents another step that can be
easily forgotten!

Any ideas would be appreaciated!!!

Public Sub CreateComboBoxcontrol(frmname As String, ctlname As String)
Dim combo As ComboBox

DoCmd.OpenForm frmname, acDesign, , , , acHidden

Set combo = CreateControl(frmname, acComboBox, acDetail, , , 567, 567, 567, 567)

With combo
        .Name = ctlname
        .RowSourceType = "Value list"
        .RowSource = "1;'employee';2;'fun';3;'whynot'"
        .ControlSource = "Your field name here"
End With
DoCmd.RunCommand acCmdSave
DoCmd.Close acForm, "frmnav"
End Sub

you'll have to come up with the proper dimensions for the combo box (that's all
of those 567's up there).

This is a property that Access creates. It is not built into the DAO
object model. Therefore, to get to it you need to use the properties
collection of the field:
MyField.Properties("DisplayControl")

The value for a textbox (the default) is 109. The value for a combo
box is 111.

 -- Andy

Public Sub CreateComboBoxcontrol(frmname As String, ctlname As String)
Dim combo As ComboBox

DoCmd.OpenForm frmname, acDesign, , , , acHidden

Set combo = CreateControl(frmname, acComboBox, acDetail, , , 567, 567, 567, 567)

With combo
        .Name = ctlname
        .RowSourceType = "Value list"
        .RowSource = "1;'employee';2;'fun';3;'whynot'"
        .ControlSource = "Your field name here"
End With
DoCmd.RunCommand acCmdSave
DoCmd.Close acForm, "frmnav"
End Sub

you'll have to come up with the proper dimensions for the combo box (that's all
of those 567's up there).

the property "DisplayControl" appears to be available ONLY in table Design
view.

The combo box I'd like to create contains two fields (the first being the
value the control is bound to, and the second, of course, is what's shown to
the user) :

1;"Employee";2;"Support Staff";3;"Sub Contract"

I'd like to do this so that when I update the client's existing version, I
don't have to do it manually.  -That presents another step that can be
easily forgotten!

Any ideas would be appreaciated!!!