عند الضغط لمعاينة التقرير يعلق البرنامج

[mohammed alrabeai]

السلام عليكم اخواني اعضاء منتدى اوفيسينا 

ظهرت لدي مشكلة وهو عند تفعيل  كود اخفاء شاشة الاكسس وهو كالتالي

Option Compare Database

Public Declare PtrSafe Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Sub HideAccess()
Call ShowWindow(Access.hWndAccessApp, 0)
End Sub

Public Sub ShowAccess()
Call ShowWindow(Access.hWndAccessApp, 5)
End Sub
Public Function getMyMacAddress(Optional strComputer As Variant) As String
Dim oWMIService As Object
Dim oMacs As Object
Dim oMac As Object
Dim strComp As Variant
If IsMissing(strComputer) Then
    strComputer = "."
End If
      
    Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration")
    For Each oMac In oMacs
       If IsNull(oMac.MacAddress) = False Then
        getMyMacAddress = oMac.MacAddress
    End If
    Next
End Function

...............................................

وعند الضغط على عملية معاينة التقارير يعلق النظام كاملا 

ارجو ان تساعدوني بحل المشكلة

ولكم جزيل الشكر والتفدير

[alhellal hamd]

نزل الملف حتى تتم مساعدتك

[محمد احمد لطفى]

من الخصائص اجعل منبثق = نعم 
و فى حدث عند الفتح 
 

DoCmd.Maximize

بالتوفيق

تم تعديل مارس 29 بواسطه محمد احمد لطفى

[mohammed alrabeai]

 اخ محمد احمد لطفى

هل من الممكن اتواصل معك بطريقة اخرى ....طبقت ماقلت ومافي اي فائدة

alhellal hamd

الملف حجمة كبير شوية لايتحمل على الموقع

[Foksh]

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

 

من وجهة نظري 😊

[Eng.Qassim]

السلام عليكم...

اضافة لما تفضل به الاستاذ @Foksh

لديك طريقتان :

1- تجعل خاصية popup =نعم و خاصية Modal =نعم ..بالنسبة للتقرير

2- تضع في زر فتح التقرير في النموذج السطر التالي:

Docmd.Openreport "YourReport", acViewPreview, WindowMode:=acDialog