B
Bret
Please help.
I have a split database. I store NT logins along with
user's 'titles' in a table in the backend. When multiple
users open the front-end I have code (shown below) that
queries that backend table for their title, based on that
title, certain forms and queries are executed. The
trouble is the users are getting an error that they dont
have permissions to open the database or its under
exclusive use at the time. I've set the backend
to "SHARE" the database. Please what may be the issue and
I dont have any permissions setup.
I have noted my code below where it crashes.
thank you. Bret
strDataFile = "\\wa-1234-or\BackEnd\Source_DB.mdb"
strSQL = "SELECT tbl_SecurityLogins.Title,
tbl_SecurityLogins.[NT_Logon]" _
& " FROM tbl_SecurityLogins" _
& " WHERE tbl_SecurityLogins.[NT_Logon] = '" &
strUserName & "';"
' Set db = OpenDatabase(strDataFile)
'THIS IS THE PROBLEM. When "OPEN DATABASE" is executed, I
get 'you don't have permissions or database is open as
exclusive.
' Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
'
' With rs
' If .RecordCount > 0 Then
' GetPermissions = !Title
' Else
' GetPermissions = "Halt"
' End If
' End With
I have a split database. I store NT logins along with
user's 'titles' in a table in the backend. When multiple
users open the front-end I have code (shown below) that
queries that backend table for their title, based on that
title, certain forms and queries are executed. The
trouble is the users are getting an error that they dont
have permissions to open the database or its under
exclusive use at the time. I've set the backend
to "SHARE" the database. Please what may be the issue and
I dont have any permissions setup.
I have noted my code below where it crashes.
thank you. Bret
strDataFile = "\\wa-1234-or\BackEnd\Source_DB.mdb"
strSQL = "SELECT tbl_SecurityLogins.Title,
tbl_SecurityLogins.[NT_Logon]" _
& " FROM tbl_SecurityLogins" _
& " WHERE tbl_SecurityLogins.[NT_Logon] = '" &
strUserName & "';"
' Set db = OpenDatabase(strDataFile)
'THIS IS THE PROBLEM. When "OPEN DATABASE" is executed, I
get 'you don't have permissions or database is open as
exclusive.
' Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
'
' With rs
' If .RecordCount > 0 Then
' GetPermissions = !Title
' Else
' GetPermissions = "Halt"
' End If
' End With