Converting Access 97 to 2000

[Maritza]

I recently converted an Access 97 DB into Access 2000. The application runs well, but If I try to modify the forms or reports it gives an error saying that I don't have exclusive rights to the DB, at any changes that I make would not be save. I checked the properties for the DB and Exclusive is not even selected. I work around it by creating a new db in 2000, and importing the forms, reports, queries and module. This works fine.

My question is, Why can't we modify the converted DB. Is there something under references, or Options that I can modify so it will work?

Thanks,

Maritza

 

[llkhoutx]

Check the properties of the mdb from Windows Explorer, right click the mdb and select properties. It may be tagged "Ready Only."

 

[Maritza]

Thanks for the replies. Unfortunately the properties were not set to Read Only, and the application is a Standalone.

The DB was developed using Access 97 and VBA in a Windows NT environment. I currently have both Access versions installed in my computer. Since this DB was developed to be use by one person only (My Boss), I didn't change any of the user's permissions, so is using Access defaults.

I checked the Default Open Mode and is set to Share, I checked the Default Record Locking and is set to No Lock. All the references are registered and none of them are missing.

This is the message that I get when selecting Design View in the converted application, "You do not have exclusive access to the database at this time. If you proceed to make changes, you may not be able to save them later."

Any other sugestions?

Thanks,

Maritza

 

[Maritza]

Hi Pat,

No, I don't have a timer. I worked with Visual Basic 6.0 for years before having to work with Access, so I use recordsets a lot. The majority of the code is straight Access, with the exception of the way that I established the connections and the way that I set the properties for the recordsets.

Here is an example of the code:

Code On a Module
Option Compare Database
Option Explicit

' The following variables are used to establish a connection and be able to use recordsets

Public cnx1 As ADODB.Connection
Public strDbName As String
' Use this connection for the standalone
Public Const strConStr As String = "provider = Microsoft.jet.OLEDB.4.0;Data Source="



On the Open event of the Main Form

Set cnx1 = New ADODB.Connection
'Use this connection on the Standalone
strDbName = CurrentDb.Name
If cnx1.State = 0 Then
cnx1 = strConStr & strDbName
cnx1.Open
End If

The way I'm setting up recordsets

Set rsPay = New ADODB.Recordset
rsPay.CursorLocation = adUseClient
rsPay.CursorType = adOpenDynamic
rsPay.LockType = adLockOptimistic
rsPay.open "Select * from tblEmployees", cnx1

These is pretty much the only code I have. Any other suggestions.

Thanks,

Maritza