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