Bolquear Campos Formulario Segun Condicion
Publicado por Ruben D. Pineda (12 intervenciones) el 25/01/2015 15:46:46
Cordial saludo,
De nuevo necesito su colaboracion, ya que requiero que en un formulario si en un registro el campo Chek Box denominada "CERRADA" se encuentra en estado false (0) deje activos todos los campos del formulario, pero si se encuentra activado (True (1)) me desactive ciertos campos.
Escribi el siguiente codigo en el evento "Al activar registro" del formulario en el cuel necesito activar o desactivar los campos.
Private Sub Form_Current()
If [CERRADA] = 1 Then
Me.SALIDA.Enabled = False
Me.FECHA.Enabled = False
Me.ORDEN.Enabled = False
Me.PROCESO.Enabled = False
Me.DESTINO.Enabled = False
Me.DOC_AS.Enabled = False
Me.USUARIO.Enabled = False
Me.TURNO.Enabled = False
Me.Secundario26.Enabled = False
Else
Me.SALIDA.Enabled = True
Me.FECHA.Enabled = True
Me.ORDEN.Enabled = True
Me.PROCESO.Enabled = True
Me.DESTINO.Enabled = True
Me.DOC_AS.Enabled = True
Me.USUARIO.Enabled = True
Me.TURNO.Enabled = True
Me.Secundario26.Enabled = True
End If
End Sub
No se si la funcion esta mal o si estos seleccionando mal evento en que se debe ejecutar la funcion.
De ante mano agradezco su pronta colaboracion.
Atentamente,
Ruben Pineda
[email protected]
De nuevo necesito su colaboracion, ya que requiero que en un formulario si en un registro el campo Chek Box denominada "CERRADA" se encuentra en estado false (0) deje activos todos los campos del formulario, pero si se encuentra activado (True (1)) me desactive ciertos campos.
Escribi el siguiente codigo en el evento "Al activar registro" del formulario en el cuel necesito activar o desactivar los campos.
Private Sub Form_Current()
If [CERRADA] = 1 Then
Me.SALIDA.Enabled = False
Me.FECHA.Enabled = False
Me.ORDEN.Enabled = False
Me.PROCESO.Enabled = False
Me.DESTINO.Enabled = False
Me.DOC_AS.Enabled = False
Me.USUARIO.Enabled = False
Me.TURNO.Enabled = False
Me.Secundario26.Enabled = False
Else
Me.SALIDA.Enabled = True
Me.FECHA.Enabled = True
Me.ORDEN.Enabled = True
Me.PROCESO.Enabled = True
Me.DESTINO.Enabled = True
Me.DOC_AS.Enabled = True
Me.USUARIO.Enabled = True
Me.TURNO.Enabled = True
Me.Secundario26.Enabled = True
End If
End Sub
No se si la funcion esta mal o si estos seleccionando mal evento en que se debe ejecutar la funcion.
De ante mano agradezco su pronta colaboracion.
Atentamente,
Ruben Pineda
[email protected]
Valora esta pregunta


0