كيفية اخفاء شاشة الاكسس واظهار شاشة البرنامج مباشرة

-1-

-2-

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

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

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.      يجب ان يتم انشاء نموذج للبدء ويتم تشغيلة بشكل تلقائي عند فتح الاكسس ويتم استدعاء كود اخفاء الشاشة عند فتح هذا النموذج 

Private Sub Form_Open(Cancel As Integer)

fSetAccessWindow (SW_HIDE)

End Sub

====================

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

Private Sub Form_Close()

DoCmd.Quit

End Sub

وجب التنويه طبعا اخي ال ان هذا الكود خاص بالاجهزة التي تعمل بنواة ويندوز 32bit

-3-

-4-