Module Help

[CCheatham]

I want to take the following module, and have the info added to a
table when the user opens the database, and removes the user from the
table when it's closed. I have to maintain this database and need to
be able to see who's in it at the time. It's practically used 23 hours
a day. Any suggestions? Thanks.

------------------------------------------------------------
Function fGetUserName() As String
' Returns the network login name
Dim lngLen As Long, lngRet As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngRet = apiGetUserName(strUserName, lngLen)
If lngRet Then
fGetUserName = Left$(strUserName, lngLen - 1)
End If
End Function

 

[Dale Fye]

Answered this yesterday morning, before your second post.