RE:Como Bloqueo Registros en Formularios???
Hola Gema:
Esto que preguntas en principio puede parecer fácil de hacer, bastaría con poner la propiedad Locked del Formulario a True para bloquear todos los controles del formulario, pero entonces bloqueas tambien el Cuadro Combinado y el Botón de Comando y entiendo que solo quieres bloquear los cuadros de texto. Tambien se podría usar la misma propiedad (Locked) de cada cuadro de texto, poniéndolos a True (bloqueados) en el Evento Form_Load y en el Evento Form_Current y a False (desbloqueados) al pulsar el botón de comando, pero en este caso tienes que hacerlo en cada uno de ellos tanto para bloquear como para desbloquear y si son muchos es un royazo, aunque existe una solución más fácil y con mucho menos código que lo anterior. Prueba a hacer esto:
Dim Campos As Object ' Esto en la Sección de Declaraciones (arriba del todo)
'Al cargar el Formulario Bloquea todos los cuadros de texto
Private Sub Form_Load()
For Each Campos In Me.Controls
If TypeOf Campos Is TextBox Then
Campos.Enabled = False
End If
Next Campos
End Sub
'Al cambiar de registro tambien los bloquea todos
Private Sub Form_Current()
Form_Load
End Sub
'Al pulsar el botón de comando los desbloquea todos
Private Sub Boton_Click()
For Each Campos In Me.Controls
If TypeOf Campos Is TextBox Then
Campos.Enabled = True
End If
Next Campos
End Sub
Espero que te sirva.
Saludos
Enrique