السلام عليكم ورحمة الله وبركاته
ارجو المساعدة في شرح طريقة وضع كود الاغاء عمل مفتاح الشفت في قاعدة البيانات الذي وضعوه الاخوان في المنتدى مشكورين ولكن لم يشرحو طريقة تركيبه في القاعدة بكل تفصيل لاني حاولة اكثر من مائة مرة ولم انجح في ذلك ارجو افادتي ولكم جزيل الشكر ...................
وكود هو
Public Function Applnit()
If CurrentUser = "AAAAA" Then
changeproperty "AllowBypassKey", dbBoolean, True
Else
changeproperty "AllowBypassKey", dbBoolean, False
End If
End Function
Public Function changeproperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_err
dbs.Properties(strPropName) = varPropValue
changeproperty = True
Change_Bye:
Exit Function
Change_err:
If Err = conPropNotFoundError Then
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
changeproperty = False
Resume Change_Bye
End If
End Function