Cómo programar con ciertas declaraciones con Visual Basic en Microsoft Access

Puede programar usando " if ... else " declaraciones en la aplicación de Access utilizando Visual Basic para aplicaciones, pero usted puede tener un programa limpiador usando "select ... case " declaraciones en su lugar. Esta declaración se ejecuta uno de los varios grupos de estados en función del valor de la expresión de prueba . La expresión de la prueba más común es un entero o una variable de cadena . Si el valor de la expresión de prueba coincide con la etiqueta de la caja a continuación, el código después de la etiqueta de la caja se ejecutará. Instrucciones
1

Haga clic en " Herramientas de base de datos " y haga clic en "Visual Basic " para iniciar el Editor de Visual Basic . Haga clic en el menú " Insertar" y haga clic en " módulos" para añadir un nuevo módulo
2

Copia y pega el siguiente para iniciar una nueva sub y crear las variables que va a utilizar en la instrucción Select Case . :

SelectStatement Sub Private ()

expressionStr dévil como secuencia

expressionInt dévil como secuencia

expressionStr = " 3 "

expressionInt = 1
3

Copia y pega el siguiente código para crear una nueva instrucción Select Case con una expresión de prueba cadena :

Seleccione Case expressionStr

Case " 1 "

Debug.Print ( " Caso 1 " )

Case " 2 "

Debug.Print ( " Caso 2 " )

Case " 3 "

Debug.Print ( " Caso 3 " )

End Select
4

Copia y pega el siguiente código para crear una nueva instrucción Select Case con una expresión de prueba Integer :

Seleccione Case expressionInt

caso 1

Debug.Print ( "Caso 1 " )

caso 2

Debug.Print ( "Caso 2 " )

caso 3

Debug.Print ( "Caso 3 " )

End Select
5

Copia y pega el siguiente código para crear una nueva instrucción Select Case que pondrá a prueba la expresión y el control entero por su valor en una sola instrucción del caso:

Seleccione Case expressionInt

caso 1 , 2

Debug.Print ( "Caso 1 ó 2 " )

caso 3

Debug.Print ( "Caso 3 " )

End Select
Página 6

Termina tu procedimiento escribiendo "End Sub " al final y pulse la tecla "Ctrl " y "G " para abrir la ventana Inmediato. Pulse la tecla "F5 " para ejecutar el procedimiento y ver los resultados.