مشكلة بالاستعلامات

بالبداية قمت بتطبيق الشرح التالي لإخفاء أدوات الأكسس اثناء تنفيذ قاعدة البيانات

. قم بعمل وحدة نمطية Module جديد في قاعدة البيانات المطلوب اخفاء شاشاتها وقوائمها وابقاء النموذج يعمل لوحده مثل ملفات exe وضع فيها هذا الكود

كود

Option Compare Database

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)

'Usage Examples

'Maximize window:

'       ?fSetAccessWindow(SW_SHOWMAXIMIZED)

'Minimize window:

'       ?fSetAccessWindow(SW_SHOWMINIMIZED)

'Hide window:

'       ?fSetAccessWindow(SW_HIDE)

'Normal window:

'       ?fSetAccessWindow(SW_SHOWNORMAL)

'

Dim loX  As Long

Dim loForm As Form

   On Error Resume Next

   Set loForm = Screen.ActiveForm

   If Err <> 0 Then 'no Activeform

     If nCmdShow = SW_HIDE Then

       'MsgBox "Cannot hide Access unless " _

                   & "a form is on screen"

     Else

       loX = apiShowWindow(hWndAccessApp, nCmdShow)

       Err.Clear

     End If

   Else

       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 If

   fSetAccessWindow = (loX <> 0)

End Function

2. قم بحفظ هذه الوحدة النمطية بإسم api_ShowWindow

3. انتقل الان الى النموذج المطلوب واجعله في عرض التصميم

4. قم بإختيار خصائص هذا النموذج عن طريق الضغط بزر الماوس الايمن على النموذج

5. عند ظهور خصائص النموذج اختر التبويب الكل ثم قم بعمل التالي

اشرطة التمرير ..... لا هذا ولا ذاك

محددات السجلات ..... لا

الخطوط المقسمة .....لا

تغيير حجم تلقائي ... نعم

توسيط تلقائي ... نعم

منبثق .... نعم

شكلي او مشروط ..... نعم

نمط الحدود .... مربع حوار او رفيع

مربع عنصر التحكم .... لا

زر التصغير والتكبير ... بلا

زر الاغلاق .... لا

6. انت لا زلت في خصائص النموذج الان انتقل الى التبويب حدث واختر منه عند الفتح واختر اجراء حدث وستجد مربع صغير ذو ثلاث نقط ... قم بالضغط عليه وستنتقل الى محرر الفيجول بيسك وستجد ان مؤشر الكتابة موجود بين بداية الكود ونهايته ضع هذا الكود بين بداية الكود ونهايته

كود

fSetAccessWindow (SW_SHOWMINIMIZED)

   fSetAccessWindow (SW_HIDE)

7. قم بحفظ ما قمت بعمله

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