ssalomon

Hi

I use this code to call data into combobox
I use 4 combobox and read from Table1 / Table2 3 and 4

Is it poseble to chance this code so I only need to write only 1

and call combofill ??? to read from difrent table and record?

Dim Rcordset As ADODB.Recordset


Set Rcordset = New ADODB.Recordset
strSQL = "SELECT * FROM starfsmenn;"
Rcordset.Open strSQL, conTree, adOpenStatic, adLockOptimistic

With Rcordset 'Either ADO or DAO
Do While Not .EOF
txtdeild.AddItem Rcordset.Fields("deildir").Value 'String varible
txtdeild.ItemData(txtdeild.NewIndex) = .Fields("ID").Value 'Numeric varible
.MoveNext
Loop
End With

Thinker

I don't really understand the question. Are you asking if this
code can be done to work with any of four combobox controls?

ssalomon

Hi

Yes I wana tray to usit in four combobox controls

I combo1 I will call from starfsmenn
strSQL = "SELECT * FROM starfsmenn;"

and Combo2
strSQL = "SELECT * FROM Conto;"

If is som way to usit in

'' Public Function Call_combo_data

and wnen I usit

I vill do ? Combofill 'Selectfrom' 'pun_into_combo?' .additemFields("Mynnisatriði")


som like this is it poseble or what way is best so I dont need to wrate same code into all four combo only call som Public Function

Thinker

What you would have to do is actually pass the combobox itself
to the Call_combo_data function.
Public Sub Call_combo_data(TheCombobox As VB.ComboBox, _
strSQL As String)
Then you can use TheCombobox.AddItem