Access - Codigo !!!

Hola disculpen, tengo varios formularios y en cada formulario, tengo un boton de busqueda, el cual hace visibles cuadros de texto según el numero que indoca la busqueda, el problema es que tengo mas de 60 cuadros de texto, y utilizo la siguiente condición :

If Etiqueta247.Caption = "1" Then
c1.Visible = True
d1.Visible = True
cc1.Visible = True
uc1.Visible = True
canti1.Visible = True
mone1.Visible = True
pt1.Visible = True
flete1.Visible = True
cambiom1.Visible = True
origen1.Visible = True
End If

pero hago una condición por cada numero desde el 1 hasta el 40 y el codigo es demasiado, me manda un error, que me dice que el procedimiento es demasiado largo, que lo divida, pero no se como ni a que se refiera, alguien me puede ayudar y explicar ????...

GRACIAS ...

El error que estás experimentando ("procedimiento demasiado largo") se refiere a que la longitud del código en tu procedimiento es excesiva y está superando los límites permitidos en Access. Para resolver este problema, puedes reorganizar tu código y utilizar estructuras de control más eficientes. Aquí tienes una forma de abordar tu situación utilizando un bucle y arreglos:

En lugar de tener múltiples bloques `If` para cada número, puedes utilizar un bucle `For` para recorrer todos los números y un arreglo para manejar las propiedades `Visible` de los controles. Aquí tienes un ejemplo de cómo podrías hacerlo:


Este código asigna todos los cuadros de texto a un arreglo y luego utiliza un bucle `For` para recorrer el arreglo y establecer la propiedad `Visible` de cada cuadro de texto según el valor de `Etiqueta247.Caption`.

Este enfoque te permite reducir la longitud del código y evitar la necesidad de repetir bloques `If` para cada número. Además, si necesitas agregar más cuadros de texto en el futuro, solo necesitas actualizar el arreglo `cuadros` y el bucle `For`, en lugar de agregar más bloques `If`.

Recuerda que este es solo un ejemplo y puedes ajustar el código según tus necesidades específicas. Además, asegúrate de tener una copia de seguridad de tu base de datos antes de realizar cambios significativos en el código.