who changed the form for the last time?

[gerard1979]

I have a field fldChange.
I have a table with users.
The initials of the users I want in this field everytime someone change the form.
How can I handle this?
I tried
Form_afterUpdate()
fldChange = Dlookup("[initials]","user", "[surname] = " & environ("username&quot).
end sub
write it by freehand so maybe mistakes in it, but this do not what I want, it changes everytime a user ONLY look at the form
Thnx in advance
Gerard

 

[LittleSmudge]

Try using the

Form_BeforeUpdate()
If Me.Dirty Then

construct.

.Dirty is only true when changes have been made.


'ope-that-'elps.

G LS

 

[gerard1979]

Nope,
the problem is, there are four tabpages on the form, the me.dirty also is true when jump to another tabpage

any other suggestions?

 

[Quehay]

Do you want to log data changes or design changes to the form? For data changes S'mudge had the perfect solution above. Just have a LASTUPDATED field (date) and a LASTUPDATEBY field that holds username. Run this in Form_BeforeUpdate as shown above et voila.

My conjecture is that the me.dirty test isn't needed as there won't be an update if the buffer hasn't been dirtied (subject to correction).

*Tabbing to pages WON'T dirty the form.
[tt]
Form_AfterUpdate()

me.[LASTUPDATE] = Date()
me.[LATUPDATEBY] = UserNameFunction

End Sub[/tt]

For Design Changes: Don't let others do it. Period. Jeff Roberts
Analysis, Design, & Implementation
RenaissanceData.com

 

[Quehay]

Please make that Before_Update[/] no endless loops needed here... Jeff Roberts
Analysis, Design, & Implementation
RenaissanceData.com