How do I create a table to log users that the application has booted out

[Omey Samaroo]

I have had most of my questions answered in this forum and learned a lot
from reading others post. In fact, I have even discovered answers to
questions that I thought were totally impossible and absurd to ask, and for
that I will continue to be a fan to this NG.

Today I have one question (two parts): How do I create a table to log users
that the application has booted out ? Does it log the users by computer name
?

Thanks very much.

Omey

[Pieter Linden]

"Omey Samaroo" <no****@replyto group.com> wrote in message news:<rf******* ************@ne ws01.bloor.is.n et.cable.rogers .com>...

I have had most of my questions answered in this forum and learned a lot
from reading others post. In fact, I have even discovered answers to
questions that I thought were totally impossible and absurd to ask, and for
that I will continue to be a fan to this NG.

Today I have one question (two parts): How do I create a table to log users
that the application has booted out ? Does it log the users by computer name
?

Thanks very much.

Omey

Define "booted out". Without understanding what that means, I'm not
sure anyone can answer your question.

[Omey Samaroo]

Thanks for pointing that out, Pieter
Okay, I now use a hidden form with a timer control to close the database if
a user is inactive for 10 minutes (learned at this forum)
What I would like to do next is find out which users were closed by this
method and store the info in a table. Is this at all possible?
(Hope that I explained it a little better)

"Pieter Linden" <pi********@hot mail.com> wrote in message
news:bf******** *************** ***@posting.goo gle.com...

"Omey Samaroo" <no****@replyto group.com> wrote in message

news:<rf******* ************@ne ws01.bloor.is.n et.cable.rogers .com>...

I have had most of my questions answered in this forum and learned a lot
from reading others post. In fact, I have even discovered answers to
questions that I thought were totally impossible and absurd to ask, and for that I will continue to be a fan to this NG.

Today I have one question (two parts): How do I create a table to log users that the application has booted out ? Does it log the users by computer name ?

Thanks very much.

Omey

Define "booted out". Without understanding what that means, I'm not
sure anyone can answer your question.

[Omey Samaroo]

Thanks for the tip Chuck & Pieter, cheers
"Chuck Grimsby" <c.*******@worl dnet.att.net.in valid> wrote in message
news:3p******** *************** *********@4ax.c om...

Write to a "log" file somewhere indicating that. See Access Help on
the OPEN statement for more information.

On Fri, 05 Dec 2003 06:42:02 GMT, "Omey Samaroo"
<no****@replyto group.com> wrote:

Thanks for pointing that out, Pieter
Okay, I now use a hidden form with a timer control to close the database ifa user is inactive for 10 minutes (learned at this forum)
What I would like to do next is find out which users were closed by this
method and store the info in a table. Is this at all possible?
(Hope that I explained it a little better)

"Pieter Linden" <pi********@hot mail.com> wrote in message
news:bf******* *************** ****@posting.go ogle.com...

"Omey Samaroo" <no****@replyto group.com> wrote in message

news:<rf****** *************@n ews01.bloor.is. net.cable.roger s.com>...

> I have had most of my questions answered in this forum and learned a lot > from reading others post. In fact, I have even discovered answers to
> questions that I thought were totally impossible and absurd to ask,

andfor

> that I will continue to be a fan to this NG.
>
> Today I have one question (two parts): How do I create a table to log

users

> that the application has booted out ? Does it log the users by

computername

> ?
>
> Thanks very much.
>
> Omey
Define "booted out". Without understanding what that means, I'm not
sure anyone can answer your question.

--
When You Come To The End Of Your Rope, Tie A Knot In It And Hang On!

[Pieter Linden]

"Omey Samaroo" <no****@replyto group.com> wrote in message news:<_M******* *************@n ews04.bloor.is. net.cable.roger s.com>...

Thanks for pointing that out, Pieter
Okay, I now use a hidden form with a timer control to close the database if
a user is inactive for 10 minutes (learned at this forum)
What I would like to do next is find out which users were closed by this
method and store the info in a table. Is this at all possible?
(Hope that I explained it a little better)

Oh, now it makes sense. Sure, before you shut the database, you'd
write the person's userid or whatever to a table, the time they were
kicked out, and a reason. Just open a recordset and add the records
you want and then update.

Username... that's at mvps.org/access (Accessweb).
The time: just use Now()
The reason: from that form, you'd just set it to "Inactive Timeout" or
something and then append the record.

