MS Access: MIENTRAS… Declaración WEND

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 < 10Esta 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 = 6Esto 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.

(Visited 10 times, 1 visits today)