Viewing users of a database (1 Viewer)
- Thread starter livmun
- Start date
Hello LivMun!
Yes indeed! Create a Logs table with the following fields:
Log (PK) - autonumber
PCName (indexed with duplicates) - string(15): holds the PC name use Environ("ComputerName").
UsrName (indexed with duplicates) - string(15): holds the user name use Environ("UserName").
DateIn - (date/time): date user entered
TimeIn - (date/time): time user entered
DateOut - (date/time): date user exited
TimeOut - (date/time): time user exited
In main menu, create a record when the app starts; on exit, using UserPC as a search key, update the log entry.
This way, you have useful data to monitor your app usage...
Good luck, JLCantara.
Yes indeed! Create a Logs table with the following fields:
Log (PK) - autonumber
PCName (indexed with duplicates) - string(15): holds the PC name use Environ("ComputerName").
UsrName (indexed with duplicates) - string(15): holds the user name use Environ("UserName").
DateIn - (date/time): date user entered
TimeIn - (date/time): time user entered
DateOut - (date/time): date user exited
TimeOut - (date/time): time user exited
In main menu, create a record when the app starts; on exit, using UserPC as a search key, update the log entry.
This way, you have useful data to monitor your app usage...
Good luck, JLCantara.
Last edited:
Thank you so much for replying so quickly. I'm an amateur when it comes to this sort of thing can you put it in idiot's terms for me?
I understood the following, please can you let me know if I've got it right or what I'm missing?
I create a new table and call it 'Logs'?
I create the following fields? Log (PK) - autonumber
UserPC (indexed with duplicates) - string(15): store the PC name.
Is that a list of my users and their data that I should fill in?
Then add the following fields (Will I leave these fields blank?)
DateIn - (date/time): date user entered TimeIn - (date/time): time user entered DateOut - (date/time): date user exited TimeOut - (date/time): time user exited
Then start a macro and open the database? I don't know how to: on exit, using UserPC as a search key, update the log entry.
Thanks again for your help
I understood the following, please can you let me know if I've got it right or what I'm missing?
I create a new table and call it 'Logs'?
I create the following fields? Log (PK) - autonumber
UserPC (indexed with duplicates) - string(15): store the PC name.
Is that a list of my users and their data that I should fill in?
Then add the following fields (Will I leave these fields blank?)
DateIn - (date/time): date user entered TimeIn - (date/time): time user entered DateOut - (date/time): date user exited TimeOut - (date/time): time user exited
Then start a macro and open the database? I don't know how to: on exit, using UserPC as a search key, update the log entry.
Thanks again for your help
Go here http://www.tek-tips.com/viewthread.cfm?qid=362041 , read terms of use , make a module and after do this:
Make a table Log with fields NetBios,IP,Data,Hour
In that form who opens when your database open (FOpen for example) make
2 text with Visible = NO txthost and txtip
Make an event On Open or On Load and put this
[Forms]![FOpen]![txthost] = GetIPHostName()
[Forms]![FOpen]![txtip] = GetIPAddress()
Dim rst As Recordset, sqlstmt As String
Set dbs = CurrentDb
sqlstmt = "Log"
Set rst = dbs.OpenRecordset(sqlstmt, dbOpenDynaset)
rst.AddNew
rst![NetBios] = Me!txthost
rst![IP] = Me!txtip
rst![Data] = Date
rst![Hour] = Time()
rst.Update
rst.Close
Make a table Log with fields NetBios,IP,Data,Hour
In that form who opens when your database open (FOpen for example) make
2 text with Visible = NO txthost and txtip
Make an event On Open or On Load and put this
[Forms]![FOpen]![txthost] = GetIPHostName()
[Forms]![FOpen]![txtip] = GetIPAddress()
Dim rst As Recordset, sqlstmt As String
Set dbs = CurrentDb
sqlstmt = "Log"
Set rst = dbs.OpenRecordset(sqlstmt, dbOpenDynaset)
rst.AddNew
rst![NetBios] = Me!txthost
rst![IP] = Me!txtip
rst![Data] = Date
rst![Hour] = Time()
rst.Update
rst.Close
Hello LivMun!
Here is an Access 2013 solution to your problem. The Main menu is an example of my solution. Note the strange handling of dates in the report: is it my Access or is it a general problem? No idea.
Good luck, JLCantara.
Here is an Access 2013 solution to your problem. The Main menu is an example of my solution. Note the strange handling of dates in the report: is it my Access or is it a general problem? No idea.
Good luck, JLCantara.
