Dropdown med flere værdier...

You cant have more than one column in the dropdown so you have to search through your recordset for the matching ID, something like this.

Dim strfind As String

    If Not IsNull(vare) And Not vare = \"\" Then
           
        strfind = \"navn = \" & \"\'\" & vare.Text & \"\'\"
        objRS.MoveFirst
        objRS.FindFirst strfind
        If objRS.NoMatch Then
            MsgBox \"Ikke fundet\"
        Else
            MsgBox \"VareID = \" & objRS.Fields(\"ID\")
       
        End If
    End If

Brug combobox\'ens ItemData værdi!

If Not objRS.EOF Then
    objRS.MoveFirst
    Do While Not objRS.EOF
        vare.AddItem objRS.Fields(\"navn\")
        vare.ItemData(vare.NewIndex) = objRS.Fields(\"ID\")
        objRS.MoveNext
    Loop
End If

Herefter indeholder vare.ItemData(vare.ListIndex) altid den valgte vares ID.

/Mikkel

Egentlig virker ItemData som en ekstra kolonne, men bare usynlig - HUSK as ItemData kun kan indeholde tal-værdier!!

Top dollor