مشكلة عدم عرض التقارير في المقدمه بعد اخفاء خلفية الاكسس ؟

[أبو نادر]

السلام عليكم احبابي

واجهتني مشكله في عدم عرض التقارير في المقدمه بعد اخفاء الاكسس مع العلم بان خصائص التقارير منبثق ومشروط

وعند بحثي لمثل هذه المشكله اتضحلي بانها لدى العموم ولم اجد حل لها سوى عند فتح التقرير اعرض اكسس وعند اغلاقه اخفي الاكسس ؟

ولكن عدد التقارير لدي يفوق ال  300 

 

هل عرض التقارير مرتبط مع خلفية الاكسس ؟

حسب خبرتكم ما هو الحل الأمثل ؟ وهل هناك طرق اخرى

هذا الكود الوحيد الذي وجدت فيه كلمة  report

Option Compare Database
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
                                       Alias "ShowWindow" (ByVal hwnd As Long, _
                                                           ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

    Dim loX As Long
    Dim loForm As Form
    Dim loReport As report

    On Error Resume Next

    Set loForm = Screen.ActiveForm
    Set loReport = Screen.ActiveReport

    If Err <> 0 Then
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
    End If

    If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Or _
       nCmdShow = SW_SHOWMINIMIZED And loReport.Modal = True _
       Then
'        MsgBox "Cannot minimize Access with " _
'               & (loForm.Caption + " ") _
'               & "form on screen"
    ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Or _
           nCmdShow = SW_HIDE And loForm.loReport <> True _
           Then
'        MsgBox "Cannot hide Access with " _
'               & (loForm.Caption + " ") _
'               & "form on screen"
    Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End If
    fSetAccessWindow = (loX <> 0)
End Function
 

 

[ابوخليل]

معلومة غير دقيقة

التقارير ستظهر  ولكن الذي لن يظهر هي القائمة المختصرة

 

 

 

[ابو جودي]

4 ساعات مضت, أبو نادر said:

السلام عليكم احبابي

واجهتني مشكله في عدم عرض التقارير في المقدمه بعد اخفاء الاكسس مع العلم بان خصائص التقارير منبثق ومشروط

وعند بحثي لمثل هذه المشكله اتضحلي بانها لدى العموم ولم اجد حل لها سوى عند فتح التقرير اعرض اكسس وعند اغلاقه اخفي الاكسس ؟

ولكن عدد التقارير لدي يفوق ال  300 

 

هل عرض التقارير مرتبط مع خلفية الاكسس ؟

حسب خبرتكم ما هو الحل الأمثل ؟ وهل هناك طرق اخرى

هذا الكود الوحيد الذي وجدت فيه كلمة  report

Option Compare Database
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
                                       Alias "ShowWindow" (ByVal hwnd As Long, _
                                                           ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

    Dim loX As Long
    Dim loForm As Form
    Dim loReport As report

    On Error Resume Next

    Set loForm = Screen.ActiveForm
    Set loReport = Screen.ActiveReport

    If Err <> 0 Then
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
    End If

    If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Or _
       nCmdShow = SW_SHOWMINIMIZED And loReport.Modal = True _
       Then
'        MsgBox "Cannot minimize Access with " _
'               & (loForm.Caption + " ") _
'               & "form on screen"
    ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Or _
           nCmdShow = SW_HIDE And loForm.loReport <> True _
           Then
'        MsgBox "Cannot hide Access with " _
'               & (loForm.Caption + " ") _
'               & "form on screen"
    Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End If
    fSetAccessWindow = (loX <> 0)
End Function
 

 

ممكن استسمح حضرتك فى مرفق من القاعدة التى بها هذه المشكله ان شاء الله رب العالمين قد يكون عندى لهذه المشكلة حل بامر الله

[أبو نادر]

7 ساعات مضت, ابوخليل said:

معلومة غير دقيقة

التقارير ستظهر  ولكن الذي لن يظهر هي القائمة المختصرة

 

 

 

هلا ببو خليل لك وحشه يا وحش

اتمنى ما تكون دقيقه ... شوف المرفق يمكن انا ملخبط في شي ؟

4 ساعات مضت, ابا جودى said:

ممكن استسمح حضرتك فى مرفق من القاعدة التى بها هذه المشكله ان شاء الله رب العالمين قد يكون عندى لهذه المشكلة حل بامر الله

هلا ابو جودي تفضل وان شاء الله الحل عندكم

kkk.rar

[ابوخليل]

تفضل

بعد تحويل القاعدة الى mdb   لا بد من مشاكل مصاحبة 

لذا اقوم بتجديد الكائنات

db1.rar

[أبو نادر]

الله يعطيك العافيه يبو خليل ... ما في حل غير تكبير التقرير ؟

تعديل في الفانكشن او حركات بهلوانيه

[ابوخليل]

تفضل 

db2.rar

[أبو نادر]

ما شاء الله عليك

ليتني عرفت لهالحل قبل ما اتحمس في تقارير وااااجد 

 

طيب يبو خليل ... بعيد عن اكواد داخل التقرير ... هل عندك حل ؟

 

قسم ما تضربني  .... 

[ابوخليل]

الامر يسير  والحل انت ذكرته

اجعل الاطار ظاهر ... وماله الاطار  .. حلو  وجميل  ويمكن تثبت شعارك عليه بدل شعار اكسس

 

[أبو نادر]

صدقت من اخفيته جابلي مشاكل ... وكيف طريقة تثبيت الشعار عليه ؟

قصدك ايقونة الاكسس الي في الشلريط تحت

والا الخلفية الرمادية

ابو خليل ترا محتاج حركاتك البهلوانيه ..

[Shivan Rekany]

شكرا يا ابو خليل 
على هذا المجهود الرائع

17 ساعات مضت, ابوخليل said:

تفضل 

db2.rar

 

[ابوخليل]

2 ساعات مضت, Shivan Rekany said:

شكرا يا ابو خليل 
على هذا المجهود الرائع

جزيت خيرا على مرورك وتقييمك

5 ساعات مضت, أبو نادر said:

صدقت من اخفيته جابلي مشاكل ... وكيف طريقة تثبيت الشعار عليه ؟

قصدك ايقونة الاكسس الي في الشلريط تحت

والا الخلفية الرمادية

ابو خليل ترا محتاج حركاتك البهلوانيه ..

انت يابو نادر كلك حركات

بالنسبة للشعار في الشريط اللي تحت ( ايقونة اكسس ) يكفي المفتاح اللي فيها  كأنه يقول سأفتح القلوب المغلقة

ولكني اقصد الشعار الذي على الاطار العلوي يمكنك تغييره من  بدء التشغيل في 2003  وفي  الاصدار الاحدث من الخيارات

ايضا الخلفية الرمادية يمكن تغيير لونها الى اي لون ترغبه ، وان شاء الله  سأطرح موضوعا بهذا الشأن مع الامثلة

[أبو نادر]

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

ريط اللي تحت ( ايقونة اكسس ) يكفي المفتاح اللي فيها  كأنه يقول سأفتح القلوب المغلقة

هههههههه 

بس ترا خبرك باكسس اول .. مدري في اي اصدار شكل المفتاح .. انا 2013 ومتغير

نفسي اعرف ليش ما تواكب تطورات الاصدارات ! وصلنا لاكسس 2016 

 

اي والله محتاجين لمواضيع كذا الله يجزاك خير ويكون مرجع لما بعد الانتهاء من تصميم البرنامج ... الواحد يفحط حتى ينهي برنامجه .. وبعدها يفحط حتى يغير خلفية اكسس والشعار وتوافق مع  حجم الشاشات ومشاركته ....

وحبذا العباقره يشتركون في موضوعك .. انت لخلفية الاكسس والثاني للشعار والثالث ..... وانا اوزع لايكات 

 

 

 

[محمد سلامة]

في ١١‏/١٠‏/٢٠١٦ at 17:33, ابوخليل said:

ايضا الخلفية الرمادية يمكن تغيير لونها الى اي لون ترغبه ، وان شاء الله  سأطرح موضوعا بهذا الشأن مع الامثلة

السلام عليكم .. استاذنا ابوخليل

اي خلفية رمادية تقصد ؟

وفى اي اصدار؟

بارك الله فيك 

 

[ابوخليل]

 

2003

[محمد سلامة]

[ابو جودي]

في 10/10/2016 at 01:27, أبو نادر said:

السلام عليكم احبابي

واجهتني مشكله في عدم عرض التقارير في المقدمه بعد اخفاء الاكسس مع العلم بان خصائص التقارير منبثق ومشروط

وعند بحثي لمثل هذه المشكله اتضحلي بانها لدى العموم ولم اجد حل لها سوى عند فتح التقرير اعرض اكسس وعند اغلاقه اخفي الاكسس ؟

ولكن عدد التقارير لدي يفوق ال  300 

 

هل عرض التقارير مرتبط مع خلفية الاكسس ؟

حسب خبرتكم ما هو الحل الأمثل ؟ وهل هناك طرق اخرى

هذا الكود الوحيد الذي وجدت فيه كلمة  report

Option Compare Database
Global Const SW_HIDE = 0
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3

Private Declare Function apiShowWindow Lib "user32" _
                                       Alias "ShowWindow" (ByVal hwnd As Long, _
                                                           ByVal nCmdShow As Long) As Long

Function fSetAccessWindow(nCmdShow As Long)

    Dim loX As Long
    Dim loForm As Form
    Dim loReport As report

    On Error Resume Next

    Set loForm = Screen.ActiveForm
    Set loReport = Screen.ActiveReport

    If Err <> 0 Then
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
    End If

    If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Or _
       nCmdShow = SW_SHOWMINIMIZED And loReport.Modal = True _
       Then
'        MsgBox "Cannot minimize Access with " _
'               & (loForm.Caption + " ") _
'               & "form on screen"
    ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Or _
           nCmdShow = SW_HIDE And loForm.loReport <> True _
           Then
'        MsgBox "Cannot hide Access with " _
'               & (loForm.Caption + " ") _
'               & "form on screen"
    Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End If
    fSetAccessWindow = (loX <> 0)
End Function
 

 

اعتذر على التاخير جدا جدا جدا جد

وعفوا منك استاذى الحبيب ابوخليل

استمسح حضرتك على استحياء فى اضافة مرفق لحل المشكلة بطريقة اخرى وابسط بدون اضافة اى اكواد فى التقارير
فقط على زر الامر الخاص بفتح التقرير اضافة السطر التالى 

 DoCmd.Maximize

 

kkk-up.rar

[أبو نادر]

الله يعطيك العافيه يا ابو جودي

طيب لماذا فقط عند اخفاء الاكسس تحصل المشكله لعرض التقارير ... انا متأكد لو تمت اضافة كود في فانكشن الاخفاء بيزبط

ولكن خبرتي ضعيفه في صناعة  الاكواد

 

بارك الله فيكم جميعا