Grupo de opciones en Access
Hola, tengo un problema con los grupo de opciones en Access, con cómo los trata access, ya que en visual basic sé como van peor no así en access.
Tengo un cuadro de opciones y quiero escribir un código en visual basic para que según la que me seleccione abra un formulario u otro. El problema que tengo es que no sé cómo poner la condición. Creo que en Access el grupo de opciones es un conjunto que toma un valor u otro pero no sé si es un entero, un lógico o q. El grupo de opciones se llama Op_Consulta, ¿qué condición debo poner en el if o el select case?
if Op_Consulta.value=????? Then....
Es algo extraño porque si hago solo un if, sin elses ni nada, me toma el valor correcto de la opción que seleccione, pero cuando que pongo
if Op_Consulta.value=1 then
...
elseif op_Consulta.value=2 then+
...
else
..
end if
no me va :(. Supongo que será una estupidez porque estoy empezando a conocer visual basic ahora.
A ver si alguien puede ayudarme, gracias de antemano. Saludos.
Tengo un cuadro de opciones y quiero escribir un código en visual basic para que según la que me seleccione abra un formulario u otro. El problema que tengo es que no sé cómo poner la condición. Creo que en Access el grupo de opciones es un conjunto que toma un valor u otro pero no sé si es un entero, un lógico o q. El grupo de opciones se llama Op_Consulta, ¿qué condición debo poner en el if o el select case?
if Op_Consulta.value=????? Then....
Es algo extraño porque si hago solo un if, sin elses ni nada, me toma el valor correcto de la opción que seleccione, pero cuando que pongo
if Op_Consulta.value=1 then
...
elseif op_Consulta.value=2 then+
...
else
..
end if
no me va :(. Supongo que será una estupidez porque estoy empezando a conocer visual basic ahora.
A ver si alguien puede ayudarme, gracias de antemano. Saludos.
1 Respuesta
Respuesta de Julián González Cabarcos
1
Te aconsejaría que en vez de utilizar una instrucción IF...then...else, utilices Select Case, es más comoda. Vamos a ver:
Select case Op_consulta
Case is=1
Docmd.Openform.....
Case is =2
docmd.openreport....
Case is=3
msgbox(....
End select
Pruébalo y me lo dices
Select case Op_consulta
Case is=1
Docmd.Openform.....
Case is =2
docmd.openreport....
Case is=3
msgbox(....
End select
Pruébalo y me lo dices
Muchas gracias! Los del select lo sabía, lo que no sabía era lo de "is=1"... al final creo que el problema era porque como no tengo mucha idea de basic, para lanzar los formularios utilizaba el trozo de código que el mismo kreaba para otros formularios : "DoCmd.OpenForm stDocName,,, stLinkCriteria"
El "stLinkCriteria" me sonaba raro, se me ha ocurrido quitarlo y de lujo xD. No sé si sería por eso o por el Is=Algo, pero la cosas es que va, así que muchas gracias ;), Taluegoo
El "stLinkCriteria" me sonaba raro, se me ha ocurrido quitarlo y de lujo xD. No sé si sería por eso o por el Is=Algo, pero la cosas es que va, así que muchas gracias ;), Taluegoo
