Conrad Systems Development |
Home |
Here are some links and information concerning the topic of kicking off users of a database and detecting idle time. I do not have any personal experience with this task as of yet, but this information should hopefully be of help to you. 1.![]() http://www.datastrat.com/Download2.html Look for KickEmOff2K sample database. 2. ![]() 'LogUsersOff2k.mdb' 3. ![]() 'LogUsersOffNonUse2k.mdb' 4. ACC: How to Detect User Idle Time or Inactivity 5. How to determine who is logged on to a database by using Microsoft Jet 6. How to determine who is logged on to a database by using Microsoft Jet Look for Detect and Logoff Idle Users 8. http://propertychampion.com/Developer_Tools/Addins/Addins.html Look for "Force User Out" 9. "Who's Logged In" 97 Sample Database: Look for "Log Off Idle Users" 12. http://www.worksrite.com/ 13. http://www.tek-tips.com/faqs.cfm?fid=143214. http://www.peterssoftware.com/isd.htm
15.
http://www.endprod.com/db.htm 16. http://www.accessvba.com/forum/showthread.php?t=119 17. Auto
Logout Users for DB Maintenance:
18.
Super Moderator of MDBMakers forums Bill Mosca has a sample file for forcing
the database to close here:
20.
http://www.resources.intuidev.com/
21. A
sample file for study here: 22.
Auto Logout Users
for DB Maintenance: 23. Some code provided by
"There is no setting, but you can use a hidden form which tests activity every minute or so and will simply close the app when there is none. The form's TimerInterval is set to 60000 (1 minute). This form is visible and allows a user to move the mouse or keyboard over it and delay the closing by another 30 minutes. You could easily just remove that code, hide the form and quit the app after the first 30 minutes. BTW, the form opens with the app and has no way to close it without shutting down the app." '**************Code Start********************* Dim lngActivityCounter As Long Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single) Me.Doomsday.Caption = 15 Me.Doomsday.Visible = False End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Private Sub Form_Timer()
24. And some ready-made code courtesy of
'**************Code Start********************* '******************************************* '* Subroutine WhoIsInTheDatabaseLockFile * '******************************************* Public Sub WhoIsInTheDatabaseLockFile() Dim cn As New ADODB.Connection ' Replace the string in the next step with the name of a real Const strLinkedTableName As String =
"Name_of_A_Linked_Table" On Error GoTo Err_Msg strCurrConnectString = CurrentProject.Connection strNewDataSource = dbs.TableDefs(strLinkedTableName).Connect Debug.Print "File containing the data tables: " & strNewDataSource cn.ConnectionString = Replace(strCurrConnectString, strCNString,
_ cn.Open ' The user roster is exposed as a provider-specific schema rowset Set rs = cn.OpenSchema(adSchemaProviderSpecific, _ 'Output the list of all users in the designated database. Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _ While Not rs.EOF Debug.Print rs.Fields(0), rs.Fields(1), _ rs.MoveNext Wend Exit_Sub: Err_Msg: End Sub '**************Code End********************* |
© Copyright 2005-2010 Conrad Systems Development - All Rights Reserved
This page was last updated on
Sunday, September 19, 2010.