Confirm before Update 1

[njitter]

Hello,

i have a form with a Boolean Box on it. I want the user to confirm the change of the value before updating the database.

I have this now:

Private Sub History_BeforeUpdate(Cancel As Integer)
If MsgBox("Change History status?", vbOKCancel, "History&quot= vbCancel Then
Me.History.Undo
End If
End Sub

This does not work. I get the Popup but the Undo does not work.. Any suggestions?

Regards,

Njitter

---
It's never too late to do the Right thing

 

[fneily]

I have this on the BeforeUpdate event of the form. You can change it:

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Data has changed."
strMsg = strMsg & "@Do you wish to save the changes?"
strMsg = strMsg & "@Click Yes to Save or No to Discard changes."
If MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?&quot = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo
End If
End Sub

Neil

 

[njitter]

Neil,

i want the window to appear on the Boolean Flag. It's to remind the users of the impact of the flag they are changing.

Private Sub History_BeforeUpdate(Cancel As Integer)

Dim strMsg As String
    strMsg = "Data has changed."
    strMsg = strMsg & "@Do you wish to change the status?"
    strMsg = strMsg & "@Click Yes to Change or No to Discard changes."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Change Status?") = vbYes Then
        'do nothing
    Else
        DoCmd.RunCommand acCmdUndo
     End If
End Sub

If i execute this form i get:

---

Run-time error '2046':

The command or action 'Undo' isn't available now.

* You may be in a read-only database or an unconverted database from an earlier version of DMF Numbers en Modules.
* The type of object the action applies to isn't currently selected or isn't in the active view.

---

Any suggestions?

Regards,

Njitter

---
It's never too late to do the Right thing

 

[njitter]

I fixed it by doing it the other way around:

Private Sub History_AfterUpdate()
Dim Old_Value

Old_Value = History.OldValue

Dim strMsg As String
    strMsg = strMsg & "@Do you wish to change the status?"
    strMsg = strMsg & "@Click Yes to Change or No to Discard changes."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Change Status?") = vbYes Then
       'Continue
    Else
        History.Value = Old_Value
     End If
End Sub

This way the status is switched back to the old value if 'No' is selected, otherwise the status stays the same.

Njitter

---
It's never too late to do the Right thing

 

[Jinan74]

hello,
suppose i just want to have this message popup when it's an old record & not a new 1, HOW can i do it?
Jinan74

 

[TonyJollans]

Hi njitter,

The reason your Undo doesn't work is because there isn't anything to undo. Your (original) code was in the BeforeUpdate event. In this event you just set Cancel to True to stop the update happening ..

Private Sub History_BeforeUpdate(Cancel As Integer)

Dim strMsg As String
    strMsg = "Data has changed."
    strMsg = strMsg & "@Do you wish to change the status?"
    strMsg = strMsg & "@Click Yes to Change or No to Discard changes."
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Change Status?") = vbYes Then
        'do nothing
    Else

Cancel = true

     End If
End Sub

Enjoy,
Tony

------------------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading FAQ222-2244 before you ask a question.

 

[MakeItSo]

You can also use
DoCmd.CancelEvent
to abort deletion/update/insertion.

MakeItSo

 

[Jinan74]

every1 , my case remember it?

 

[MakeItSo]

Sorry Jinan,
it was such a short line, guess I overread it.

Simply surround the message popup with
If not Me.NewRecord
..
End If

 

[Jinan74]

thank u Make it so, that's the answer i've been looking 4, i grant u a star