كيف اظهر رسالة بوجود السجل مسبقا

في حل مؤقت عقبال لما ادورلك على الحل لأني لسة مثبت ويندوز اليوم ولسة ما ثبت الفيجوال بيزك

المهم

الحل المؤقت هو انك اول لما تدوس على زر إضافة يتم إضافتهة في المكان اللي انت محدده في المثال ثم تقوم بحذفه من الكمبو بوكس

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

لما تمسحها من المربع List تقوم بإضافتها مرة أخرة في الكمبوبوكس

السلام عليكم

اخي محمد

أشكرك اخي على هذا المرور والمحاوله فى الاجابه

لكني اخي مبتدئ في الفيجوال بيسك

وأتمنى ان تعطوني الكود مباشره لاني احتاجه ضروري

مشكور اخي كمان مره

السلام عليكم

لا تستعجل يا اخي

فلا تتعود على انك تأخد الكود كوبي وتروح في المشروع وبيست

فانت بالشكل ده عمرك ما هاتبقى مبرمج خالص

وعلى العموم الكود التالي خاص بالزر اللي سينقل اللي انت اختارته من الكمبو بوكس في القائمة List ويحذفه من الكمبو بوكس حتى لا يستطيع المستخدم إضافته مرة اخرى

If Combo1.Text = "" Then Exit Sub
List1.AddItem Combo1.Text

Combo1.RemoveItem Combo1.ListIndex

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

تاني سطر يضيف اللي المستخدم اختاره من الكمبو بوكس الى القائمة List

ثالث سطر بيشيل اللي المستخدم اختارة من الكمبو بوكس

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

If List1.Text = "" Then Exit Sub
Combo1.AddItem List1.Text

List1.RemoveItem List1.ListIndex

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

السطر الثاني بيضيف اللي المستخدم اختاره من القائمة List الي الكمبو بوكس

ثالث سطر بيشيل اللي المستخدم اختاره من القائمة List

و سلامي لك

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

شكرا يا أخ محمد على الكود واضافة للكود الذي وضعته

هذا هو كود البحث داخل الـ ListBox

	For i = 0 To List1.ListCount - 1
		List1.Selected(i) = True
		If List1.Text = Combo1.Text Then
			MsgBox "تم اضافة هذا العنصر مسبقا"
			Exit Sub
		End If
	Next
	List1.AddItem Combo1

وعند وجود العنصر مسبقا سيتم الوقف عليه وتحديده للمستخدم

بالتوفيق

==============

الى اللقاء

مشكور جدا يا اخ MR^King

Exm.rar