أريد أكواد التحكم في خيارات بدء التشغيل

لا اعرف ماذا تقصد اخى

ياريت توضيح لما تريد

أشكرك أخي الكريم على سرعت تجاوبك

أريد كود يقوم بإخفاء علامة التبويب في الأكسس 2007

وكود يقوم بإخفاء شريط المعلومات في الأكسس 2007

وأنا في انتظار الرد

هل تقصد شريط الادوات

ياريت ترفق صورة لما تريد

أشكرك أخي لأنك مهتم بالمشكلة التي أواجها

الأشياء المؤشر في الصورة (شريط علامة التبويب وشريط المعلومات) يمكن اخفاءها من خيارات الأكسس

ولكن أريد اخفاءها بكود برمجي

ما زلت في انتظار الرد

اليك هذه الدالة أخى

Function AddAppProperty(strName As String, _
        varType As Variant, varValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

    Set dbs = CurrentDb
    On Error GoTo AddProp_Err
    dbs.Properties(strName) = varValue
    AddAppProperty = True

AddProp_Bye:
    Exit Function

AddProp_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        AddAppProperty = False
        Resume AddProp_Bye
    End If
End Function

و هى للتحكم فى خيارات و خصائص الاكسس

و لتطبيقها على ما تريد

ضع هذا الكود اينما تريد

    Dim intX As Integer
    Const MyMDIMode As Byte = 0  '0 =tabbed documents '1 =overlapping windows
    intX = AddAppProperty("StartupShowStatusBar", dbBoolean, False)
    intX = AddAppProperty("UseMDIMode", dbByte, MyMDIMode )
    intX = AddAppProperty("ShowDocumentTabs", dbBoolean, False)

أشكرك أخي أبو يوسف

فعلا هذه هي الإجابة وكنت متأكد دوما أنها

ستكون منك أخي الكريم