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

أبو نادر · أكتوبر 10, 2016

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

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

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

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

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

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

هذا الكود الوحيد الذي وجدت فيه كلمة 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

**ابوخليل** · أكتوبر 10, 2016

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

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

**ابو جودي** · أكتوبر 10, 2016

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
 

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

أبو نادر · أكتوبر 10, 2016

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

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

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

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

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

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

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

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

kkk.rar

**ابوخليل** · أكتوبر 10, 2016

تفضل

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

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

db1.rar

أبو نادر · أكتوبر 10, 2016

:rol:

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

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

**ابوخليل** · أكتوبر 10, 2016

تفضل

db2.rar

أبو نادر · أكتوبر 10, 2016

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

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

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

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

**ابوخليل** · أكتوبر 11, 2016

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

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

أبو نادر · أكتوبر 11, 2016

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

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

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

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

**Shivan Rekany** · أكتوبر 11, 2016

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

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

تفضل

db2.rar

**ابوخليل** · أكتوبر 11, 2016

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

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

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

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

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

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

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

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

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

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

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

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

أبو نادر · أكتوبر 11, 2016

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

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

هههههههه

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

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

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

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

**محمد سلامة** · أكتوبر 12, 2016

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

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

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

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

وفى اي اصدار؟

بارك الله فيك

**ابوخليل** · أكتوبر 12, 2016

2003

**محمد سلامة** · أكتوبر 12, 2016

:smile:

**ابو جودي** · أكتوبر 14, 2016

في 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

أبو نادر · أكتوبر 14, 2016

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

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

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

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

تسجيل الدخول

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

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

أبو نادر

ابوخليل

ابو جودي

أبو نادر

ابوخليل

أبو نادر

ابوخليل

أبو نادر

ابوخليل

أبو نادر

Shivan Rekany

ابوخليل

أبو نادر

محمد سلامة

ابوخليل

محمد سلامة

ابو جودي

أبو نادر

Join the conversation

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information