رولي قام بنشر سبتمبر 15, 2023 مشاركة قام بنشر سبتمبر 15, 2023 السلام عليكم في الإعدادات المعطلة يوجد سطر واحد هو المتاح، فهل هذا خطأ في الكود؟ 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 رابط هذا التعليق شارك More sharing options...
Moosak قام بنشر سبتمبر 15, 2023 مشاركة قام بنشر سبتمبر 15, 2023 2 ساعات مضت, رولي said: يوجد سطر واحد هو المتاح، وعليكم السلام ورحمة الله وبركاته.. ماذا تقصد ب هو المتاح ؟؟ وضح السؤال أكثر تكرما 1 رابط هذا التعليق شارك More sharing options...
رولي قام بنشر سبتمبر 15, 2023 الكاتب مشاركة قام بنشر سبتمبر 15, 2023 أقصد بمتاح: أن الخاصية معمولة true ، وليس False مثل الباقي. رابط هذا التعليق شارك More sharing options...
أفضل إجابة Moosak قام بنشر سبتمبر 15, 2023 أفضل إجابة مشاركة قام بنشر سبتمبر 15, 2023 هذا السطر يتحكم بخاصية ضغط وإصلاح قاعدة البيانات عند الإغلاق .. وشخصيا أرى أن بقائه مفعلا True في جميع الأحوال هو أمر جيد 🙂 لذلك وضعته True في الحالتين 1 رابط هذا التعليق شارك More sharing options...
رولي قام بنشر سبتمبر 15, 2023 الكاتب مشاركة قام بنشر سبتمبر 15, 2023 شكرا أ/ موسى على مساعدتك. 🙏 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان