[ تمت الإجابة ]التنقل بين النماذج عن طريق combobox

الأخت الكريمة MOON

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

مرحباً بكم في منتدى الفريق العربي للبرمجة

نود تنبيهك أن العنوان غير مناسب.

الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية.تم تغيير اسم الموضوع

وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!!

قواعد المشاركة

http://www.arabteam2...showtopic=29343

شاكرين لكم حُسن تعاونكم

اهلا موون

يمكنك عمل الفكرة باستخدام طريقة سهلة وسريعة هي DO CASE

مثلاً

 DO CASE 
CASE THISFORM.COmbo1.Value='قسم القانونية'
MESSAGEBOX("الانتقال الى "+"قسم القانونية ")
ENDCASE

قومي باستبدال الرسالة بـــ

DO FORM FORM1

READ EVENTS

تحياتي للجميع

ss.zip

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

مشكوووور اخي فراس على الرد الجميل

انا اعتذر بخصوص عنوان الموضوع :hmm:

اما بخصوص الكود فهل اكرر كتابة الكود لكل الاختيارات الموجودة في الكومبو ليتم الانتقال الى فورم اخر؟؟

اشكرك مرة اخرى بارك الله فيك

moonlight10 كتب:

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

مشكوووور اخي فراس على الرد الجميل

انا اعتذر بخصوص عنوان الموضوع :hmm:

اما بخصوص الكود فهل اكرر كتابة الكود لكل الاختيارات الموجودة في الكومبو ليتم الانتقال الى فورم اخر؟؟

اشكرك مرة اخرى بارك الله فيك

اهلا موون

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

do case

و

endcase

على الحاله الاتية

CASE THISFORM.COmbo1.Value='قسم القانونية'

MESSAGEBOX("الانتقال الى "+"قسم القانونية ")

تحياتي للجميع

السلام عليكم

تحياتي لـ moon و فراس

جربي الكود التالي في اجراء InteractiveChange

حيث يقوم بالاعتماد على ListIndex بتخزين اسم النموذج للمتغير lcFormName

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

وفي حالة وجوده يقوم اما باستدعائه ان لم يكن ظاهراً من قبل DO FORM ، أو بعمل اعادة اظهار له ان كان فعالاً Activate Window

	LOCAL lnIndex, lcFormName
	m.lnIndex=THIS.LISTINDEX
	m.lcFormName=''

	DO CASE
		CASE m.lnIndex = 1
			m.lcFormName='FormA'
		CASE m.lnIndex = 2
			m.lcFormName='FormB'
		CASE m.lnIndex = 3
			m.lcFormName='FormC'
		OTHERWISE
	ENDCASE

	IF NOT EMPTY(m.lcFormName) AND FILE(m.lcFormName+".SCX")
		IF WEXIST( m.lcFormName )
			ACTIVATE WINDOW ( m.lcFormName )
		ELSE
			DO FORM (m.lcFormName)
		ENDIF
	ENDIF

CallFormFromComboBox.rar

طريقة جميلة جدا ااخي عبد الله

بارك الله فيك واتمنى وصول الافكرة للاخت موون ووجدت الفائدة

واريد ان اسبق الاخت موون بجواب قبل سوالها عن استخدام الاخ عبدالله الايعاز WEXIST

WEXIST :يفيد في تحديد اذا كانت نافذة معرفة موجودة ام لا

وشكرا مرة اخرى للجميع بما يقدمون لنا اولا ً وللمنتدى ثانياً لفائدة اكبر

تحياتي للجميع

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

الاخوة الاعزاء عبد الله وفراس

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

طبعا الاخ فراس يعرفني رح اسال على الايعاز لذلك سبقني وسال وجاوب ههههههههههههههه

الله لا يحرمنا من مشاركاتكم القيمة .

أهلا وسهلا وادام الله الصحة والعافية والتوفيق لجميع الاعضاء

تحياتي للجميع