Uso del control de la casilla de verificación

Question

He creado un control en forma de una casilla de verificación que al activarlo, ciertos controles se hacen visibles. Al desactivarlo, los controles se hacen invisibles.Mi problema está en la carga de la forma.La primera vez que se selecciona la casilla de verificación (en el evento Mousedown), no pasa nada forzando al usuario para deseleccionarlo, y luego resellarlo .. En la selección, funciona bien. Me imagino que necesito hacer algún tipo de actualización en algún lugar, pero yoNo puedo averiguar cómo ... ¿podría alguien poder darme una mano?A continuación se muestra mi código .. gracias

Private Sub cmdAccounting_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.cmdAccounting = 0 Then
    cost.Visible = True
    Etichetta35.Visible = True
    Etichetta37.Visible = True
    Etichetta43.Visible = True
    qty.Visible = True
    tot.Visible = True
    lineaAccounting1.Visible = True
    lineaAccounting2.Visible = True
    Me.FileSaved.Visible = False
    Me.lblFileSaved.Visible = False
Else
    cost.Visible = False
    Etichetta35.Visible = False
    Etichetta37.Visible = False
    Etichetta43.Visible = False
    qty.Visible = False
    tot.Visible = False
    lineaAccounting1.Visible = False
    lineaAccounting2.Visible = False
    Me.FileSaved.Visible = True
    Me.lblFileSaved.Visible = True

End If
Me.Form.Refresh
End Sub

Answer 1

Le sugiero que siga adelante al código a su propio sub, algo como Sub UpdateControls ().Luego, puede llamar a ese sub en dos lugares: Form_Current y el evento _AfterUpdate de cualquier control que debe cambiar el estado.Retire la línea Me.Form.Refresh.Form_current Fire cuando se muestra el primer registro y nuevamente en cualquier momento que el usuario navega.AfterUpdate se disparará cuando se cambie la casilla de verificación dentro de un registro.