Per quanto so che la lista dei combobox deve essere *before* caricato il combobox è scattato.
Così sembra che possiate dovere trovare un altro senso attivare la scelta.
Forse potreste provarli quando la forma è inizializzata, o generare un gruppo di opzione, o fare il combobox matrice,…
(Ancora, questo illustra soltanto perché questa è funzionalità non standard.)
In qualunque caso,… il codice ha potuto essere qualcosa di simile:
'Generare la variabile
Oscurare lo strWhatList come stringa
'Caricare la variabile con che cosa testo l'utente digita nel inputbox
strWhatList = InputBox (“che lista?„ & vbCrLf & “(entrare: them per gli impiegati, o “EQ„, per Equiptment) ")
'Se gli scatti “annullamento„ dell'utente,
'uscire il sommergibile senza le liste caricate nel combobox
Se strWhatList = "" allora
'Visualizzare un messaggio, quindi aprire la forma
'(senza una lista nel combobox)
MsgBox “nessuna lista selezionata per caricare il combobox. „, vbInformation
'Uscita
Uscire il sommergibile
strWhatList di ElseIf = “EM„ o strWhatList = “em„ allora
'Caricare la gamma adatta della lista
Me.cboWhatList.RowSource = “=Sheet1! A2: A8„
'Regolare l'etichetta del combobox
Me.lblWhatList.Caption = “impiegati„
strWhatList di ElseIf = “EQ„ o strWhatList = “eq„ allora
Me.cboWhatList.RowSource = “=Sheet1! B2: B6„
Me.lblWhatList.Caption = “Equiptment„
Altrimenti
Il valore non valido di MsgBox “, nessuna lista ha caricato nel combobox. „, vbInformation
Uscire il sommergibile
Concluder se
Sono sicuro che voi potrete adattare questo a lavoro nella vostra base di dati.
Ho attaccato un campione
; -)
JeffCoachman