Por lo que sé que la lista de los combobox debe ser *before* cargado se chasca el combobox.
Parece tan que usted puede tener que encontrar otra manera de activar la opción.
Quizás usted podría intentarlo cuando se inicializa la forma, o crear a un grupo de la opción, o hacer el combobox principal,…
(Una vez más esto ilustra solamente porqué ésta es funcionalidad no estándar.)
En cualquier caso,… el código podía ser algo similar:
'Crear la variable
Amortiguar el strWhatList como secuencia
'Cargar la variable con cualquier texto el usuario incorpora en el inputbox
strWhatList = InputBox (“qué lista?” y vbCrLf y “(entrar: them para los empleados, o “EQ”, para Equiptment) ")
'Si los tecleos “cancelación” del usuario,
'salir el submarino sin las listas cargadas en el combobox
Si strWhatList = "" después
'Exhibir un mensaje, después abrir la forma
'(sin una lista en el combobox)
MsgBox “ninguna lista seleccionada para cargar el combobox. ”, vbInformation
'Salida
Salir el submarino
strWhatList de ElseIf = “EM” o strWhatList = “em” entonces
'Cargar la gama apropiada de la lista
¡Me.cboWhatList.RowSource = “=Sheet1! A2: A8”
'Fijar la etiqueta del combobox
Me.lblWhatList.Caption = “empleados”
strWhatList de ElseIf = “EQ” o strWhatList = “eq” entonces
¡Me.cboWhatList.RowSource = “=Sheet1! B2: B6”
Me.lblWhatList.Caption = “Equiptment”
El valor inválido de MsgBox “, ninguna lista cargó en el combobox. ”, vbInformation
Salir el submarino
Terminar si
Estoy seguro que usted usted podrá adaptar esto al trabajo en su base de datos.
He atado una muestra
; -)
JeffCoachman
