On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
Course Of The Month
6 days, 11 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
Active 5 days ago
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.
Active 5 days ago
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
Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action.
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article describes two methods for creating a combo box that can be used to add new items to the row source -- one for simple lookup tables, and one for a more complex row source where the new item needs data for several fields.
Ever visit a website where you spotted a really cool looking Font, yet couldn't figure out which font family it belonged to, or how to get a copy of it for your own use? This article explains the process of doing exactly that, as well as showing how…
- Microsoft Applications
- Windows OS
- Fonts Typography
- Web Browsers
- Microsoft Word
With Microsoft Access, learn how to specify relationships between tables and set various options on the relationship.
Add the tables:
Create the relationship:
Decide if you’re going to set referential integrity:
Decide if you want cascade upda…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Suggested Courses
Course of the Month6 days, 11 hours left to enroll
Earn Certification
MCSA Configuring Windows 7 Exam 70-680
$49.00$44.10
726 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.