هل هذا خطأ في الكود أم لا؟ (إخفاء واجهة أكسيس)

[رولي]

السلام عليكم
في الإعدادات المعطلة يوجد سطر واحد هو المتاح، فهل هذا خطأ في الكود؟

  Application.SetOption "Auto compact", True

مرفق الصورة أيضًا

 

Option Compare Database
Option Explicit

Public Function ShowHideRibbon(ShowRibbon As Boolean)

    On Error GoTo ErrHandler
    
'*********************( ÅÎÝÇÁ/ÅÙåÇÑ ÇáÔÑíØ ÇáÚáæí æÌãíÚ ÇáäæÇÝÐ )**************************
    
If ShowRibbon = False Then
'--------------------------------(ÅÎÝÇÁ ÇáÑíÈæä æÇáäÝÌíÔä ÈÇä)
        DoCmd.ShowToolbar "Ribbon", acToolbarNo
    '    Hide Navigation Pane:
        DoCmd.NavigateTo ("acnavigationcategoryobjecttype")
        DoCmd.RunCommand (acCmdWindowHide)
'--------------------------------(ÌãíÚ ÊÖÈíØÇÊ ÊÞÝíá ÇáÞÇÚÏÉ æÅÎÝÇÁ ÇáÞæÇÆã æãäÚ ÇáÒÑ ÇáÃíãä æÇáÇÎÊÕÇÑÇÊ)
        Application.SetOption "Show Status Bar", False
        CurrentDb.Properties("ShowDocumentTabs") = False
        Application.SetOption "Auto compact", True
        Application.SetOption "Remove Personal Information", False
        Application.SetOption "Themed Form Controls", False
        Application.SetOption "DesignWithData", False
        CurrentDb.Properties("AllowDatasheetSchema") = False
        Application.SetOption "CheckTruncatedNumFields", False
        CurrentDb.Properties("AllowFullMenus") = False
        CurrentDb.Properties("AllowShortcutMenus") = False
'--------------------------------(Shift ãäÚ ÇÓÊÎÏÇã ÒÑ ÇáÔÝÊ)
        On Error GoTo err
        CurrentDb.Properties("allowbypasskey") = False
        Exit Function
    
ElseIf ShowRibbon = True Then
'--------------------------------(ÅÖåÇÑ ÇáÑíÈæä æÇáäÝÌíÔä ÈÇä)
        DoCmd.ShowToolbar "Ribbon", acToolbarYes
        'Unhide the navigation pane
        On Error Resume Next
            Call DoCmd.SelectObject(acTable, , True)
            Call DoCmd.SelectObject(acMacro, , True)
            Call DoCmd.SelectObject(acForm, , True)
        On Error GoTo ErrHandler
'--------------------------------(ÝÊÍ ÎÕÇÆÕ ÞÇÚÏÉ ÇáÈíÇäÇÊ æÅÙåÇÑ ÇáÞæÇÆã æÊÝÚíá ÇáÒÑ ÇáÃíãä æÇáÇÎÊÕÇÑÇÊ)
        Application.SetOption "Show Status Bar", True
        CurrentDb.Properties("ShowDocumentTabs") = True
        Application.SetOption "Auto compact", True
        Application.SetOption "Remove Personal Information", True
        Application.SetOption "Themed Form Controls", True
        Application.SetOption "DesignWithData", True
        CurrentDb.Properties("AllowDatasheetSchema") = True
        Application.SetOption "CheckTruncatedNumFields", True
        CurrentDb.Properties("AllowFullMenus") = True
        CurrentDb.Properties("AllowShortcutMenus") = True

'--------------------------------(Shift ÇáÓãÇÍ ÈÇÓÊÎÏÇã ÒÑ ÇáÔÝÊ)
        On Error GoTo err2
        CurrentDb.Properties("allowbypasskey") = True
        Exit Function
    End If
'---------------------------------------------------------------------------

ErrHandler:
    If err.Number <> 0 Then
        MsgBox err.Number & vbCrLf & vbCrLf & err.Description, , "Function: ShowHideRibbon"
        Resume Next
    Else
    Exit Function
    End If
err:
    CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, False)
    Exit Function
err2:
    CurrentDb.Properties.Append CurrentDb.CreateProperty("allowbypasskey", 1, True)
    Exit Function

End Function

[Moosak]

2 ساعات مضت, رولي said:

يوجد سطر واحد هو المتاح،

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

 ماذا تقصد ب هو المتاح ؟؟

وضح السؤال أكثر تكرما

[رولي]

أقصد بمتاح: أن الخاصية معمولة true ، وليس False مثل الباقي.
 

[Moosak]

هذا السطر يتحكم بخاصية ضغط وإصلاح قاعدة البيانات عند الإغلاق ..

وشخصيا أرى أن بقائه مفعلا True في جميع الأحوال هو أمر جيد 🙂 

لذلك وضعته True في الحالتين

 

[رولي]

شكرا أ/ موسى على مساعدتك. 🙏