هل يمكن فتح الفورم فقط بدون ما يفتح الأكسس كامل ؟

etqan54 كتب:

الأخت الكريمة جزاك الله خير الجزاء وأسأل الله سبحانه وتعالى ان يبارك لك فى ذريتك اللهم آمين

نفسي اعمل واجهه للبرنامج عندي تكون زراير الاوامر بطريقة منسدلة مثل البرنامج المرفق

نفسي اعمل واجهه للبرنامج عندي تكون زراير الاوامر بطريقة منسدلة مثل البرنامج المرفق

قوائم منسدلة.rar

جزاكى الله كل خير يا أم عهود

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

الى/ المبتدئين مثلي فقط

بعد ان انهينا تعليمات معلمتنا الاستاذه الفاضله الست زهره المحترمه المبينه اعلاه

وتلافيا للمشاكل التي وقعت بها انا نقوم بما يلي

نفترض ان النموذج الخاص بك اسمه ( Fday) أي نموذج العمل اليومي لاننا اتفقنا على عدم تسميه الكائنات بالعربي

1) بعد فتح نموذج( Fday) في طريقة عرض التصميم اضف اليه زر امر الغايه منه اغلاق قاعدة البيانات عند ما ينتهي عملك وكمايلي : اضف زر امر الى النموذج وعند فتح مربع الحوار /من الصندوق الايمن اختر تطبيق / ومن الصندوق الايسر اخترانهاء التطبيق/ التالي / علامة التوقف/التالي/ انهاء

2) من خصائص النموذج / الكل/ اذهب الى (زر اغلاق) ثم اشر لا

3) مقابل تسميه توضيحيه اكتب ( نموذج العمل اليومي)

4) اغلق عرض التصميم ثم اذهب الى/ قائمة ادوات /بدا التشغيل/ واحذف كل علامات الصح عدا الموجود مقابل كلمه ( السماح بالقائمه المختصره الافتراضيه) اي كما فعلت الست زهره تماما

تذكرت بالنسبه لاسم النموذج( Fday) ( لاتهتم بالترجمه المهم انت تعرف محتوى النموذج)

لاتنسوا

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

لاتنسوا الدعاء للاستاذه زهره المحترمه بان يجعل ذلك في ميزان حسناتها

وبقدر الجهد الذي بذلتوه في قراءة هذا الموضوع اكملوا جهدكم بوضع +1 للست زهره لان

صلاحيتنا في رد الجميل لها محصوره باثنين الدعاء و + 1

تقبلوا تحياتي

شكرا جزيلا جميعا

وفقكم الله

اختي العزيزة زهرة انا طبقت خطواتك ولكن لم يعمل عندي ولم اجد

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

مع العلم ان البرنامج عندي بالانجليزي ارجو المساعدة وشكرا

لينا عامر كتب:

اختي العزيزة زهرة انا طبقت خطواتك ولكن لم يعمل عندي ولم اجد

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

مع العلم ان البرنامج عندي بالانجليزي ارجو المساعدة وشكرا

 Pop UP : yes

Modal : yes

بالتوفيق

zahrah كتب:

اخي الفاضل خالد

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

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

1. ستجد في المثال المرفق وحدة نمطية بإسم 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. الان اختر ايضا خصائص النموذج واختر التبويب الكل وضع التالي

منبثق : نعم

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

نمط الحدود : مربع حوار

وهذا مثال على هذا الشرح

Hide_Access2003.rar

اختكم

زهره

اختي الفاضلة زهرة

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

ولكن للأسف تم اغلاق قاعدة البيانات نهائيا

وأصبح يخرج  لي نافذة أنه تم تأمين قاعدة ابليانات على هذا الجهاز بحيث يصعب فتحها وتحريرها