Cómo programar con Ciertas declaraciones con Visual Basic de Microsoft Access

Se puede programar el uso de declaraciones "if ... else" en su aplicación de Access utilizando Visual Basic para aplicaciones, pero puede tener un programa más limpio mediante el uso de instrucciones "select ... caso" 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 expresión de la prueba coincide con la etiqueta caso, entonces el siguiente código 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ódulo" para añadir un nuevo módulo.

2 Copia y pega el siguiente para iniciar un nuevo sub y crear las variables que va a utilizar en su instrucción Select Case:

Private Sub selectStatement ()

Dim como secuencia expressionStr

Dim como secuencia expressionInt

expressionStr = "3"

expressionInt = 1

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

Seleccione la caja expressionStr

Case "1"

Debug.Print ( "Caso 1")

Caso "2"

Debug.Print ( "Caso 2")

Caso "3"

Debug.Print ( "Caso 3")

End Select

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

Seleccione la caja expressionInt

Case 1

Debug.Print ( "Caso 1")

caso 2

Debug.Print ( "Caso 2")

caso 3

Debug.Print ( "Caso 3")

End Select

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

Seleccione la caja expressionInt

Case 1, 2

Debug.Print ( "Caso 1 ó 2")

caso 3

Debug.Print ( "Caso 3")

End Select

6 Para terminar el procedimiento escribiendo "End Sub" al final y pulse la tecla "Ctrl" y "G" para mostrar la ventana Inmediato. Pulse la tecla "F5" para ejecutar el procedimiento y ver los resultados.