إظهار النموذج فقط دون شاشة الأكسس

[أبورحيل]

السلام و عليكم ياريت شرح بالصور إن أمكن في عملية إظهار النماذج فقط دون الشاشة الخلفية للأكسس إن امكن فأنا تابعت فيديو في قناة في اليوتيوب و طبقت شرح الإحوة في المنتدى و لم أفلح بحيث عند فتح النموذج تأتي رسالة خطأ و للأسف لم أستطع إرفاق الملف علما أنا استعمل أكسس 2010

[علي المصري]

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

جرب استخدام الكود التالي :

Attribute VB_Name = "HideAccessWindows"
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

 

[أبورحيل]

شكرا على الرد و بارك الله فيك أنا إتبعت الخطوات لكن تأتي رسالة خطأ بخصوص الحدث

[علي المصري]

اكتب الكود في وحدة نمطية 

ونفذ الخطوات المكتوبة بالعربي

وفي حدث فتح النموذج الساسي للبرنامج

اكتب الكود التالي

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

 

Database2.rar

تم تعديل أكتوبر 9, 2015 بواسطه علي المصري

[أبورحيل]

 إحتساب أقدمية.rar شكرا على التواصل هذا البرنامج الذي أنا أعمل عليه أرجو أن تشرح لي لماذا لم تضبط معي

 

أرجو المعذرة 

إحتساب أقدمية.rar

تم تعديل أكتوبر 9, 2015 بواسطه أبورحيل

[علي المصري]

بعد تشغيل الكود يعطي خطأ في دالة حساب الشهر واليوم

الموجودة بالاستعلام

فقمت بحذفها من الاستعلام

 

يمكنك الاستغناء عن حساب الشر واليوم والسنة في الاستعلام

وتقوم بحسابها من خلال النموذج مباشرة

بكتابة الكود في مصدر بيانات كل من الشهر واليوم والسنة

كما موضح بالصورة

 

[أبورحيل]

شكرا على الشرح لكن عندما أحذف الدالة لا يبقى للبرنامج معنى 

شكرا بارك الله فيك على تحملك إياي 

[علي المصري]

لا تحذف الدالة

ولكن استخدمها في النموذج نفسه