Weblogs Código

RecorteX

» Access
73 usuarios y 244 recortes de código
Usuario

Contraseña
Crear cuenta
Estás viendo los recortes de la etiqueta Access

RSS
Recortes: 1

Etiquetas relacionadas:
Bloquear_MDBS

Evitar modificacion de MDBs pulsando mayusculas

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

Proyecto: Juanjo Navarro, 2006 - Diseño: Albin