Weblogs Código

RecorteX

73 usuarios y 244 recortes de código
Usuario

Contraseña
Crear cuenta
asp csharp css fechas Flash html imagenes java javascript linux mysql oracle php sql SQLServer url vbnet web xhtml xml
Top Usuarios
fjmp76 (43)
albin (31)
josuebasurto (31)
juanjo (30)
pedrocaro (9)
stanz (8)
AndiXTRM (7)
Joserra (7)
miiglesi (6)
aplyca (5)
Top Etiquetas
php (38)
vbnet (28)
csharp (26)
javascript (26)
html (25)
java (24)
sql (18)
xml (13)
mysql (13)
css (10)
Flash (7)
imagenes (7)
xhtml (7)
linux (6)
asp (6)
fechas (6)
web (5)
SQLServer (5)
oracle (5)
url (5)

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

Identifícate para dejar un comentario.
Proyecto: Juanjo Navarro, 2006 - Diseño: Albin