¿Como puedo hacer un formulario con dos cuadros combinados dependientes? O lo que sea

Necesito crear un formulario que tenga dos cuadros combinados, uno se llama MARCA y otro MODELO, lo que quiero es que cuando seleccione Marca, en Modelo me muestre sólo los modelos de la marca seleccionada.

3 Respuestas

Respuesta
2

Hay bastante literatuta sobre este tema, y la verdad con ejemplos my buenos.

Mira en ésta dirección y si tienes dificultades te prepararé un ejemplo simple.

http://angelessebas.es/Caso011.asp?vTitulo=Cuadros%20Combinados%20en%20Cascada 

Entre otras páginas, tambien puedes mirar:

http://www.mvp-access.es/emilio/Access/Descargas.asp 

http://siliconproject.com.ar/neckkito/ 

Sin desmerecer otras muchas, de una lista de buenas.

Respuesta
2

Digamos que tienes el ComboBoxMarca y el ComboBoxModelo

En la Tabla Modelos debes tener una columna para marca y otra para modelo (solo como aclaración)

En el origen de datos del comboboxModelo, deberás agregar también la columna "Marca" pero de preferencia oculta, es decir, que el combobox solamente muestre los valores de la columna Modelo. Ahí mismo (en el origen de datos del combobox) agregas el siguiente filtro en la columna "Marca":

[formularios]![TuFormulario]![comboboxMarcas]

Así, le estarás diciendo que te filtre todos los valores con respecto a la marca elegida en el comboboxMarca, luego, en el evento "al cambiar" del comboboxMarca, agregas la siguiente línea:

me.comboboxModelo.requery

De esta forma, le dirás que se vuelvan a recalcular los valores del modelo, ya que para cuando cargues el formulario no habrá ningún valor en el comboboxMarca

También es prudente agregar esa misma línea en el evento "al recibir enfoque" del comboboxModelo, ya que de esa forma te aseguras que recalcule los valores ya filtrados por marca.

Respuesta
2

La respuesta de Alex Burgos es correcta. No obstante, si sabes SQL puedes agregar código al evento después de actualizar del combo marca algo como:

Dim strsql AS string

strsql="SELECT IdModelo FROM tblModelo WHERE  IdMarca=" & Me.comboMarca

Me.comboModelo.Rousorce=strsql

Me.comoboModelo.Requery

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas