Dans la mesure où je sais que la liste des combobox doit être *before* chargé le combobox est cliqué.
Ainsi il semble que vous pouvez devoir trouver une autre manière d'activer le choix.
Peut-être vous pourriez l'essayer quand la forme est initialisée, ou créer un groupe d'option, ou faire le combobox principal,…
(Encore, ceci illustre seulement pourquoi c'est fonctionnalité non standard.)
Quoi qu'il arrive,… le code a pu être n'importe quoi de pareil :
'Créer la variable
Obscurcir le strWhatList comme corde
'Charger la variable avec quelque texte l'utilisateur entre dans dans l'inputbox
strWhatList = InputBox (« quelle liste ? » et vbCrLf et « (entrer : them pour des employés, ou « EQ », pour Equiptment) ")
'Si les clics « annulation » d'utilisateur,
'sortir le sous-marin sans des listes chargées dans le combobox
Si strWhatList = puis ""
'Afficher un message, puis ouvrir la forme
'(sans liste dans le combobox)
MsgBox « aucune liste choisie pour charger le combobox. », vbInformation
'Sortie
Sortir le sous-marin
strWhatList d'ElseIf = « fin de support » ou strWhatList = « fin de support » puis
'Charger la gamme appropriée de liste
Me.cboWhatList.RowSource = « =Sheet1 ! A2 : A8 »
'Placer l'étiquette de combobox
Me.lblWhatList.Caption = « employés »
strWhatList d'ElseIf = « EQ » ou strWhatList = « eq » puis
Me.cboWhatList.RowSource = « =Sheet1 ! B2 : B6 »
Me.lblWhatList.Caption = « Equiptment »
Autrement
La valeur inadmissible de MsgBox « , aucune liste a chargé dans le combobox. », vbInformation
Sortir le sous-marin
Finir si
Je suis sûr que vous vous pourrez adapter ceci au travail dans votre base de données.
J'ai attaché un échantillon
; -)
JeffCoachman
