Насколько я знаю списком combobox должен быть нагруженное *before* combobox щелкнуто.
Так оно кажется что вы можете найти другую дорогу активировать выбор.
Возможно вы smogли попытаться оно когда форма будет выступлена с иничиативой, или создать группа варианта, или сделайте мастерское combobox,…
(Снова, это только иллюстрирует почему это будет нештатная функциональность.)
В любом случае,… Кодий smogло быть что-нибудь подобное:
'Создайте перемеююый
Затемните strWhatList как шнур
'Нагрузите перемеююый с любой текст потребитель входит в в inputbox
strWhatList = InputBox («что список?» & vbCrLf & «(войдите: them для работников, или «EQ», для Equiptment) ")
'Если щелчки «Cancel» потребителя, то
'выходите подводная лодка без списков нагруженных в combobox
Если strWhatList = "" после этого
'Покажите сообщение, тогда раскройте форму
'(без списка в combobox)
MsgBox «отсутствие списка выбранного для того чтобы нагрузить combobox. », vbInformation
'Выход
Выходите подводная лодка
strWhatList ElseIf = «EM» или strWhatList = «em» после этого
'Нагрузите соотвествующий ряд списка
Me.cboWhatList.RowSource = «=Sheet1! A2: A8»
'Установите ярлык combobox
Me.lblWhatList.Caption = «работники»
strWhatList ElseIf = «EQ» или strWhatList = «eq» после этого
Me.cboWhatList.RowSource = «=Sheet1! B2: B6»
Me.lblWhatList.Caption = «Equiptment»
Еще
Значение MsgBox «инвалидное, никакой список нагрузило в combobox. », vbInformation
Выходите подводная лодка
Закончитесь если
Я уверен вы вы будет приспособить это к работе в вашей базе данных.
Я прикреплял образец
; -)
JeffCoachman
