Uso del controllo della casella di controllo
-
21-12-2019 - |
Domanda
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
. Soluzione
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.