بستن کلید شیفت :
Public Function SetAllowBypassKeyFalse()
'----- کنترل خطا
On Error GoTo Err_SetAllowBypassKeyFalse
Dim db As DAO.Database, prp As DAO.Property
'----- در صورت موجود بودن Property ست کردن
Set db = CurrentDb
db.Properties("AllowBypassKey") = False
Set db = Nothing
Exit_SetAllowBypassKeyFalse:
Exit Function
'----- کنترل خطا
Err_SetAllowBypassKeyFalse:
'----- خطا در صورت موجود نبودن Property
'----- اگر قبلاً ساخته نشده Property ساخت
If Err = 3270 Then
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False)
db.Properties.Append prp
Resume Next
Else
'----- در صورت بروز خطاهای غیر منتظره
MsgBox "SetAllowBypassKeyFalse", Err.Number, Err.Description
Resume Exit_SetAllowBypassKeyFalse
End If
End Function
نوشته شده توسط مهدی قربانی
پاسخ با نقل قول
