السلام عليكم ....
الأخت زهرة
. ستجد في المثال المرفق وحدة نمطية بإسم api_ShowWindow يمكنك من استيرادها الى قاعدة البيانات لديك
اذا كنت تجد صعوبة في طريقة عملية الاستيراد فإليك الكود الخاص بالوحدة النمطية
كود
Option Compare Database
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. افتح النموذج الخاص بك في وضع التصميم ومن ثم اختر خصائص النموذج ثم اختر التبويب حدث وضع في حدث عند الفتح هذا الكود
كود
Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub
3. الان اختر ايضا خصائص النموذج واختر التبويب الكل وضع التالي
منبثق : نعم
شكلي او مشروط : نعم
نمط الحدود : مربع حوار
بعد تطبيق المثال العلوي ولكن لم أطبق الخيار رقم 3 (مستعجل).
حين فتح البرنامج يفتح البرنامج ولكن يختفى ولا يظهر فكيف ألغي الكود من البرنامج أرجوا الحل أخت زهرة
يعني أريد الدخول على البرنامج ولكن لم أستطع .
وحاولت عن طريق فتح القاعدة بـ Exclusive ولكن دون جدوى .
وألف شكر .
حليت المشكلة الحمدلله
وسبقتك في الحل أخت زهرة .
وألف شكر.
