Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

The Undo event executes before changes to a row are undone

Private Sub Form_Undo(Cancel As Integer)      If MsgBox("You Have Attempted to Undo Changes " & _          "to the Current Row.  Would You Like to Proceed " & _          "with the Undo Process?", _          vbYesNo) = vbYes Then          'If he responds yes, proceed with the undo          Cancel = False      Else          'If he responds no, cancel the undo          Cancel = True      End If End Sub