Simplificar y abreviar código de formulario para optimizarlo 1

Depro: Ya veo que la pregunta la diriges a Sveinbjorn, y seguro que el te contestará, pero dado que a mi me sale la pregunta sugerida por el sistema te comento mi punto de vista.

Para todos los controles TextBox, como en éste caso yo los identificaría con unas letras iniciales únicas, por ejemplo TxtAño, TxtArmario ... etc.

Después donde tienes todo ese código yo pondría.

Dim Ctrl As Access.Control

For Each Ctrl In Me.Controls
If Left(Ctrl.Name,3) =  "Txt" Then
Ctrl.Locked = True
End If
Next Ctrl

y para desbloquearlos igual pero Ctrl.Locked = False

Mis saludos y Feliz año >> Jacinto

Qué buenísima idea Jacinto

De esta manera que me dices puedo bloquear solo los controles que necesito sin tener que bloquear todos los textbox, sino solo los que contienen esas letras iniciales únicas que añadiré.

Es fantástico... realmente me has evitado tener que escribir muchísimas más líneas innesarias. GRACIAS

¿Podrías darme tu opinión también en la pregunta "simplificar código para optimizarlo y agrupar not isnull?

y por supuesto FELIZ AÑO!!!

Puedes usar un bucle para recorrer los distintos controles y bloquear los de un tipo determinado. Sería algo así:

Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acListBox Then
ctl.Locked=True
End If
Next ctl

Esto te bloquearía todos los textbox, combobox y listbox de tu formulario.

Un saludo.

Un nuevo foro de Access, no dudes en pasarte: http://nksvaccessolutions.com/Foro/ 

Antes que nada... FELIZ AÑO Sveinbjorn El Rojo!!!

El problema que tengo es que no quiero bloquear todos los textbox sino solo algunos, en realidad solo los textbox asociados a los campos de la tabla "Libros" a la que está vinculada el formulario.

Se podría hacer para que solo se bloquearan algunos textbox y no todos sin tener que repetir en cada textbox lo de .locked true

Me imagino que usando una función función a la que le pasaría el parámetro (el true o el false) y así aplicara el valor a cada uno de los objetos implicados.

Podrías indicarme cómo sería la función si es posible

Ya me dices y muchas gracias por la ayuda

A ver si nos aclaramos... primero dices:

Cuando abro un formulario quiero que todos los campos estén bloqueados para no poder modificarlos al entrar en ellos a no ser que pulse un botón...

Y ahora que no los quieres bloquear todos... XD

Sí, se podría hacer si le añades un prefijo o sufijo concreto a los que quieres bloquear y modificas el código anterior. Si por ejemplo a los que quieres bloquear les añades al final del nombre _lck, el código sería:

Public Sub Bloqueado(elEstado As Boolean)
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.Name LIKE "*_lck" Then
ctl.Locked=elEstado
End If
Next ctl
End Sub

Cuando los quieras bloquear pones:

Bloqueado True

y para desbloquearlos:

Bloqueado False

Hola Sveinbjorn

Cuando decía: "Cuando abro un formulario quiero que todos los campos estén bloqueados para no poder modificarlos al entrar en ellos a no ser que pulse un botón..."

Me refería a todos los textbox asociados a los campos de la tabla "Libros" con la que está vinculada el form, y me refería con lo de campos a TODOS los campos de la tabla "Libros" y no a todos los textbox del form, solo a aquéllos asociados a los campos de la tabla.

No todos los textbox que aparecen en el formulario tienen como origen del control los campos de la tabla "Libros". Fallo mío por no detallarlo bien.

La verdad es que no me expliqué muy bien, disculpa, a veces uno escribe rápido y no se explica correctamente.

En todo caso tu respuesta como siempre es perfecta.

Muchisimas gracias