hallåjs igen,

hur väljer man vilket alternativ i en combobox som skall visas när comboboxen visas första gången. Funktionen för att lägga till saker ser ut så här:

Public Sub listaAnstallda(Combo As ComboBox)
recSetAnstallda.MoveFirst
Combo.Clear
Do Until recSetAnstallda.EOF
Combo.AddItem recSetAnstallda("anstnamn") & "; " & recSetAnstallda("anstnr")
recSetAnstallda.MoveNext
Loop
End Sub

Men nu är det så att jag vill att det första alternativet som hämtas skall vara valt i boxen.

/e:a

Du kan skriva:

<code>
Private Sub Form_Load()

Combo1.AddItem "apa"
Combo1.AddItem "banan"
Combo1.AddItem "träd"

Combo1.Text = Combo1.List(0)

End Sub
</code>

<code>
Public Sub listaAnstallda(Combo As ComboBox)
Dim fldAnstNr As Field
Dim fldAnstNamn As Field
Combo.Clear

If recSetAnstallda.Bof and recSetAnstallda.eof Then
'Poster saknas
Else
Set fldAnstNr = recSetAnstallda("anstnr")
Set fldAnstNamn = recSetAnstallda("anstnamn")

recSetAnstallda.MoveFirst
Do Until recSetAnstallda.EOF
Combo.AddItem fldAnstNamn & "; " & fldAnstNr
recSetAnstallda.MoveNext
Loop
Combo.Listindex = 0
End If
End Sub

' *** Om du skulle vilja markera en specifik post kan du använda följand kod:

Public Sub listaAnstallda(Combo As ComboBox, AnstNr as Variant)
Dim fldAnstNr As Field
Dim fldAnstNamn As Field
Combo.Clear

If recSetAnstallda.Bof and recSetAnstallda.eof Then
'Poster saknas
Else
Set fldAnstNr = recSetAnstallda("anstnr")
Set fldAnstNamn = recSetAnstallda("anstnamn")

recSetAnstallda.MoveFirst
Do Until recSetAnstallda.EOF
Combo.AddItem fldAnstNamn & "; " & fldAnstNr
If fldAnstNr = AnstNr Then
Combo.Listindex = Combo.NewIndex
recSetAnstallda.MoveNext
Loop
End If
End Sub
</code>

Om AnstNr är et tal, är det intresant att titta på ItemData egenskapen på Combox objektet...