[AccessD] Function User Log error

Nancy Lytle nancy.lytle at auatac.com
Fri Jul 11 10:34:09 CDT 2003


I guess it would help if I used a subject line, wouldn't it:>
I use the function below to log users into and out of a database.  The 
database is split with the BE on a server and using AutoFEUpdater to place 
and update the Front end on the users C:\Drive.
However, when I deployed this database yesterday, something strange happened, 
some users get an error message saying an updateable query must be used, and 
others do not.  For those with the error message, the main menu form does not 
open or is hidden, but they can open it from a toolbar I set up, then go on 
about their business.
I have narrowed the problem area to the function below.

All the machines have the same configurations, and references(?), only 
difference is that there are 2 sides to the LAN, an FAA side and a NG side. 
But we can all get to and have permissions to the proper folders (obvious 
since everyone can actually open the database and work)


Any ideas welcome,
TIA
Nancy Lytle

CODE:
Option Compare Database
Option Explicit
Public bolUSERLOG  As Boolean 'enter exit flag

Public Function fcnLogUser()
Call fcnOSUserName
Call fcnUserGroup
Dim strSQLInsert As String
MsgBox "User entering/exiting"
'DoCmd.SetWarnings False
If bolUSERLOG = False Then
strSQLInsert = "insert into tblUserLog(UserName, UserGroup, UserEnter) values 
('"
strSQLInsert = strSQLInsert & fcnOSUserName & "', '" & fcnUserGroup & "', #" 
& Now() & "#)"
MsgBox strSQLInsert
Else
strSQLInsert = "insert into tblUserLog(UserName, UserGroup, UserExit) values 
('"
strSQLInsert = strSQLInsert & fcnOSUserName & "', '" & fcnUserGroup & "', #" 
& Now() & "#)"
MsgBox strSQLInsert
End If
DoCmd.RunSQL strSQLInsert
'DoCmd.SetWarnings True
End Function

-- 
Nancy Lytle
EIS
nancy.lytle at auatac.com






More information about the AccessD mailing list