Of course, you could use cnn.Execute strSQL or currentdb.execu te
strsql... (if you build the insert string on the fly.

[Omey Samaroo]

Awesome, thanks for the suggestions Pieter. I will admit that some of it is
a little over my head, but I will do some research and ask more questions if
I get stuck.

Omey

"Pieter Linden" <pi********@hot mail.com> wrote in message
news:bf******** *************** **@posting.goog le.com...

"Omey Samaroo" <no****@replyto group.com> wrote in message

news:<_M******* *************@n ews04.bloor.is. net.cable.roger s.com>...

Thanks for pointing that out, Pieter
Okay, I now use a hidden form with a timer control to close the database if a user is inactive for 10 minutes (learned at this forum)
What I would like to do next is find out which users were closed by this
method and store the info in a table. Is this at all possible?
(Hope that I explained it a little better)

Oh, now it makes sense. Sure, before you shut the database, you'd
write the person's userid or whatever to a table, the time they were
kicked out, and a reason. Just open a recordset and add the records
you want and then update.

Username... that's at mvps.org/access (Accessweb).
The time: just use Now()
The reason: from that form, you'd just set it to "Inactive Timeout" or
something and then append the record.

Of course, you could use cnn.Execute strSQL or currentdb.execu te
strsql... (if you build the insert string on the fly.

[Pieter Linden]

"Omey Samaroo" <no****@replyto group.com> wrote in message news:<N6******* **************@ twister01.bloor .is.net.cable.r ogers.com>...

Awesome, thanks for the suggestions Pieter. I will admit that some of it is
a little over my head, but I will do some research and ask more questions if
I get stuck.

Omey

Okay, the stuff from MS...
http://support.microsoft.com/default...B;en-us;128814

Sub IdleTimeDetecte d (ExpiredMinutes )
Application.Qui t acSaveYes
End Sub

You'd just tweak this...

Sub IdleTimeDetecte d (ExpiredMinutes )
'See below for code...

Call LogKickOut
Application.Qui t acSaveYes
End Sub

Okay... a "helper" function:
API: Get Login name
Author(s)
Dev Ashish
http://www.mvps.org/access/api/api0008.htm

(Q) How do I retrieve the UserName with which the user is logged into
the network?

(A) Paste the following code in a new module and call the function
fOSUserName.
'************** ****** Code Start *************** ***********
' This code was originally written by Dev Ashish. ' It is not to be
altered or distributed,' except as part of an application. ' You are
free to use it in any application, ' provided the copyright notice is
left unchanged.'' Code Courtesy of ' Dev Ashish'

Private Declare Function apiGetUserName Lib "advapi32.d ll" Alias _
"GetUserNam eA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName( strUserName, lngLen)
If ( lngX > 0 ) Then
fOSUserName = Left$(strUserNa me, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function
'************** ****** Code End *************** ***********
Okay, here's the code:

Public Sub LogKickouts()
Dim strSQL As String

strSQL = "INSERT INTO KickedOutUsers ( UserName, Reason ) VALUES
('" & fOSUserName & "', 'Idle Too long');"
DBEngine(0)(0). Execute strSQL

End Sub

[Omey Samaroo]

Pieter, in this instance I am not using usernames but ComputerNames as all
users share the main database password.
I copied and created a module from Dev
*************** ***** Code Start *************** ***********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetComputerN ame Lib "kernel32" Alias _
"GetComputerNam eA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSMachineName( ) As String
'Returns the computername
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerN ame(strCompName , lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompNa me, lngLen)
Else
fOSMachineName = ""
End If
End Function
'************** ****** Code End *************** ***********

but now how do I use it to create the table and write the computer name and
date/time that it was closed for inactivity ?

Omey
"Pieter Linden" <pi********@hot mail.com> wrote in message
news:bf******** *************** ***@posting.goo gle.com...

"Omey Samaroo" <no****@replyto group.com> wrote in message

news:<N6******* **************@ twister01.bloor .is.net.cable.r ogers.com>...

Awesome, thanks for the suggestions Pieter. I will admit that some of it is a little over my head, but I will do some research and ask more questions if I get stuck.

Omey

Okay, the stuff from MS...
http://support.microsoft.com/default...B;en-us;128814

Sub IdleTimeDetecte d (ExpiredMinutes )
Application.Qui t acSaveYes
End Sub

You'd just tweak this...

Sub IdleTimeDetecte d (ExpiredMinutes )
'See below for code...

Call LogKickOut
Application.Qui t acSaveYes
End Sub

Okay... a "helper" function:
API: Get Login name
Author(s)
Dev Ashish
http://www.mvps.org/access/api/api0008.htm

(Q) How do I retrieve the UserName with which the user is logged into
the network?

(A) Paste the following code in a new module and call the function
fOSUserName.
'************** ****** Code Start *************** ***********
' This code was originally written by Dev Ashish. ' It is not to be
altered or distributed,' except as part of an application. ' You are
free to use it in any application, ' provided the copyright notice is
left unchanged.'' Code Courtesy of ' Dev Ashish'

Private Declare Function apiGetUserName Lib "advapi32.d ll" Alias _
"GetUserNam eA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngX = apiGetUserName( strUserName, lngLen)
If ( lngX > 0 ) Then
fOSUserName = Left$(strUserNa me, lngLen - 1)
Else
fOSUserName = vbNullString
End If
End Function
'************** ****** Code End *************** ***********
Okay, here's the code:

Public Sub LogKickouts()
Dim strSQL As String

strSQL = "INSERT INTO KickedOutUsers ( UserName, Reason ) VALUES
('" & fOSUserName & "', 'Idle Too long');"
DBEngine(0)(0). Execute strSQL

End Sub

[Pieter Linden]

"Omey Samaroo" <no****@replyto group.com> wrote in message news:<bT******* ***********@new s02.bloor.is.ne t.cable.rogers. com>...

Pieter, in this instance I am not using usernames but ComputerNames as all
users share the main database password.
but now how do I use it to create the table and write the computer name and
date/time that it was closed for inactivity ?

Omey

Sub IdleTimeDetecte d (ExpiredMinutes )
'See below for code...

Call LogKickOuts '<----------THIS LOGS THE KICKOUT.
Application.Qui t acSaveYes
End Sub

Okay, here's the code:

Public Sub LogKickouts() 'WRITE THE KICKOUT TO THE TABLE. Dim strSQL As String

strSQL = "INSERT INTO KickedOutUsers ( UserName, Reason ) VALUES
('" & fOSUserName & "', 'Idle Too long');"
DBEngine(0)(0). Execute strSQL

End Sub