Mi problema es el siguiente, tengo una aplicación realiza con el Access 2000 con una archivo.mde, que cuando pulsas el archivo con el botón no te deja ver las tablas ni los formularios, el codigo que hace esto es el siguiente:
Option Compare Database
Function SetProperty(db As Database, propertyName As String, value As Boolean) As Boolean
Dim prop
Const conPropNotFound = 3270
On Error GoTo errDisableShift
db.Properties(propertyName) = value
exitDisableShift:
Exit Function
errDisableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty(propertyName, dbBoolean, False, True)
db.Properties.Append prop
Resume
Else
MsgBox "Function SetProperty did not complete successfully."
GoTo exitDisableShift
End If
End Function
Private Sub cmdDesproteger_Click()
protect True
End Sub
Private Sub cmdproteger_Click()
protect False
End Sub
Sub protect(allow As Boolean)
Dim db As Database
Set db = GetDatabase(Me.txtMDB)
If Not db Is Nothing Then
SetProperty db, "AllowByPassKey", allow
SetProperty db, "AllowSpecialKeys", allow
SetProperty db, "AllowBreakIntoCode", allow
SetProperty db, "ShowStartupDBWindow", allow
SetProperty db, "AllowToolbarChanges", allow
End If
db.Close
End Sub
Function GetDatabase(file) As Database
Dim ws As Workspace
Dim db As Database
On Error GoTo e
Set ws = DBEngine.Workspaces(0)
Set GetDatabase = ws.OpenDatabase(file)
Exit Function
e:
MsgBox Err.Description, vbCritical, "Error al abrir la base de datos"
End Function
El problema es que con Access 2002 no funciona, ves el contenido de las tablas y los formularios.
¿Alguien sabe como solucionarlo?
Saludos
Jaime
