الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلقمُجاب
بدأه abo issa في 4 فبراير 2013 · 5 رد · 825 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

ارفق لكم نموذجين من البرنامج للعمل عليهما النموذج الاساسي هو "startup12 " النموذج الثاني هو "startup1" و هو هنا يغلق برمجيا خلال ثواني

company.rar

#2 أفضل إجابة

تفضل اخي الكريم

 

ملفك بعد التعديل

 

 

هذا الكود يوضع في حدث عند الفتح لكل النماذج التي لا نرغب للمستخدمين بفتحها إلا إن يكون النموذج الأساسي مفتوح

 

 

Private Sub Form_Open(Cancel As Integer)
If Not CurrentProject.AllForms("startup12").IsLoaded Then
DoCmd.Quit
End If
End Sub
 
 
حاول فتح النموذج  FORM  بعد اغلاق النموذج الرئيسي  startup12  
اذا كان النموذج الرئيسي مفتوح سيتم فتح النموذج
واذا كان النموذج الرئيسي مغلق سيتم انهاء البرنامج بالكامل
 

 

 

بالتوفيق

تم تعديل هذه المشاركة بواسطة zahrah في 4 فبراير 2013 في 15:22

1
#3
zahrah كتب:

تفضل اخي الكريم

 

ملفك بعد التعديل

 

 

هذا الكود يوضع في حدث عند الفتح لكل النماذج التي لا نرغب للمستخدمين بفتحها إلا إن يكون النموذج الأساسي مفتوح

 

 

Private Sub Form_Open(Cancel As Integer)
If Not CurrentProject.AllForms("startup12").IsLoaded Then
DoCmd.Quit
End If
End Sub
 
 
حاول فتح النموذج  FORM  بعد اغلاق النموذج الرئيسي  startup12  
اذا كان النموذج الرئيسي مفتوح سيتم فتح النموذج
واذا كان النموذج الرئيسي مغلق سيتم انهاء البرنامج بالكامل
 

 

 

بالتوفيق

الاخت الكريمة زهرة بارك الله فيك و حفظك

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

لو سمحتي لي فلدي سؤالين اضيفهما هنا

الاول هو ماكرو اخفاء الاكسس لا يعمل مع النموذج "startup12 " و كنت قبل ذلك قد وضعته ككود عند التحميل " DoCmd.RunCommand acCmdWindowHide "و لم يتم ذلك error بينما تم ذلك في النموذج "startup1"

في هذا الشكل الجديد الذي ارفقه للبرنامج لم اقم بالغاء زر الشفت و تركت الفورم الذي قمتي بعمله و عليه جملة كتبتها و لم اربط الفورم بالنموذج الرئيسي فهل يمكن الوصول لما هو موجود في الفورم ؟؟

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

معذرة ساغادر للحاق بصلاة العصر و بعدها ساعود إن شاء الله

company.rar

post-270558-0-36318600-1359983153.jpg

تم تعديل هذه المشاركة بواسطة abo issa في 4 فبراير 2013 في 16:22

#4

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

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

بارك الله فيكي و جزاكي خيرا

#5

اخي الفاضل

 

من قواعد المشاركات في المنتدى انه اذا قمت بوضع سؤال وتمت الإجابه عليه بالكامل فهنا تقوم بالرد انك حصلت على اجابة السؤال وبهذا ينتهي مفعول المشاركة بوضعك تمت الإجابه حتى يتم اغلاق الموضوع

 

ولكن لو بقيت تسأل اكثر من سؤال في نفس الموضوع والمشاركة فلن تتم الإجابه عليك إلا بوضع سؤال جديد في مشاركة جديده حتى يتم النظر في السؤال الجديد واجابتك عليه لأنه ليس من المعقول ان تتم كل الإجابات على جميع الأسئلة في مشاركة واحده .

 

بالتوفيق

#6

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

لك ما اردتي اختي الكريمة و اشكر لك تجاوبك و حسن ردك جزاك الله خيرا

سيتم ترشيح ردك كافضل اجابة و ساطرح ما عندي في موضوع جديد

بارك الله فيك و وفقك لما يحبه و يرضاه

هذا الموضوع مغلق.

مواضيع مشابهة