السلام عليكم يا شباب
يا اخوان استعلمت هذ الكود لإبطال العملية
Private Sub ÃãÑ0_Click()
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
End Sub
Private 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
وذلد عند الضغط على زر
ولكن هذ الكود لم يجدي نفعاً تظهر لي رسالة :
User defined type not Defined ما سبب هذ الخطا ؟ ارجوكم يا جماعة خبروووووووني ؟ بلييييييييز
وجزاكم الله خيراًُ :D