vb123.com.au
Users will sometimes make changes to important data and not be aware that they have made those changes. The following subroutine can be used on most forms to come up with a confirmation message.
Open the form in design view
Select the menu item View ... Code
Go to the very bottom of the code and cut and paste the following
Private Sub Form_BeforeUpdate(Cancel As Integer)
' Confirm with user that this record is to be modified
Dim updRecord As Byte
updRecord = MsgBox("Confirm Amounts record change", vbOKCancel, "Record Modification")
If updRecord = vbCancel Then
Cancel = True
End If
End Sub
You should now get a message every time you change or add a record.
Try out our popular Access shareware Graf-FX
http://www.vb123.com/explore
Get Good Help Here
If you need help with a database or
Office programming,
our Professionals could be the answer because we have worked on many
similar solutions
Frontpage Conversions
We have converted vb123.com to Expression Web,
contact us if we can help you move to the latest Microsoft web tool.
About The Editor ~ Contact Us
Garry Robinson writes for a number
of popular computer magazines, is now a book author and has worked on
100+ Access databases. He is based in Sydney, Australia