How can your organization benefit from savings just by replacing your legacy backup solutions with Acronis' #CyberProtection? Join Forrester's Joe Branca and Ryan Davis from Acronis live as they explain how you can too.
Log users in ACCESS 2003 to a text file
I have been trying to find the code that, when a user logs into an ACCESS 2003 database, this users information is logged to a an external text file. I do not want it to be tracked in the database itself, but I want it to append to a text file. Any direction on this would be appreciated.
Sandra
Sandra
Do more with
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Do you already have a Log in system?
If so, what does this system track? (userID?, user Name?, Login date/Time?)
You can certainly create a system to open your main form, and trigger code to track this info to an external file:
1. Create a blank Log File:
Name: DBLogFile.txt
Contents: "DBLog File:"
Location: C:\YourFolder\
2. On the open event of the startup form do something roughly like this:
Private Sub Form_Open(Cancel As Integer)
Dim FileN As Integer
FileN = FreeFile
Open "c:\YourFolder\DBLogFile.t
Print #FileN, strpubUserName 'This is a public variable the stores your login name
Print #FileN, Format(Now(), "mm-dd-yyyy hh:nn:ss")
Close FileN
End Sub
But you need to tell us a bit more about any existing system you have in place...
JeffCoachman
If so, what does this system track? (userID?, user Name?, Login date/Time?)
You can certainly create a system to open your main form, and trigger code to track this info to an external file:
1. Create a blank Log File:
Name: DBLogFile.txt
Contents: "DBLog File:"
Location: C:\YourFolder\
2. On the open event of the startup form do something roughly like this:
Private Sub Form_Open(Cancel As Integer)
Dim FileN As Integer
FileN = FreeFile
Open "c:\YourFolder\DBLogFile.t
Print #FileN, strpubUserName 'This is a public variable the stores your login name
Print #FileN, Format(Now(), "mm-dd-yyyy hh:nn:ss")
Close FileN
End Sub
But you need to tell us a bit more about any existing system you have in place...
JeffCoachman
Actually, this worked out just waht I wanted. With a little tweaking, it appends the data as I want. thank you
Sandra.
Sandra.
You can get the current user name with the CurrentUser Function:
CurrentUser()
So you would change my code above to something like this:
Private Sub Form_Open(Cancel As Integer)
Dim FileN As Integer
FileN = FreeFile
Open "c:\YourFolder\DBLogFile.t
Print #FileN, Chr(13) 'Carrige Return
Print #FileN, CurrentUser()
Print #FileN, Format(Now(), "mm-dd-yyyy hh:nn:ss")
Close FileN
End Sub
If you are looking for the Network Log In, use a function like this:
http://access.mvps.org/access/api/api0008.htm
...then change the code accordingly.
JeffCoachman
CurrentUser()
So you would change my code above to something like this:
Private Sub Form_Open(Cancel As Integer)
Dim FileN As Integer
FileN = FreeFile
Open "c:\YourFolder\DBLogFile.t
Print #FileN, Chr(13) 'Carrige Return
Print #FileN, CurrentUser()
Print #FileN, Format(Now(), "mm-dd-yyyy hh:nn:ss")
Close FileN
End Sub
If you are looking for the Network Log In, use a function like this:
http://access.mvps.org/access/api/api0008.htm
...then change the code accordingly.
JeffCoachman
Premium Content
You need an Expert Office subscription to comment.Start Free Trial