Acceso MS: declaración FOR…NEXT

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.

Acceso MS: declaración FOR…NEXT

Este tutorial de MSAccess describe cómo usar Access FOR… SIGUIENTE instrucción Cree un bucle FOR en VBA usando sintaxis y ejemplos.

describir

La instrucción FOR…NEXT de Microsoft Access se utiliza para crear un bucle FOR de modo que pueda ejecutar el código VBA un número fijo de veces.

sintaxis

La sintaxis para crear un bucle FOR en Microsoft Access mediante la instrucción FOR…NEXT es:

For counter = start To end [Step increment]
{...statements...}
Next [counter]

parámetro o parámetro

contador La variable de contador de bucle. inicio El valor inicial del contador. end El valor final del contador. Incremento opcional. El valor por el cual el contador se incrementa cada vez que pasa por el ciclo. Puede ser positivo o negativo. Si no se especifica, se incrementa de forma predeterminada en 1, de modo que cada pasada por el ciclo incrementa el contador en 1. Las sentencias ejecutan sentencias de código cada vez que pasa por el bucle.

devolver los bienes

La instrucción FOR…NEXT crea un bucle FOR en VBA.

aplicar para

La instrucción FOR…NEXT 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 FOR…NEXT solo se puede usar en código VBA en Microsoft Access.

Veamos cómo crear bucles FOR en Microsoft Access, comenzando con bucles simples, dobles y triples, y luego exploremos cómo cambiar el valor utilizado para incrementar el contador en cada bucle.

bucle único

La implementación más simple de un bucle FOR es usar la instrucción FOR…NEXT para crear un solo bucle. Esto le permitirá repetir el código VBA un número fijo de veces.

Por ejemplo:

Sub Single_Loop_Example

   Dim LCounter As Integer

   For LCounter = 1 To 8
      MsgBox (LCounter)
   Next LCounter

End Sub

En este ejemplo, el bucle FOR está controlado por la variable LCounter. Se repetirá 8 veces, comenzando en 1 y terminando en 8. Cada vez en el bucle, muestra un cuadro de mensaje con el valor de la variable LCounter. Este código mostrará 8 cuadros de mensaje con los siguientes valores: 1, 2, 3, 4, 5, 6, 7 y 8.

Ciclo único – Incremento de cambio

De forma predeterminada, un bucle FOR incrementará su contador de bucles en 1, pero esto se puede personalizar.puedes usarlo STEP increment Cambie el valor utilizado para incrementar el contador. El incremento de un bucle FOR puede ser positivo o negativo.

incremento positivo

Primero veamos un ejemplo de cómo incrementar el contador de un bucle FOR en un valor positivo.

Por ejemplo:

Sub Increment_Positive_Example

   Dim LCounter As Integer

   For LCounter = 0 To 30 Step 5
      MsgBox LCounter
   Next LCounter

End Sub

En este ejemplo, usamos Step 5 Cambie el incremento a 5 en el bucle FOR. Esto significa que el ciclo FOR comenzará en 0, se incrementará en 5 y finalizará en 30. El código mostrará 7 cuadros de mensaje con los siguientes valores: 0, 5, 10, 15, 20, 25 y 30.

incremento negativo

Ahora, veamos cómo incrementar el contador del bucle FOR en un valor negativo.

Por ejemplo:

Sub Increment_Negative_Example

   Dim LCounter As Integer

   For LCounter = 100 To 50 Step -10
      MsgBox LCounter
   Next LCounter

End Sub

Cuando incrementa un valor negativo, necesita que el número inicial sea el valor más alto y el número final sea el valor más bajo porque el bucle FOR contará hacia atrás. Entonces, en este ejemplo, el bucle FOR comenzará en 100, se incrementará en -10 y terminará en 50. El código mostrará 5 cuadros de mensaje con los siguientes valores: 100, 90, 80, 70, 60 y 50.

anillo doble

A continuación, veamos un ejemplo de cómo crear un bucle FOR doble en Microsoft Access.

Por ejemplo:

Sub Double_Loop_Example

   Dim LCounter1 As Integer
   Dim LCounter2 As Integer

   For LCounter1 = 1 To 3
      For LCounter2 = 5 to 8
         MsgBox LCounter1 & "-" & LCounter2
      Next LCounter2
   Next LCounter1

End Sub

Aquí tenemos 2 bucles FOR. El bucle FOR externo está controlado por la variable LCounter1. El bucle FOR interno está controlado por la variable LCounter2.

En este ejemplo, el ciclo FOR externo se repetirá 3 veces (comenzando en 1 y terminando en 3), mientras que el ciclo FOR interno lo hará 4 veces (comenzando en 5 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-5, 1-6, 1-7, 1-8, 2-5, 2-6, 2-7, 2-8, 3 – 5, 3-6, 3-7 y 3-8.

tres anillos

A continuación, veamos un ejemplo de cómo crear un triple bucle FOR en Microsoft Access.

Por ejemplo:

Sub Triple_Loop_Example

   Dim LCounter1 As Integer
   Dim LCounter2 As Integer
   Dim LCounter3 As Integer

   For LCounter1 = 1 To 2
      For LCounter2 = 4 To 5
         For LCounter3 = 7 To 9
            MsgBox LCounter1 & "-" & LCounter2 & "-" & LCounter3
         Next LCounter3
      Next LCounter2
   Next LCounter1

End Sub

Aquí tenemos 3 bucles FOR. El bucle FOR más externo está controlado por la variable LCounter1. El siguiente bucle FOR está controlado por la variable LCounter2. El bucle FOR más interno está controlado por la variable LCounter3.

En este ejemplo, el bucle FOR más externo se repetirá 2 veces (comenzando en 1 y terminando en 2), el siguiente ciclo FOR se repetirá 2 veces (comenzando en 4 y terminando en 5) y el ciclo FOR más interno se repetirá 3 veces ( comienza a las 7 y termina a las 9).

En el bucle más interno, el código muestra un cuadro de mensaje cada vez con los valores de LCounter1-LCounter2-LCounter3. Este código mostrará 12 cuadros de mensaje con los siguientes valores: 1-4-7, 1-4-8, 1-4-9, 1-5-7, 1-5-8, 1-5-9, 2 – 4-7, 2-4-8, 2-4-9, 2-5-7, 2-5-8 y 2-5-9.

(Visited 6 times, 1 visits today)