I Have a form which i want to track how many times it has been revised.
In code I can get it to date stamp but cannot get the revision to increase.
I am at a loose end.
I have tried a few permutations, anyway here is the code.
The Me![Revision] - Me![Revisio] + 1 Doen't work
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Check if any changes have been made to the form.
If Me.Dirty = False Then 'do nothing
If Me![Last Change Log] = DATE Then 'do nothing
Me![Last Change Log] = DATE
'Check that the revision count has not already been started
Me![Revision] = Me![Revision] + 1
Can anyone suggest a better way to count that works and increments each time a revision is made.
On the first revision the feild is still blank.
On any future updates and changes the feild still does not increment.
If the revision is two days apart the date will change but the revision feild still remains blank.
Hence my problem.
Your help and responce saved me.
I also see that microsoft reserves certain words for its own
functions Revision seems to be one, and Date another.
I'm no expert in VBA, more a do it and try.
It's a job thats been thrust upon me that I accepted with open arms to advance.
I know enough to get me into trouble.