RecorteX

Function fEvitarAcces()

Dim dbs As Database
Dim prp As Property
Const cPrpName As String = “AllowByPassKey”

On Error GoTo fEvitarAccess_Error

‘Abrir base de datos
Set dbs = CodeDb

dbs.Properties.Append dbs.CreateProperty(cPrpName, dbBoolean, False)

fEvitarAccess_Exit:
On Error Resume Next
dbs.Close: Set dbs = Nothing
Exit Function
fEvitarAccess_Error:
MsgBox Err.Number & vbCrLf & Err.Description, vbCritical
Resume fEvitarAccess_Exit
End Function