Combo Box Auto Populate Inquiry

[SteveHale]

Hi all,

I have been using this code to Auto Populate WorkerCode, WorkerPhone, and Program:

Private Sub WorkerName_AfterUpdate()

Me.WorkerCode = WorkerName.Column(1)
Me.WorkerPhone = WorkerName.Column(2)
Me.Program = WorkerName.Column(3)

End Sub

Yet, all it populates is the WorkerCode Field. Any help is appreciated. :-)


Thanks,

Steve


[SOLUTION]

1. Go to Combo Box Property Sheet
2. Look for "Column Count" and change it to the number of fields the Row Source has (this one had 4)
3. Look for "Column Widths" and change it to 2";0";0";0" (the numerical values are in inches and separated by a semicolon. The zero values will make it so that all that appears on the combo box is the value you intend your user to see or pick from)