22/01/2008, 07:52
|
 | | | Fecha de Ingreso: agosto-2007
Mensajes: 1.338
Antigüedad: 17 años, 5 meses Puntos: 18 | |
| Re: Bloquear la vista de diseño de bd
Aqui tienes unas funciones para abilitar y deshabilitar la tecla shift:
Function ap_DisableShift()
On Error GoTo errDisableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties("AllowByPassKey") = False
Exit Function
errDisableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If
End Function
'================================================= ===========
Function ap_EnableShift()
On Error GoTo errEnableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties("AllowByPassKey") = True
Exit Function
errEnableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If
End Function
Un saludo |