أبو عبد لله الحلوانى

أستاذ أزهر شكرا على الاهتمام

نسخة الاكسيس لدى 2010 - 32 بايت

جزاك الله عنا خيرا وبارك لنا فيك ونفع بك أينما حللت

السلام عليكم ورحمة الله وبركاته

 

يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه )

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

نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة

'1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog).

'2- في التبويب "الكل" (All)

'حول الخاصية "منبثق" (Pop up) الى نعم (Yes)

'حول الخاصية "مشروط" (Modal) الى نعم (Yes)

'خلف نموذج البداية

Private Sub Form_Open(Cancel As Integer)
fSetAccessWindow (SW_HIDE)
End Sub

اكرر استفساري مجددا آملا من الله أن يوفقنى لحسن السؤال

بعد تنفيذ هذه الاجراءات كاملة اعطتنى رسالة خطأ بعد التنفيذ مفادها عدم وجود user32.dll ارجو المساعدة فى توضيح سبب الخطأ وكيفية المعالجة

وادامكم الله لنا نبراسا للخير ونشر العلم

اين الملف استاذنا أزهر

أستاذ أبو خليل جزاك الله خيرا

تأخرت كثيرا ولكن شغلتنى المتابعة عن كثب لموضوعات هذا الصرح التعليمى التى اغنتنى عن كثرت البحث

أرجو ان يتسع لى صدركم والسماح لى بالاستفسار الاتى:

1- علمت بفضل الله ثم بفضلكم ان المتغير ( rs) فى المثال السابق لا تحمل قيمة وتحتاج الى وسيطة ك (find) أو (dlookup)

ولكن عند استعمال find او dlookup فتعطى رسالة خطأ عندما يكون الجدول فارغ من القيم فهل من وسيلة لتعمل الدالة مع الجدول قبل ادخال القيم

2 - أرجو أن يوجد فى مكتبتكم شرحا لوظيفة (DoMenuItem)

3- ترددت كثيرا فى متابة هذه الاستفسارات ولكن اطمعنى كرمكم الزائد وحرصكم الدائم على تقديم يد العون للاخرين فى طرحها

واسئل الله أن يجزل لكم العطاء ويجزيكم عنا خيرا وسائر اساتذة المنتدى الكرام

لم أفتح البرنامج بعد ولكن هو برنامج متميز من عضو مميز شكرا على البرنامج استاذنا ازهر