RE:imprimir registro actual
Antes que nada debes saber que tipo de control hay en tu formulario que puedan ser activados o desactivados: cuadros de lista, cuadros combinados, grupos de opción, botones de opción, subformularios, etc.
Puedes crear un código para el evento "después de actualizar" del checkbox. Supongamos que tienes un checkbox cuya propiedad nombre es "DesactivarControles" y tienes los siguientes tipos de control en tu formulario: cuadros de lista, cuadros combinados, grupos de opción y otras casillas de verificación. Entonces, puedes crear el siguiente procedimiento de evento para la propiedad "Después de Actualizar":
Private Sub DesactivarControles_AfterUpdate()
Dim ctl As Control
Dim valor As Boolean
If DesactivarControles.Value = true then
valor = False ' Valor usado para desactivar los controles.
else
valor = True ' Valor usado para activar los controles.
end if
For each ctl In Me.controls
If TypeOf ctl Is Textbox Then
ctl.Enabled = valor
elseIf TypeOf ctl Is ComboBox Then
ctl.Enabled = valor
elseIf TypeOf ctl Is ComboBox Then
ctl.Enabled = valor
elseIf TypeOf ctl Is OptionGroup Then
ctl.enabled = valor
elseIf TypeOf ctl Is CheckBox then
If ctl.Name = "DesactivarControles" Then
ctl.Enabled = True ' Este control siempre estará activado.
else
ctl.Enabled = valor ' Se desactiva cualquier otro checkbox
End If
Next ctl
End sub
Probé este código en un formulario y funcionó bien. Si tienes alguna duda puedes escribirme. Espero te sea útil.