Confirm Access Record Changes

vb123.com

Garry Robinson's Popular MS Access, Office and VB Resource Site

RSS & Newsletter
Join our XML/RSS Newsfeed or sign up for our informative newsletter on Office Automation, Access and VB topics
Read More

Get Good Help
If you need help with a database, our Professionals could be the answer
Read More

Is Your Database Corrupt ?
If you have a corrupt database, Try our Access Recovery service

The Workbench Find out who has your database open, start the correct version of Access, easy compacting and backups, change startup options, mde compile, shutdown database Read and Download

The Toolshed
Searchable help file comprising of all the information at vb123.com plus hidden downloads etc. Read More

The Toolbox
Libraries of software that we regularly import into our projects. Enhances the Toolshed More..

Upsize to SQL
Upsize to SQL Server 2005 or 2008 or improve the performance of your Access to SQL Server application
Read More

DryToast New
Backup and query your BaseCampŽ projects
Read More

Datamining/Graphs
Explore your data with this versatile graphing and data mining shareware tool. Read More

Garry's Blog
Find out a few other things that Garry has been writing about Microsoft Access. Read more

About The Editor 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
Contact Us ...

Search ...

or try our new Expression Web
vb123.com.au

Confirming Changes To Records

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/graf/