Promt user do you wish to save changes

[TheViruz30]

I have a basic data entry form which is called frmPeople which has the following

First Name
Last Name
Address
City
State
Zip

What i want to do is if user changes/edits any of the information will prompt user do you wish to save changes yes/no

If user clicks yes will save info
if user clicks no will restore original info

 

[RV]

Put this code in the Before Update event of your form:

Private Sub Form_BeforeUpdate(Cancel As Integer) 

Dim intResponse As Integer    
Dim strMsg As String    

strMsg = "Do you wish to save changes?"    
intResponse = MsgBox(strMsg, vbYesNo + vbExclamation, "Save Changes")    If intResponse = vbNo Then   
Me.Undo    
Else
End If 

End Sub

You'll also need ways to prevent your users from either closing the form or closing Access.

RV

 

[TheViruz30]

Code Not Working

I Did as you said but the following code is in red so i attached a sample database.

intResponse = MsgBox(strMsg, vbYesNo + vbExclamation, "Save Changes") If intResponse = vbNo Then

See Attached


FYI

The Database i'm current working on is in MS 2000

 

[RV]

The If statement should start on a new line:

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim intResponse As Integer
Dim strMsg As String

strMsg = "Do you wish to save changes?"
intResponse = MsgBox(strMsg, vbYesNo + vbExclamation, "Save Changes")
If intResponse = vbNo Then
Me.Undo
Else
End If

End Sub

RV

 

[rhett7660]

Rv..

Thank you, just what I was looking for.

R~