Com fer perquè Access sol·liciti confirmació de modificació d'un registre d'un formulari mitjantçant codi VBA
Podem col·locar el següent codi en l'event "Antes de actualizar" ( BeforeUpdate ) del formulari i ens permetrà controlar si s'ha fet alguna modificació abans de passar al següent registre o intentar tancar el formulari. En el cas que s'hagi modificat el registre ens demana si volem, o no, guardar els canvis.
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMissatge As String
Dim intResposta As Integer
If Me.Dirty Then
strMissatge = "Desitges guardar els canvis?"
intResposta = MsgBox(strMissatge, vbQuestion + vbYesNo, "Atenció!")
If intResposta = vbNo Then
RunCommand acCmdUndo
End If
End If
End Sub
Dim intResposta As Integer
If Me.Dirty Then
strMissatge = "Desitges guardar els canvis?"
intResposta = MsgBox(strMissatge, vbQuestion + vbYesNo, "Atenció!")
If intResposta = vbNo Then
RunCommand acCmdUndo
End If
End If
End Sub
Comentaris
Publica un comentari a l'entrada