Fråga : Combo listfillrangeegenskapsändringar som baseras på användareval

Jag skulle något liknande för att ha ett combo att boxas att ändringar som det är listfill spänner egenskapen som baseras på val användaren makes.
basically, när det klickas ett meddelande boxas, eller något frågar, om denna är anställda eller utrustning.  Om för anställda därefter den combo ska showen lista för anställda. För utrustning därefter ska de combo kommer med upp lista för equipment.

how är detta gjorda bäst.  Tack i advance. " klar "

Svar : Combo listfillrangeegenskapsändringar som baseras på användareval

Så långt, som jag vet att combobox'sna listar, måste vara de laddad *before* som comboboxen klickas.
Så det verkar att du kan måste att finna another långt för att aktivera det primat.
Kanske du kunde försök det, när bilda initialiseras, eller skapar en alternativgrupp, eller gör ledar- combobox,…,
(Igen, detta illustrerar endast varför denna är icke-standard funktionsduglighet.),

I någon händelse… kodifiera kunde vara något något liknande detta:

'Skapa variabeln
Dunkel strWhatList som stränger
   
    'Ladda variabeln med, allt vad text som användaren skriver in i inputboxen
    strWhatList = InputBox (”vad listar?”, & vbCrLf & ”(skriv in: them för anställda eller ”EQ”, för Equiptment)”)
   
    'Om användaren klickar ”annulleringen”,
    'gå ut suben med inget listar laddat in i comboboxen
    Om strWhatList = "" därefter
        'Visa ett meddelande, då öppna bilda
        '(utan en lista i comboboxen)
        Ingen MsgBox ”listar utvalt för att ladda comboboxen. ” vbInformation
        'Gå ut
        Gå ut suben
    ElseIf strWhatList = ”EM” eller strWhatList = ”em” därefter
        'Ladda anslå listar spänner
        Me.cboWhatList.RowSource = ”=Sheet1! A2: A8”,
        'Uppsättning comboboxetiketten
        Me.lblWhatList.Caption = ”anställda”,
    ElseIf strWhatList = ”EQ” eller strWhatList = ”eq” därefter
        Me.cboWhatList.RowSource = ”=Sheet1! B2: B6”,
        Me.lblWhatList.Caption = ”Equiptment”,
    Annars
        Ogiltiga MsgBox ”värderar, inget listar laddat i comboboxen. ” vbInformation
        Gå ut suben
    Avsluta om

Förmiddag I sure du som du ska, är kompetent att anpassa detta till arbete i din databas.


Jag har fäst en ta prov

; -)

JeffCoachman