Log file modification

[aliaslamy2k]

Dear Colleagues,

I need a code which created a log file when any record is updated in excel, I found one similar code, but i dont know how to modify.

Private Sub EnterButton_Click()<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Dim PWord As String<o></o>
PWord = "Password"<o></o>
<o></o>
Open "C:\Password Log.txt" For Append Access Write As #1<o></o>
Print #1, Now & "- Password Attempt"<o></o>
Print #1, Application.UserName<o></o>



The log file looks this

11/21/2009 4:14:12 AM- Password attempt
02963
11/21/2009 4:17:21 AM- Password attempt
02963

But I need to change it as record updated.


Rgds,
AB

 

[ravishankar]

Hi
try

Private Sub EnterButton_Click()
Open "C:\Password Log.txt" For Append Access Write As #1
Print #1, "Record updated " at " & Now & " by " & Application.UserName
end sub

Ravi

 

[aliaslamy2k]

Dear Ravi,

Thanks a million to reply, but I am not getting time stamp. Below is the response of log file.

Record updated & Now & & Application.UserName

and secondly I have to close and re-open the workbook to get log
file updated other wise its not updating.

I need the log file to get updated once the user save the data.

Thanks,
AB

 

[ravishankar]

HI
try

Print #1,"Record updated  at " & Now & " by " & Application.UserName

ravi

 

[aliaslamy2k]

Dear experts,

Please give me a macro which automatically updates the logfile simultaniously once user save the database .

 

[crimson_b1ade]

maybe this...paste the below code to the 'ThisWorkbook' module.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Open "C:\Password Log.txt" For Append Access Write As #1
Print #1, "Record updated  at " & Now & " by " & Application.UserName

End Sub