اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


رولي
إذهب إلى أفضل إجابة Solved by Moosak,

الردود الموصى بها

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

  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

4.png

رابط هذا التعليق
شارك

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

 

  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information