Voor zover ik weet de lijst van combobox moet worden geladen *before* wordt combobox geklikt.
Zo schijnt het dat u een andere weg kunt moeten vinden om de keus te activeren.
Misschien kon u het proberen wanneer de Vorm wordt geïnitialiseerdo, of cre�ërt een optiegroep, of een merkmeester combobox,…
(Opnieuw, illustreert dit slechts waarom dit niet genormaliseerde functionaliteit. is)
In elk geval,… zou de code kunnen zijn iets in die aard:
'Cre�ër de variabele
Verduister strWhatList als Koord
'Lading de variabele met de tekst de gebruiker in inputbox ingaat
strWhatList = InputBox („Welke Lijst?“ & vbCrLf & „(ga binnen: them voor Werknemers, of „EQ“, voor Equiptment)“)
'Als de gebruiker „Cancel“ klikt,
'ga sub zonder lijsten weg in combobox worden geladen die
Als strWhatList = "" toen
De 'vertoning een bericht, opent dan de vorm
'(zonder een lijst in combobox)
MsgBox „Geen lijst selecteerde om combobox te laden. “, vbInformation
'Uitgang
Sub van de uitgang
strWhatList van ElseIf = „EM“ of strWhatList = „em“ toen
'Lading de aangewezen lijstwaaier
Me.cboWhatList.RowSource = „=Sheet1! A2: A8“
'Plaats het comboboxetiket
Me.lblWhatList.Caption = „Werknemers“
strWhatList van ElseIf = „EQ“ of strWhatList = „eq“ toen
Me.cboWhatList.RowSource = „=Sheet1! B2: B6“
Me.lblWhatList.Caption = „Equiptment“
Anders
Ongeldige waarde van MsgBox de „, geen die lijst in combobox wordt geladen. “, vbInformation
Sub van de uitgang
Eind als
Ik ben zeker u u zal kunnen dit aan het werk in uw gegevensbestand aanpassen.
Ik heb een steekproef vastgemaakt
; -)
JeffCoachman