Cancel command won't undo all changes made to a form listing multiple records

[jmarcrum]

Hello all,

i have a continuous form that displays about 1000 records and opens when I click a button. When the form opens, the user has the option of checking a checkbox that is located beside each record. The checkbox is labeled "Move" (for moving multiple records at a time to another year). Of course, the checkbox is set as a control "moveRecord" on a table that the query is pulling from. So if the user checks one record, then clicks to another record and checks it as well, the first record is automatically saved. If the user decides to check 10 or 20 records, then decides, "OOPS, i may have made some mistakes, i want to cancel!"

i run into a problem....

I have a button on the form that says "cancel." However, if the user clicks that button, the only record that cancels is the last checkbox that was checked. I want all of the checkboxes to disappear when the user opens up the same form again. As it stands right now, the 19 or so other checkboxes still remain as saved into the table.

Please help! Thank you in advance!

I've tried multiple things even the ON DIRTY execute...here's what I have now

Private Sub cmdCancel_Click()
On Error GoTo errHandle
Dim intProcced As Integer
 
'Warn the user that any information entered will be lost, then if the user responds that it is
'ok, erase the record and close the form
 
intProcced = MsgBox("Warning: Any changes made or any information entered will not be saved.", vbOKCancel, "Warning")
    If intProcced = 2 Then
        Exit Sub
    End If
 
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer1X
 
DoCmd.Close
 
Exit Sub
 
errHandle:
If Err.Number = 2046 Then
    DoCmd.Close
    Exit Sub
Else
    'Print the error message and send an email to Administrator
    SendErrorMsg "cmdCancel_Click on frmEnterNewFeeder", Err.Number, Err.Description
    MsgBox Err.Description
End If
Exit Sub
 
End Sub

[Rabbit]

Please do not double post your questions, your other thread will be deleted.

[Rabbit]

Once you change records, it is automatically saved and the changes are committed and can not be undone. You have two options. One is to not use a dynaset and save the entire recordset's changes when needed. This I do not recommend, too many complications. The second is to run an update query that sets all the checkboxes to false if they click cancel.

[jmarcrum]

Please do not double post your questions, your other thread will be deleted.

It's not a double post, read it all the way through before making comments.

[jmarcrum]

Hey thanks for your tip Rabbit...

I modified my code to look like this....

Private Sub cmdCancel_Click()
On Error GoTo errHandle
 
Dim intProcced As Integer
 
'Warn the user that any information entered will be lost, then if the user responds that it is
'ok, erase the record and close the form
 
intProcced = MsgBox("Warning: Any changes made or any information entered will not be saved.", vbOKCancel, "Warning")
    If intProcced = 2 Then
        Exit Sub
    End If
 
If Me.Dirty = True Then
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qryMoveFeedersFalse"
    DoCmd.SetWarnings True
    DoCmd.Close
    Exit Sub
Else
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qryMoveFeedersFalse"
    DoCmd.SetWarnings True
    DoCmd.Close
    Exit Sub
End If
 
errHandle:
If Err.Number = 2046 Then
    DoCmd.Close
    Exit Sub
Else
    'Print the error message and send an email to Administrator
    SendErrorMsg "cmdCancel_Click on frmEnterNewFeeder", Err.Number, Err.Description
    MsgBox Err.Description
End If
 
Exit Sub
 
End Sub

[Rabbit]

It's not a double post, read it all the way through before making comments.

The only difference I saw was you figured out that once you change records, it is automatically saved and the changes are committed and can not be undone.

[Rabbit]

This part is redundant. There's no need to check for Dirty.

Private Sub cmdCancel_Click()
If Me.Dirty = True Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryMoveFeedersFalse"
DoCmd.SetWarnings True
DoCmd.Close
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryMoveFeedersFalse"
DoCmd.SetWarnings True
DoCmd.Close
Exit Sub
End If
 

[jmarcrum]

This part is redundant. There's no need to check for Dirty.

Private Sub cmdCancel_Click()
If Me.Dirty = True Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryMoveFeedersFalse"
DoCmd.SetWarnings True
DoCmd.Close
Exit Sub
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryMoveFeedersFalse"
DoCmd.SetWarnings True
DoCmd.Close
Exit Sub
End If
 

What is the person opens the form, makes NO changes and then clicks cancel.

[Rabbit]

What is the person opens the form, makes NO changes and then clicks cancel.

Well, the thing is that the query runs no matter what happens. If they make no changes and click cancel, it unchecks all the boxes. If they make a change and click cancel, it unchecks all the boxes. So either way, it unchecks all the boxes.