Access - COMBO BOX RELLENAR CON VISUAL

   
Vista:

COMBO BOX RELLENAR CON VISUAL

Publicado por Yolanda (8 intervenciones) el 07/08/2014 13:39:32
SOS!! Quiero rellenar una combo box a través de visual basic en access. Tengo una combo box que cuyo origen de fila hace una select, a la cual llamo a través de la requery de visual en ciertos momentos. El caso es que quiero que esta select sea diferente en ciertos momentos y me gustaría hacerlo a través de pasarle los argumentos con visual.
Es un poco complicado de explicar. Por favor, que alguien me ayude!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Neckkito

COMBO BOX RELLENAR CON VISUAL

Publicado por Neckkito (1104 intervenciones) el 08/08/2014 09:50:17
Hola!

No sé si será lo que necesitas pero vamos a ver dos situaciones:

1.- Que la rowsource dependa de 2 condiciones (A y B)

El código que te podría hacer eso sería:

...
Dim miSql as string
If codición=A then
miSql="Select..." 'Con la condición A
Else
miSql="Select..." 'Con la condición B
End if
me.nomCbo.rowsource=miSql
me.nomCbo.requery
...

2.- Que la rowsource dependa de más de 2 condiciones (A, B, C...)

El código que te podría hacer eso sería

...
Dim miSql as string
Select case laCondicion 'No sé de dónde saldría, por lo que te lo dejo indicado sólo como variable sin declarar
Case "A"
miSql="Select..."
Case "B"
miSql="Select..."
Case "C"
miSql="Select..."
'Y todos los CASE que necesites a continuación
End Select
me.nomCbo.rowsource=miSql
me.nomCbo.requery
...

A ver si era esto lo que pedías.

Saludos,
firmaMail
http://neckkito.siliconproject.com.ar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

COMBO BOX RELLENAR CON VISUAL

Publicado por Yolanda (8 intervenciones) el 08/08/2014 11:37:19
Me funciona!!!! Muchísimas muchísimas gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar