This e-book gives you an insight into the ransomware threat and reviews the fundamentals of top-notch ransomware preparedness and recovery. To help you protect yourself and your organization. The initial infection may be inevitable, so the best protection is to be fully prepared.
COURSE of the MONTH
14 days, 3 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Log users in ACCESS 2003 to a text file
Posted on 2012-12-24
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
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3-
2
6 Comments
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
Featured Post
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
It’s the first day of March, the weather is starting to warm up and the excitement of the upcoming St. Patrick’s Day holiday can be felt throughout the world.
If you need a simple but flexible process for maintaining an audit trail of who created, edited, or deleted data from a table, or multiple tables, and you can do all of your work from within a form, this simple Audit Log will work for you.
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels.
Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…
Suggested Courses
Course of the Month14 days, 3 hours left to enroll
801 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.