adding to combo
Posted on 2002-03-25
i'm adding fields from a database into about 10 combos. Most of the code is the same so i wanted to have one procedure and pass the name of the combo, the table and the field to add.
This is what i have at the moment..
Private Sub fillCboVoltage()
.openRecord ("select distinct Electrical.[Voltage] from electrical"), adOpenForwardOnly, adLockReadOnly
Do While Not .eof
If .Voltage > "" Then