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
Lascia un commento