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

عزيزي ورد هذا في مشاركات زهرة وبامكانك البحث في المنتدى عن "تشغيل الاكسس على الجهاز بدون اوفيس" او شي كهذا وعلى العموم يوجد على قرص الoffice ملفين هما accessrnt.msi وملف اخر

لا اعرف

أو اذا كنت نريد عدم اظهار خلفية الاكسس عند تشغيل برامجك ابحث عن "اخفاء شاشة اكسس"

بارك الله فيك اخي وسقاك من حوض نبيك محمد صلى الله عليه وسلم يوم القيامة وجعل الفردوس دارك اخي همام محمد

سأجرب البحث ان شاء الله

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

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

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

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

اختكم

زهره

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

اختي العزيزة سأجرب وارد عليكي خبر

ولكن اريد ان اخبرك شوي شوي علي لانني مبتدى جدا والله يعينني في محاولة تطبيق ما قلتي

تحياتي اختي العزيزة

يا سلام عليج اختي الكريمة ....على فكرة انا ما عندي خوات واسمحي لي أن يكون لي الشرف عندما اقول لج اختي

عملت الخطوات وكانت النتيجة مذهلة وتحقق ما أردت

لكن في عندي ملاحظات واستفسارات

1 - عندي نماذج اخرى وفي زر في النموذج الذي طبقت عليه هذه الطريقة يودي على النماذج الاخرى بالاصح نموذج اخر واحد وهو نموذج بحث ...سؤالي هل يجب تطبيق هذه الطريقة على جميع النماذج الاخرى؟؟؟

2 - اذا عملت رقم سري وصلاحيات للبرنامج هل سيتأثر البرنامج بالصلاحيات والصلاحيات هي من برنامج معالج نظام المستخدمين لأحد الأخوة أم ان البرنامج تبعي لا يتأثر؟؟

3- قرأت موضوعج على العنوان Access2EXE وكذلك نزلت البرنامج الذي وضعتيه وعنوانه

http://www.geocities.com/zahrah_adf/access.../access2exe.zip

واتبعت الشرح في الوورد والحمد لله استطعت الحصول على ملف exe

سؤالي هل ستتأثر الطريقة التي طبقناها وهي اظهار الفورم فقط عند تحويله الى ملف exe

ولك جزيل الشكر اختي الغالية

بارك الله فيك اخي خالد

اذا كان لديك نماذج احرى غير النموذج الاصلي فالطريقة كالتالي

1. نضع الكود السابق الخاص بإستدعاء الوحدة النمطية في اول نموذج فقط عند حدث الفتح كما تم شرحه

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

2. باقي النماذج جميعا نختار لها فقط من خصائص النموذج

منبثق : نعم

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

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

ولا نضع بها كود استدعاء الوحة النمطية فقد تم استدعاؤه مسبقا في النموذج الاول

طبعا هذا الكود الخاص بإخفاء شاشة الاكسيس لا يوثر على البرنامج وبإمكانك استخدام ما تريد من الاكواد الاضافيه

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

الفكرة رائعة ولكن لى استفسار مهم وهو هل من الممكن أن تستخدم قاعدة البيانات من خلال النموزج او الشاشة الرئيسية لأننى طبقت الفكرة ولكنى لا استطيع فتح النمازج المنبثقة من الشاشة الرئيسية ولا التقارير ولك كل الشكر والدعاء بالتوفيق

اخي الفاضل

لو قرأت اخر المشاركة لوجدتني فلت

اقتباس

2. باقي النماذج جميعا نختار لها فقط من خصائص النموذج

منبثق : نعم

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

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

ولا نضع بها كود استدعاء الوحة النمطية فقد تم استدعاؤه مسبقا في النموذج الاول

طبعا هذا الكود الخاص بإخفاء شاشة الاكسيس لا يوثر على البرنامج وبإمكانك استخدام ما تريد من الاكواد الاضافيه

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

والله ما أقول إله ربنا إفتح عليكي

ويوفق ويكون في موازين حسناتيك

thanks alot

but where to put this one:

Private Sub Form_Open(Cancel As Integer)

