سؤال من الاخ abd_abd62
اقتباسالأستاذ ة زهرةالسلام عليكم
هل من ممكن أن تفيديني بكيفية عمل نموذج (قاعدة بيانات) ، بحيث تختفي قاعدة البيانات ، بمعنى يكون البرنامج مثل ملفات exe
وجزاك الله خيرا
اخي الكريم abd_abd62
السلام عليكم ورحمة الله وبركاته
تستطيع اخفاء شاشة الاكسيس ويبقى النموذج يعمل لوحده ظاهريا والحل يتمثل في اخفاء شاشات وقوائم واشرطة الاكسيس واليك الطريقة
1. قم بعمل وحدة نمطية 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. قم بحفظ ما قمت بعمله
ملاحظه : يجب وضع زر اغلاق على النموذج والا لن تتمكن من اغلاق النموذج
وهذا مثال مقدم من المبدع مشرفنا الاستاذ فهد الدوسري تجده على هذا الرابط
اختكم
زهره
.gif)
