Chiedere conferma prima di salvare i dati
Access ha la comodita'/scomodita' di salvare tutti i dati inseriti in una maschera non appena la si chiude.
Puo' capitare quindi di modificare le
informazioni inserite senza accorgersene.
Con la routine di questo articolo, l'intento e' quello
di far apparire un messaggio che chiede conferma se si
vogliono salvare le modifiche effettuate.
L'evento da utilizzare nella maschera e' Prima di aggiornare
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,
"Salva dati")
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
Buon lavoro.