Uso del controllo della casella di controllo

Question

Ho creato un controllo sotto forma di una casella di controllo che attivandolo, alcuni controlli sono resi visibili .. Dopo aver disattivato, i controlli sono resi invisibili.Il mio problema è sul carico del modulo.La prima volta che seleziona la casella di controllo (sull'evento MouseDown), non succede nulla che impedisce che l'utente non è riuscito, e quindi riselezionalo .. Sul relelect, funziona bene .. Immagino che io abbia bisogno di fare qualche tipo di aggiornamento da qualche parte ma ioNon posso capire come .. Qualcuno potrebbe essere in grado di darmi una mano?Sotto è il mio codice .. Grazie

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

Suggerirei di continuare a spostarsi al codice per il proprio sub, qualcosa come Sub UpdateControls ().È quindi possibile chiamare quella sub in due posti: Form_Current e l'evento _AfterUpdate di qualsiasi controllo che dovrebbe cambiare lo stato.Rimuovere la linea Me.Form.Refresh.Form_Current Fires quando il primo record viene visualizzato e ancora in qualsiasi momento l'utente naviga.AfterUpdate si accende quando la casella di controllo viene modificata all'interno di un record.