اخفاء اطار/ شاشة مايكروسوفت اكسس

اخفاء اطار/ شاشة مايكروسوفت اكسس

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

1.      انشاء دالة خاصة بهذا الغرض

VBA

Option Compare Database
Option Explicit
Global Const SW_HIDE = 0

    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
loX = apiShowWindow(hWndAccessApp, nCmdShow)
End Function

2.      يجب ان تكون جميع النماذج والتقارير منبثقة وتحتفظ بالتركيز

3.      يجب ان يتم انشاء نموذج للبدء ويتم تشغيلة بشكل تلقائي عند فتح الاكسس ويتم استدعاء كود اخفاء الشاشة عند فتح هذا النموذج 

VBA

Private Sub Form_Open(Cancel As Integer)

fSetAccessWindow (SW_HIDE)

End Sub

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

VBA

Private Sub Form_Close()
DoCmd.Quit
End Sub