Routine per lo sviluppo di database per la qualità

Chiedere conferma prima di salvare i dati 
Access ha la comodità e la scomodità, di salvare tutti i dati inseriti in una maschera non appena la si chiude.
Può capitare quindi di modificare involontariamente dei dati senza accorgersene.
Con questa semplice routine appare il messaggio che chiede se si vuole salvare la modifica: si può rispondere Sì o No.

L'evento da utilizzare nella maschera è Prima di aggiornare (BeforeUpdate in inglese).

Copiate e incollate la routine sotto riportata in una maschera nell'evento Prima di aggiornare e vedrete come funziona.

L'esempio di questo tutorial è molto semplice.

ROUTINE

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim Risposta As Integer
Dim Messaggio As String

Messaggio = "Vuoi salvare le modifiche?"
Risposta = MsgBox(Messaggio, vbQuestion + vbYesNo, "ISI s.r.l.")

Select Case Risposta

Case vbYes
'esegue il comando dato prima del salvataggio,
'per esempio chiude la maschera

Case vbNo
DoCmd.RunCommand acCmdUndo
'annulla i dati inseriti

End Select

End Sub

Scarica il database Access 2000 d'esempio

 
Ritorna

Chiedi aiuto