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

السلام عليكم

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

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

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

ورغم اني حاولت احضار التقارير إلى المقدمة ولكن تأبى التقارير الظهور في وضع اخفاء واجهة الأكسس فما المشكلة .

جربة هذ الكود الذي يقوم باحضار التقارير او نموذج في المقدمة ولكن دون جدوى :

DoCmd.RunCommand acCmdBringToFront

هذا الكود الذي يخفي واجهة الاكسس

Option Compare Database
Public Declare 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

Option Compare Database

Public Xtwips As Integer, Ytwips As Integer
Public Xpixels As Integer, Ypixels As Integer


Type FRMSIZE
   Height As Long
   Width As Long
End Type

Public RePosForm As Boolean
Public DoResize As Boolean

Sub Resize_For_Resolution(ByVal SFX As Single, _
 ByVal SFY As Single, MyForm As Form)
Dim I As Integer
Dim SFFont As Single

SFFont = (SFX + SFY) / 2  ' average scale
' Size the Controls for the new resolution
On Error Resume Next  ' for read-only or nonexistent properties
With MyForm
  For I = 0 To .Count - 1
   If TypeOf .Controls(I) Is ComboBox Then   ' cannot change Height
	 .Controls(I).Left = .Controls(I).Left * SFX
	 .Controls(I).Top = .Controls(I).Top * SFY
	 .Controls(I).Width = .Controls(I).Width * SFX
   Else
	 .Controls(I).Move .Controls(I).Left * SFX, _
	  .Controls(I).Top * SFY, _
	  .Controls(I).Width * SFX, _
	  .Controls(I).Height * SFY
   End If
	 .Controls(I).FontSize = .Controls(I).FontSize * SFFont
  Next I
  If RePosForm Then
	' Now size the Form
	.Move .Left * SFX, .Top * SFY, .Width * SFX, .Height * SFY
  End If
End With
End Sub

Public Sub CompactAndRepairCurrentDatabase()
	With CommandBars.Add(, 1, , True)
		.Controls.Add 1, 2071, , , True
		.Visible = True
		.Controls(1).SetFocus
		DoEvents
		SendKeys "~"
	End With
End Sub

ارجو ان يكون استفساري واضحا ..

جزاكم الله الف خير

وعيدكم مبارك باذن الله