Los datos expuestos en este blog, son solo de índole informativo. Por favor realiza siempre una copia de seguridad antes de realizar cualquier cambio en tu proyecto.
MS Access: MIENTRAS… Declaración WEND
Este tutorial de MSAccess describe cómo usar Access MIENTRAS… sentencia WEND Cree un bucle WHILE en VBA usando sintaxis y ejemplos.
describir
La declaración WHILE…WEND de Microsoft Access se usa para crear un bucle WHILE en VBA. Use un ciclo WHILE cuando no esté seguro de cuántas veces desea ejecutar el código VBA en el cuerpo del ciclo. Con un bucle WHILE, es posible que el cuerpo del bucle ni siquiera se ejecute una vez.
sintaxis
La sintaxis para crear un bucle WHILE en Microsoft Access utilizando la instrucción WHILE…WEND es:
While condition {...statements...} Wend
parámetro o parámetro
La condición se prueba cada vez que pasa por el bucle. Si la condición se evalúa como VERDADERO, se ejecuta el cuerpo del bucle. Si la condición se evalúa como FALSO, termine el bucle. Las sentencias ejecutan las sentencias de código para cada bucle.
devolver los bienes
La instrucción WHILE…WEND crea un bucle WHILE en VBA.
aplicar para
La instrucción WHILE…WEND está disponible en las siguientes versiones de Microsoft Access:
- Acceso 2019, Acceso 2016, Acceso 2013, Acceso 2010, Acceso 2007, Acceso 2003, Acceso XP, Acceso 2000
Ejemplo en código VBA
La declaración WHILE…WEND solo se puede usar en código VBA en Microsoft Access.
Veamos cómo crear un bucle WHILE en Microsoft Access.
MIENTRAS bucle
Por ejemplo:
Sub While_Loop_Example Dim LCounter As Integer LCounter = 1 While LCounter < 10 MsgBox (LCounter) LCounter = LCounter + 1 Wend End Sub
En este ejemplo, el bucle WHILE está controlado por la condición While LCounter < 10
Esta condición se prueba cada vez que se pasa por el bucle. Si la condición es VERDADERA, el código VBA mostrará un cuadro de mensaje con el valor de la variable LCounter. Si la condición es FALSA, el ciclo termina. Este código mostrará 9 cuadros de mensaje con los siguientes valores: 1, 2, 3, 4, 5, 6, 7, 8 y 9. Una vez que LCounter llegue a 10, terminará el bucle.
Bucle WHILE doble
Puede anidar bucles WHILE en VBA. Esto le permite tener un bucle doble con 2 condiciones diferentes que se evaluarán.
Por ejemplo:
Sub Double_While_Loop_Example Dim LCounter1 As Integer Dim LCounter2 As Integer LCounter1 = 1 LCounter2 = 6 While LCounter1 < 5 While LCounter2 < 9 MsgBox (LCounter1 & "-" & LCounter2) LCounter2 = LCounter2 + 1 Wend LCounter2 = 6 LCounter1 = LCounter1 + 1 Wend End Sub
Aquí tenemos 2 bucles WHILE. El ciclo WHILE externo está controlado por la variable LCounter1. El bucle interno WHILE está controlado por la variable LCounter2.
En este ejemplo, el ciclo WHILE externo se repetirá 4 veces (comenzando en 1 y terminando en 4), mientras que el ciclo WHILE interno lo hará 3 veces (comenzando en 6 y terminando en 8). En el bucle interno, el código muestra un cuadro de mensaje con los valores LCounter1-LCounter2 cada vez. Entonces, en este ejemplo, se mostrarán 12 cuadros de mensaje con los siguientes valores: 1-6, 1-7, 1-8, 2-6, 2-7, 2-8, 3-6, 3-7, 3 – 8, 4-6, 4-7 y 4-8.
Notará que cuando salimos del ciclo WHILE interno, restablecemos el contador del ciclo WHILE interno nuevamente a 6 usando la siguiente declaración LCounter2 = 6
Esto es para asegurar que el ciclo interno WHILE se ejecutará nuevamente porque LCounter2 será igual a 9 después de salir del ciclo interno WHILE por primera vez. Si dejamos el valor de LCounter2 en 9, la condición del código de bucle interno WHILE se evaluará como FALSO y terminará el bucle cada vez que lo haga.