Home  Fees/Services  Access Templates  Tutorials  Access Download  Articles  Search  Contact  Privacy  Links

Visual Basic Tutorial
   
Access Programming Examples
Save Field Values Before Update

Old Value New Value Visual Basic Visual Basic for Microsoft Access
Microsoft Access Tutorial>Visual Basic Tutorial>Field Value New-Old Download VBA Example  



VB Age Calculation
VB6 Change Case
Calculate Running Sum
VB Concatenate Records
VB CreateQueryDef
VB6 Database Path
Detail-Master Update
VB Field Validation VBA
VB Field Value New-Old
VB FindFirst Recordset
Get Version Number
VB Global Parameters
Global Variables
Labels as Links
VB Launch Outlook
VB List Box Files List
VB Mail Merge
OutputTo Crosstab
VB Read Email Access
VB Sort Recordset
VB Recordset Filters
VB Reference Form Field
RTF Report Email
VB Select Case
Email From Access
VB Transaction Processing

Visual Basic Function Examples


Current Value vs Previous Field Value

Compare original value of field to new value of field in the
after update event

Ever wonder why it is so difficult to figure out what the original value of a form field was after the user updates the field?

I thought that the Before Update event would help me do this but using the Me.Fieldname.Oldvalue doesn't give me the old value it gives the new value!

Here is a simple way to do this:  First set up a global variable in this form just after the Option Compare Database.  In this example we dimension a string variable called hold_value.

Option Compare Database

Dim hold_value As String

Private Sub Command4_Click()  ' this line is not part of this example

Next we create an On Current event for the form:

Private Sub Form_Current()
    hold_value = Me.icount
End Sub

You may find that you get a null value error so you might want to use the following assignment to get around this little problem:

hold_value = Nz(Me.icount, "") ' those are two double quote marks together

Finally in the After Update event we have both the new and old values available for us to use:

Private Sub icount_AfterUpdate()
    MsgBox hold_value & " " & Me.icount
End Sub

It may also be useful to use this technique in the Before Update event... incase you want to do some validation checking before the value is saved to the database.


Contact Information

Programming Visual Basic Tutorial

Access Visual Basic/VB/VBA/VBScript/VB6 2007 2003 2000 All Windows Versions