Read-only

[Quick]

How do you check if an access database is read-only?

[Quick]

I also want to add on: how do you know if an access DB is located on a drive on the network that is read-only to some users? Thanks.

[peet]

u could test for error when trying to open the db

Private Sub Command4_Click()
    Dim db As Database
    On Error GoTo xit
    Set db = OpenDatabase("C:\data\vbworld\_TestData\demodbr.mdb")
    '.
    '.
    '.
    
xit:
    If Err.Number = 3051 Then
        'Read only
        MsgBox "Database is read only"
    Else
        MsgBox Err.Number & " " & Err.Description
    End If
End Sub