fSetAccessWindow (SW_HIDE)

End Sub

?

my acces in english

اخي الفاضل البحرين

يوضع هذا الكود في حدث عند فتح النموذج واساسا هو على اسمه

Form_Open_Event

أخي الفاضل

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

إذا استمرت التقارير في عدم الظهور ((( التقارير فقط)) ) ضع الكود التالي في حدث عند الفتح

DoCmd.Maximize

شكرا أخي الفاضل

الأخت زهرة تحية طيبة وعطرة اليكي ولمجهوداتك العظيمة مع الجميع...........................

في البداية اود ان استشير خبرتك الكبيرة معي في برنامجي الصغير

اردت عمل اخفاء لشاشات الأكسس كما تعلمت منكم وفي نفس الوقت اردت ان اضع شريط خاص بي عن طريق الماكرو وتم بالفعل عمل ذلك والمشكلة اني وجدت بعد ذلك يظهر مربع صغير بجوار الشريط كيف اخفي هذا المربع

ويظهر مربع الإغلاق والتصغير في اعلا الشاشة بالرغم من انني طلبت عدم ظهورهم في الخصائص الخاصة بهذا الفورم .........

وتحياتي لك ولجميع فريق العمل القائم بهذا الموقع الذي اعتبره منارة علم لنا جميعا

السلام عليكم

تم عمل اللازم

لكن تظهر نسخه ثانية

مكتوب معلومات تامين السجلات

ويعلق البرنامج

مرفق لكم صور

اخي الفاضل مشاكس دبي

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

وهذه الملف هو صوره من اسم قاعدة البيانات ولكنه بإمتداد ldb.تجربه حاول تظهر اسماء الملفات وستجد هذه اللاحقة في نهاية اسم الملف كما هو الحال للاحقة الخاصة بقاعدة البيانات mdb.تجربه .

الآن افتح اي قاعدة بيانات لديك ثم افتح ملف التأمين الذي سوف يفتح مع القاعدة بواسطة برنامج المفكره وانظر ماذا سيظهر لك

بالتأكيد سوف يظهر لك ( اسم الكمبيوتر الذي تعمل عليه واسم المسؤول مثل Admin ) قم بإغلاق ملف المفكره ثم اغلق قاعدة البيانات وستلاحظ انه قد تم اغلاقه مع قاعدة البيانات مباشرة .

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

لكن بعد اغلاق البرنامج

اذا ارت فتحه من جديد فلا يفتح معي

اخي الفاضل

عند استخدام كود اخفاء شاشة الأكسيس لفتح النموذج منفردا يجب ان نستخدم التعليمة DoCmd.Quit لغلق البرنامج ولا نستخدم في هذه الحالة التعليمة DoCmd.Close

لأنه سيتم اغلاق فقط النموذج اما برنامج الأكسيس فلا زال مفتوحا ولكنه مخفي .

مشكوره

خلاص انحلات المشكلة

السلام عليكم

لو موجود أصلا كود عند فتح النموزج ازاى أكتب الكود الحالى

بصفة عامة ازاى أضيف أكتر من كود عند حدث واحد

وشكرا

مبدعة انتى دائما -- الله ينور عليكى

مرحبا الجميع

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

لكن سؤالي/

أنا كـ آدمن أبي ارجع للبيانات والجداول

وأعدل عليهم

كيف ممكن يكون هالشي؟؟

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

لو ممكن شخص يؤد على سؤالي عن

كيفية إمكانية الرجوع لوضع التصميم للتعديل على أمر ما؟؟؟

ضروري

لأني حاولت أعدل على التصميم ولا قدرت اوصل للتصميم

ومشكورين

رجعت بعد مالقيت حل مؤقت

وهو رايت كلك على الفورم ونختار الديزاين فيو

موضوع جميل وأعجبني ...

بارك الله فيكم وفي جهودكم.

السلام عليكم

اخواني الذين يسالون عن اعادة البرنامج لوضع التصميم من اجل التعديل والتطوير

هل نسيتم sfhift

اضغط على مفتاح شفت اثناء فتح البرنامج وسيدخل الى البرنامج الاصلي للتعديل