By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
434,824 Members | 2,337 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 434,824 IT Pros & Developers. It's quick & easy.

Linked spreadsheets open in exclusive mode

P: 2
I have a database that has spreadsheets as linked tables. The database has to be shared among about 15 people.

The database displays data based on queries built from the linked spreadsheets. However, when one person opens the database, nobody else can open the database and I get a message indicating that the spreadsheet has been opened in exclusive mode.

Please, any help will be helpful

Thanks
Dec 13 '11 #1
Share this Question
Share on Google+
1 Reply


P: 2
The issue now is a somehow different. When I open the database, run a Select query, and then go to another user's computer and open the same database (in a shared drive), this database opens the spreadsheets (used as linked tables)automatically in read-only mode. That never happened before with other databases.

I believe the issue is caused by a code I used when developing my database.

I used this code instead of using Dlookup:

Public Function CompRatePendingO() As Double
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim strSQL As String
Dim strSQL1 As String

Dim CompRatePendO3 As Integer
Dim CompRatePendO4 As Integer


Set db = CurrentDb

strSQL = "SELECT Count([Pat Num]) AS [CompRatePendO1] FROM [QRY Pending Inventory OutofComp6AM]"
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

strSQL1 = "SELECT Count([Pat Num]) AS [CompRatePendO2] FROM [QRY Pending Inventory OutofComp1]"
Set rs1 = db.OpenRecordset(strSQL1, dbOpenSnapshot)

CompRatePendO3 = rs("CompRatePendO1")
CompRatePendO4 = rs1("CompRatePendO2")

If CompRatePendO3 = 0 Then
CompRatePendingO = 1
Else
CompRatePendingO = 1 - (CompRatePendO4 / CompRatePendO3)
End If

rs.Close
rs1.Close
db.Close
Set rs = Nothing
Set rs1 = Nothing

End Function

I know very little about programming.

Not sure if the code above messed up some sort of command since now whenever I open another database application (built years ago)in a shared drive it opens it along with the spreadsheets that fed the database.

Please any input is greately appreciated
Dec 13 '11 #2

Post your reply

Sign in to post your reply or Sign up for a free account.