---

Hej

Er der nogen der kan fortælle mig hvordan jeg skal bruge en comboboks??

Jeg vil lade en bruger selv bygge en liste op og samtidig tjekke at 2 emner
ikke får samme navn.

Det må være simpelt, men jeg er bare gået kold nu.

Jørn Nielsen

---

Hvad med noget i stil med dette her !


Private Sub Form_Load()

addcombo "Jens"
addcombo "Tine"
addcombo "Allan"

End Sub

Function addcombo(ByVal tekst As String) As String

Dim tel As Long

For tel = 0 To Combo1.ListCount - 1
If tekst = Combo1.List(tel) Then
MsgBox "Fejl 40 !" & vbCrLf & vbCrLf & "Teksten står der i
forvejen.", vbCritical, "Info"
Exit Function
End If
Next

Combo1.AddItem tekst

End Function



"Jørn Nielsen" <gabelnielsen@mail.tele.dk> wrote in message
news:3c7a2751$0$239$edfadb0f@dspool01.news.tele.dk...
> Hej
>
> Er der nogen der kan fortælle mig hvordan jeg skal bruge en comboboks??
>
> Jeg vil lade en bruger selv bygge en liste op og samtidig tjekke at 2
emner
> ikke får samme navn.
>
> Det må være simpelt, men jeg er bare gået kold nu.
>
> Jørn Nielsen
>
>
>
>