Access - Activar/desactivar campos desde VBA

 
Vista:

Activar/desactivar campos desde VBA

Publicado por eduardo (11 intervenciones) el 15/02/2010 11:24:48
Hola!!

Tengo un formulario principal con varios subformularios dentro de un tab control (1 subformulario por cada tab). Al inicio los campos del formulario principal estan bloquedos, despues con un boton "modifica" los activo. Quisiera hacer lo mismo para los subformularios pero no lo consigo. Resumiendo, que los campos del formulario principal y subformularios esten bloqueados, para despues activarlos con el boton "modifica"
A todos los campos del formulario y de los subformularios le he dado un Tag "dato_t".
'Sub para bloquear los campos:

Private Sub Form_Current()
Dim ctl As Control
For Each ctl In Me
If (ctl.Tag = "dato_t") Then
ctl.Enabled = False
ctl.Locked = True
End If
Next ctl
Cmd_modifica_d.Caption = "Modifica"
Me.Id_istituto_r.SetFocus
Cmd_annulla_d.Visible = False
End Sub

'Boton "modifica"

Private Sub Cmd_modifica_d_Click()
Dim ctl As Control
If Cmd_modifica_d.Caption = "Modifica" Then
For Each ctl In Me
If (ctl.Tag = "dato_t") Then
ctl.Enabled = True
ctl.Locked = False
DoCmd.RunCommand Command:=acCmdSaveRecord
End If
Next ctl
Cmd_modifica_d.Caption = "Accetta"
Cmd_annulla_d.Visible = True
Else
Me.Refresh
For Each ctl In Me
If (ctl.Tag = "dato_t") Then
ctl.Enabled = False
ctl.Locked = True
End If
Next ctl
Cmd_modifica_d.Caption = "Modifica"
Cmd_modifica_d.SetFocus
Cmd_annulla_d.Visible = False
End If

Falta la parte de los subformularios, probe a bloquer los campos como con el formulario principal, pero desde el boton no logro activarlos, alguna idea??
les agradezco de antemano.
eduardo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder