مساعدة في اخفاء شاشة الاكسس كليا

[Radwan0]

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

قمت بانشاء المودول التالي

 

Option Explicit
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
    On Error Resume Next
    Set loForm = Screen.ActiveForm
     
    If Err <> 0 Then
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
    End If
     
    If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
        MsgBox "Cannot minimize Access with " _
        & (loForm.Caption + " ") _
        & "form on screen"
    ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
        MsgBox "Cannot hide Access with " _
        & (loForm.Caption + " ") _
        & "form on screen"
    Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End If
    End Function

واستدعيته من خلال الكود التالي

fSetAccessWindow (SW_SHOWMINIMIZED)

 

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

 

كيف بامكاني تعديل الموديل او جعل التقرير يظهر بشكل طبيعي 

 

[kanory]

جرب الكود التالي ......

 

 

اللجان والتصحيح7.4.accdb

تم تعديل أغسطس 2, 2022 بواسطه kanory

[Radwan0]

الكود اللي حضرتك دخلته ياغالي لم ينفعني فمازالت التقارير لا تظهر

 

ان كان بالامكان التعديل على الكود اللي انا وضعته ياريت تساعدوني 

 

 

[ازهر عبد العزيز]

اجعل خاصبة التقرير منبثق

[Radwan0]

14 ساعات مضت, ازهر عبد العزيز said:

اجعل خاصبة التقرير منبثق

حتى عند خاصيه منبثق فان التقرير يختفي كليا

فقط في حال وضعت كود التكبير عند فتح التقرير فانه يظهر لكن اانا لا اريد تكبير التقرير الا فتحه على وضعهه وحجمه

[Radwan0]

مساعدتكم الضرورية اخواني

[Moosak]

6 ساعات مضت, RaDwAn00 said:

حتى عند خاصيه منبثق فان التقرير يختفي كليا

فقط في حال وضعت كود التكبير عند فتح التقرير فانه يظهر لكن اانا لا اريد تكبير التقرير الا فتحه على وضعهه وحجمه

أخي @RaDwAn00 ضع عند حدث فتح التقرير هذا الأمر :

DoCmd.Restore

بدل ال DoCmd.Maximize

[Radwan0]

اخي مواسك اللي حصل هنا ان التقرير فعلا فتح لكن ظهر فقط الشريط العلوي دون ظهور محتوى التقرير

[Moosak]

11 دقائق مضت, RaDwAn00 said:

اخي مواسك اللي حصل هنا ان التقرير فعلا فتح لكن ظهر فقط الشريط العلوي دون ظهور محتوى التقرير

غريب .. أنا يفتح لدي بشكل طبيعي ..

مع جعل خاصية التوسيط التلقائي = نعم

[Radwan0]

ساقوم بالتجربه ان شاء الله واوافيكم بالنتائج

[محمد عبد الله ٢]

منذ ساعه, RaDwAn00 said:

اخي مواسك اللي حصل هنا ان التقرير فعلا فتح لكن ظهر فقط الشريط العلوي دون ظهور محتوى التقرير

حدد منبثق : نعم

شكلي أو مشروط : نعم

حدث عند الفتح :    Docmd.Restore

[ibaradah]

أخي رضوان Radwan00

اسم اخينا هو

موسى الكلباني

Moosak

[رولي]

حصلت معايا، وتفاديت بأن جعلت الفورم يكبر تلقائيا 

[طير البحر]

اعاني من نفس المشكله حيث يظهر التقرير كاملا لكن فى نافذه صغيره جدا 

كما موضح فى الصورة

وايضا توقف زر الفاره الايمن رغم انه به قائمه مخصصه للتعامل مع التقرير
ولم تفلح المحاولات وهو منبثق
 

تم تعديل مارس 30, 2024 بواسطه طير البحر