I have created an input form that uses a command button as a cancel button. Presently on pressing the button it relocks the form and the form becomes a read only form again. My problem is that although users are able to cancel say an Add event using this button any changes made are still recorded.

Is there such code I could add to this to inform access not to save any changes made by the user.

My code looks like this:-

Private Sub btnCancel_Click()

    Me.Staff_Forenametxtbox.Locked = True ' Locked staff forname text box
    Me.Staff_Surnametxtbox.Locked = True ' Locked staff surname text box
    Me.Staff_Servicetxtbox.Locked = True ' Locked service text box
    Me.StaffCheckBox.Locked = True ' Locked Staff checkbox
    Me.VolunteerChexkbox.Locked = True ' Locked Volunteer checkbox
    Me.ACTIVITIES_SUBFORM_FORALL.Locked = True ' Locked users from making amendments to Activity records
    Me.btnSaveRec.Enabled = False ' Disable save button
    Me.btnDelete.Enabled = False ' Disable delete button
    Me.btnAdd.Enabled = True ' Enable add button
    Me.PreRecbtn.Enabled = True ' Enable previous button
    Me.nextBtn.Enabled = True ' Enable next rec button
    Me.Combo89.Enabled = True ' Enable dropdown surname search
    Me.status_bar.Caption = "CURRENT RECORD LOCKED" ' Change record status text
    Me.unlockBtn.Enabled = True ' Enable unlock button
    Me.nextBtn.SetFocus
    Me.btnCancel.Enabled = False ' Disable cancel button
    DoCmd.GoToRecord , , acFirst ' Return to first record in database

End Sub



Gaz

__________________
Gaz

A couple of ideas (assuming bound form). After the update of the record it is too late to cancel. The best place to ask whether you want changes to be written to the database is in the Before_Update event of the form. When this event fires is the time to say yea or nay. If you place a msgbox question, "Accept changes" and set Cancel = True, the data will not be written. Something like a me.Undo or an undo on each control should make the controls revert.

Ciao
Jürgen Welz
Edmonton AB Canada
[email protected]