استفسار بالنسبة لاخفاء شاشة الاكسيس

[Amr Ashraf]

الاخوة الكرام السلام عليكم

فى المثال المرفق قمت باستخدام Module لاخفاء شاشة الاكسس واظهار الفورم فقط ونجح الموضوع  بالنسبة للنماذج لكن التقارير لا تظهر مع انها 

Pop Up Yes

Modal Yes

لماذا ؟؟؟ 

القاعدة فى المرفقات افادكم الله

 

 

hide.rar

[Shivan Rekany]

اليك هذا الرابط به ما تريد

واليك ملفك بعد تعديل

 

 

hide.rar

تم تعديل مايو 10, 2017 بواسطه Shivan Rekany

[Amr Ashraf]

12 دقائق مضت, Shivan Rekany said:

اليك هذا الرابط به ما تريد

اليك ملفك بعد تعديل

hide.rar

جزاك الله خير اخى شيفان على المعلومة جعلها الله فى ميزان حسناتك واليك استفسار هل يمكن التخلى عن جزئية Maxmize ونجعل التقارير فى وضع Normal  ؟؟

[Shivan Rekany]

للاسف 
حسب تجاربي لا

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

[Amr Ashraf]

الان, Shivan Rekany said:

للاسف 
حسب تجاربي لا

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

للاسف جربت وما نفع الموضوع لذلك سألت  واظن ان كده هتخلى عن الفكرة من الأساس لانى عندى حوالى 302000 تقرير فى القاعدة ولو قعدت اعمل فيهم نفس الخطوات هقضى 10 سنين ولكن هناك استفسار اخر بديل بالنسبة لى سأفتح به موضوع اخر 

 

[Shivan Rekany]

في ١٠‏/٥‏/٢٠١٧ at 20:54, Amr Ashraf said:

عندى حوالى 302000 تقرير فى القاعدة

ما هو السبب عمل 302000 تقرير في القاعدة ؟ 
ما قصدك بهذا ؟

في ١٠‏/٥‏/٢٠١٧ at 20:45, Amr Ashraf said:

واليك استفسار هل يمكن التخلى عن جزئية Maxmize ونجعل التقارير فى وضع Normal  ؟؟

في ١٠‏/٥‏/٢٠١٧ at 20:49, Shivan Rekany said:

للاسف 
حسب تجاربي لا

اتفضل رأيت احد مشاركات استاذنا @ابوخليل وكان فيها الحل

وكان استخدمت هذه الوحدة نمطية

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

وفي حدث فتح التقرير

كان كتبت 

Private Sub Report_Open(Cancel As Integer)
    DoCmd.Minimize
    DoCmd.OpenReport Me.Name, acViewPreview
End Sub

وفي زر فتح التقرير

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

Private Sub Command1_Click()
    DoCmd.OpenReport "report1", acViewPreview
End Sub

والنتيجة 100%

واليك المرفق

و نشكر استاذنا ابوخليل على هذا

hide (1).rar

تم تعديل يونيو 12, 2017 بواسطه Shivan Rekany

[Amr Ashraf]

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

ما هو السبب عمل 302000 تقرير في القاعدة ؟ 
ما قصدك بهذا ؟

 

قصدى ان فيه تقارير كتير جدا فى القاعدة الرقم للمبالغة فقط 

 

والنتيجة جيدة أخى الكريم جزاك الله خير انتا واستاذنا أبوخليل دمتم بخير

[صالح حمادي]

في 11/05/2017 at 07:54, Amr Ashraf said:

للاسف جربت وما نفع الموضوع لذلك سألت  واظن ان كده هتخلى عن الفكرة من الأساس لانى عندى حوالى 302000 تقرير فى القاعدة ولو قعدت اعمل فيهم نفس الخطوات هقضى 10 سنين ولكن هناك استفسار اخر بديل بالنسبة لى سأفتح به موضوع اخر 

ما شاء الله على هذا العدد

أولا ما هي المدة الزمنية التي قضيتها في انشاء هذا العدد من التقارير ؟؟؟

ثانيا هل كل هذه التقارير في قاعدة واحدة ؟؟؟

هههههه

ثالثا يمكنك تغيير الخاصية لجميع التقارير دفعة واحدة و لن ياخذ منك هذا و قتا طويلا

انشئ نموذجا جديدا في القاعدة و أنشئ به زر أمر و أكتب خلف زر الأمر الكود التالي:

Dim str_code As String
Dim name_rpt As String
Dim rpt As AccessObject, dbs As Object

Set dbs = Application.CurrentProject

   For Each rpt In dbs.AllReports
     name_rpt = rpt.Name
     
     DoCmd.OpenReport name_rpt, acDesign
    
     Reports(name_rpt).PopUp = True
     Reports(name_rpt).Modal = True
     
     str_code = "Private Sub Report_Load()" & vbCrLf & _
     "DoCmd.Maximize" & vbCrLf & _
     "end sub"
     Reports(name_rpt).Module.AddFromString str_code
     DoCmd.Close acReport, name_rpt, acSaveYes
   Next

ثم قم بتشغيل النموذج و انقر على الزر مرة واحدة سوف يقوم بإضافة الخصائص الموجودة بالكود لجميع التقارير و يمكنك إضافة أي خاصية تريدها

لا تنسى أخذ نسخة إحتياطية من القاعدة قبل التطبيق

[Amr Ashraf]

في 6/12/2017 at 16:38, صالح حمادي said:

ما شاء الله على هذا العددولا ما هي المدة الزمنية التي قضيتها في انشاء هذا العدد من التقارير ؟؟؟

ثانيا هل كل هذه التقارير في قاعدة واحدة ؟؟؟

هههههه

ههههههه بعمل فيها بقالى سنة  بالنسبة للمعلومة جميلة وجديدة عليا جزاك الله خير استاذى الفاضل