إلغاء مفتاح الشفت وتفعيله

[BRAHIM Ben aissa]

إلغاء مفتاح الشفت وتفعيله

[Foksh]

وعليكم السلام ورحمة الله وبركاته ..

أخي الكريم بدايةً اهلاً وسهلاً بك في المنتدى عضواً جديداً ، ونتمنى ان تجد ما تبحث عنه بسهولة .

بدايةً استعمل خاصية البحث لإيجاد المواضيع التي تتحدث عن مشكلتك بل طرحها ، علك تجد ضالتك بسرعة وسهولة .. أما بخصوص طلبك ، فإليك هذه الدالة البسيطة :-

Private Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant)
    Dim dbs, 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

ويتم استدعائها في أي حدث تريده كحدث عند فتح أول نموذج لك في مشروعك بالشكل التالي لقفل مفتاح الشيفت :-

ChangeProperty "AllowBypassKey", DB_BOOLEAN, False

 

أو في زر لإعادة تفعيل مفتاح الشيفت بالإستدعاء التالي :-
 

ChangeProperty "AllowBypassKey", DB_BOOLEAN, True

 

[kkhalifa1960]

مشاركةً مع استاذ @Foksh تفضل استاذ @BRAHIM Ben aissa مرفقي ووافنا بالرد .

close option and shift.rar