[ تمت الإجابة ]فتح النموذج اكثر من مرة

مرحبا

لم افهم قصدك , كيف تريد كود يفتح النموذج اكثر من مره- ام تقصد ان يمنع فتح النموذج اكثر من مره

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

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

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

يقوم بفتح نسخة اخرى بغض النظر عن النسخة المفتوحة الاخرى

اتمنى ان يكون الشرح واضح...

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

الأخ / سيد فوكس المحترم،،

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

أولا : تفتح النموذج الذي تريد فتحه الى أكثر من نسخة في وضع التصميم ..

ثانيا : نقوم بوضع زر لفتح نموذج جديد وليكن اسمه في مثالنا هذا CmdNewForm

ثالثا: نقوم بوضع هذا الكود في حدث عند النقر

	Set frmNewForm = New Form_tblCus
	 frmNewForm.SetFocus
	  intInstanceNum = intInstanceNum + 1
	frmNewForm.Caption = "نموذج مشكاة (" & intInstanceNum & ")"

ملاحظة : tblCus اسم النموذج ويستبدل باسم النموذج الذي عندك

رابعا: نقوم بوضع هذا الكود في حدث نموذج عند الفتح

	DoCmd.MoveSize xPos, yPos

	xPos = xPos + 300
	yPos = yPos + 300

هذا الكود يقوم بتحريك النموذج الجديد بمقدار 300 عن النموذج القديم

خامسا : نقوم بوضع هذا الكود في نموذج عند الاغلاق

	xPos = 300
	yPos = 300
	intInstanceNum = 0

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

Option Explicit
Dim frmNewForm As Form

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

Public xPos As Integer
Public yPos As Integer
Public intInstanceNum As Integer

طبعا هذه تعريفات عامة

هنا اكتملت جميع الخطوات اللازمة والمطلوبة لإمكانية فتح نموذج جديد لنفس النموذج في نفس الوقت مع امكانية التعديل على البيانات من خلال اي نموذج.

ومرفق مثال لما سبق

أخوك مشكاة

MK_MultipleForm.rar

بارك الله فيك اخي Mishkat ibrahim

بالفعل هذا ما كنت ابحث عنه

جعله الله في ميزان حسناتك

اخوك سيد فوكس

بسم الله الرحمن الرحيم

الله يرضى عليك أخي مشكاة على هذا المثال الجميل الرائع

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة

بارك الله فيك الاخ اكسير وامد لك في عمرك ونفع بك الاسلام والمسلمين منذ زمن وانا ابحث عن مثل هذا...

في كثير من الاحيان وخصوصا في برامج المبيعات بحاجة الى فتح اكثر من فاتورة في نفس الوقت

شكرا لك مرة اخرى

اخوك/ابو محمد

شكرا لكم, جزاكم الله كل خير,

الفكرة عظيمة و لكن هل هناك من طريقة للتمييز بين نسخ النموذج برمجيا؟

اذا اردنا قراءة اي قيمة من أحد النسخ, ماذا سيكون اسم النسخة؟؟