برنامج دليل الهاتف يحتاج إلى بحث بجزء من الاسم

هناك خطأ في الكود

أنظر إلى الأسطر التالية والموجود في حدث عند التغيير في مربع النص

Select Case Me.OptSearch
	   Case 1: SearchText = SearchText & "*"
	   Case 2: SearchText = "*" & SearchText & "*"
	   Case 3: SearchText = "*" & SearchText
	 End Select

مطلوب منك تعديل الأتي

عدل السطر التالي

Case 1

إلى التالي

Case 2

والسطر

Case 2

إلى

Case 1

ليصبح الكود بعد التعديل كالتالي

	Select Case Me.OptSearch
	   Case 2: SearchText = SearchText & "*"
	   Case 1: SearchText = "*" & SearchText & "*"
	   Case 3: SearchText = "*" & SearchText
	 End Select

وستعمل الخيارات الثلاث بإذن الله

السلام عليكم ....

سرني جداً ردك والحل ....

زادك الله علماً ونفع الله بك وبعلمك .

مصلح الحريصي كتب:

ليصبح الكود بعد التعديل كالتالي

	Select Case Me.OptSearch
	   Case 2: SearchText = SearchText & "*"
	   Case 1: SearchText = "*" & SearchText & "*"
	   Case 3: SearchText = "*" & SearchText
	 End Select

وستعمل الخيارات الثلاث بإذن الله

الأخ مصلح..

طبقت ما ذكرته على قاعدة للموظفين، ولكنني أريد أن أضيف لهذه الاختيارات (البحث برقم الموظف) فهل تكرمت بايضاح كيف يكون ذلك؟

ولك خالص الشكر مقدماً.

أضف للقائمة اسم حقل رقم الموظف وكذلك أضفه إلى النموذج الفرعي

وإذا لم تصل لمبتغاك فأرفق مثال مطابق لما لديك ليتم التعديل عليه

وأبشر