Vraag : Het bezitsveranderingen van Combo listfillrange op gebruikersselectie die worden gebaseerd

Ik zou een combodoos willen hebben die het is listfill waaierbezit verandert op selectie de gebruiker makes.
basically wordt gebaseerd wanneer het een berichtvakje wordt geklikt of iets vraagt of is dit werknemers of materiaal dat.  Als voor werknemers combo dan de lijst voor werknemers zal tonen. Voor materiaal, dan zal combo omhoog de lijst brengen want equipment.

how dit gedaane beste is.  Dankt vooraf.

Antwoord : Het bezitsveranderingen van Combo listfillrange op gebruikersselectie die worden gebaseerd

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