مساعدة في وضع شرط لكود

[الجموعي]

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

اريد مساعدتكم في هذا الكود

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextFind1.Value = Me.ListBox1.Column(0)
Me.TextFind2.Value = Me.ListBox1.Column(0)
Me.ListBox1.Visible = False
End Sub

أريد عند أختيار القيم البحث بواسطة (TextFind1)  في (ListBox1) تظهر النتائج فيTextBox

عندأختيار القيم البحث بواسطة (TextFind2)  في (ListBox1) تظهر النتائج في TextBox

ملاحظة

(TextFind1) يبحث في [b2:B100000]

(TextFind2) يبحث في [G2:G100000]

في نفس الشيت

[ياسر خليل أبو البراء]

ارفق ملفك أخي الجموعي حتى يسهل النظر في الحل

[الجموعي]

 

ارفق ملفك أخي الجموعي حتى يسهل النظر في الحل

 

تفضل المرفق أستاذي

ملاحظة

للبحث قم بإختيار القيم من الكمبوبوكس ليتم إظهار تكست البحث

المطلوب

العمل مع الشروط التالية

في الليست بوكس

في زر حذف

في زر تعديل

في زر حفظ التعديل

في زر ترحيل

 

data.rar

[ibn_egypt]

اخى الفاضل الجموعي

 

جرب الملف المرفق لربما به طلبك 

 

تحياتي  

data.rar

[الجموعي]

اخى الفاضل الجموعي

 

جرب الملف المرفق لربما به طلبك 

 

تحياتي  

أستاذي القدير/ ابن مصر

بارك الله على هذا الفورم الرائع جدا

أنا اريد إختيار الأفواج يتم عن طريق الكمبوبوكس

للعلم في الفورم المرفق  في المشاركة الأولى

مثلا إذا أردت البحث TextFind1

أضع هذا الكود في هذا الحدث

تتم عملية البحث وإستدعاء البيانات بنجاح

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextFind1.Value = Me.ListBox1.Column(0)
Me.ListBox1.Visible = False
End Sub

إذا أردت البحث TextFind2

أضع هذا الكود في هذا الحدث

 تتم عملية البحث وإستدعاء البيانات بنجاح

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextFind2.Value = Me.ListBox1.Column(0)
Me.ListBox1.Visible = False
End Sub

وأنا أريد دمجهما مع بعض في هذا الحدث

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Me.TextFind1.Value = Me.ListBox1.Column(0)
Me.TextFind2.Value = Me.ListBox1.Column(0)
Me.ListBox1.Visible = False
End Sub

لكن ماهي الطريقة لعمل ذلك

[ibn_egypt]

 

أنا اريد إختيار الأفواج يتم عن طريق الكمبوبوكس

للعلم في الفورم المرفق  في المشاركة الأولى

مثلا إذا أردت البحث TextFind1

أضع هذا الكود في هذا الحدث

تتم عملية البحث وإستدعاء البيانات بنجاح

إذا أردت البحث TextFind2

أضع هذا الكود في هذا الحدث

 تتم عملية البحث وإستدعاء البيانات بنجاح

وأنا أريد دمجهما مع بعض في هذا الحدث

لكن ماهي الطريقة لعمل ذلك

 

 

اخى الفاضل

 

استبدل الكود الموجود في حدث ListBox1_DblClick  بهذا الكود .. وان شاء الله تزبط معاك

If Me.ComboBox1.ListIndex = 0 Then
Me.TextFind1.Value = Me.ListBox1.Column(0)
Else
Me.TextFind2.Value = Me.ListBox1.Column(0)
End If

Me.ListBox1.Visible = False

تحياتي  

[الجموعي]

 

 

أنا اريد إختيار الأفواج يتم عن طريق الكمبوبوكس

للعلم في الفورم المرفق  في المشاركة الأولى

مثلا إذا أردت البحث TextFind1

أضع هذا الكود في هذا الحدث

تتم عملية البحث وإستدعاء البيانات بنجاح

إذا أردت البحث TextFind2

أضع هذا الكود في هذا الحدث

 تتم عملية البحث وإستدعاء البيانات بنجاح

وأنا أريد دمجهما مع بعض في هذا الحدث

لكن ماهي الطريقة لعمل ذلك

 

 

اخى الفاضل

 

استبدل الكود الموجود في حدث ListBox1_DblClick  بهذا الكود .. وان شاء الله تزبط معاك

If Me.ComboBox1.ListIndex = 0 Then
Me.TextFind1.Value = Me.ListBox1.Column(0)
Else
Me.TextFind2.Value = Me.ListBox1.Column(0)
End If

Me.ListBox1.Visible = False

تحياتي  

 

أستاذي الفاضل فعلا تم المطلوب بنجاح

أريد إستكمال الشرط مع بقية الأزرار

في زر حذف

في زر تعديل

في زر حفظ التعديل

في زر ترحيل

[ibn_egypt]

اخى الفاضل

 

تفضل .. مرفق الملف به طلبك

 

تحياتي  

data.rar

[الجموعي]

اخى الفاضل

 

تفضل .. مرفق الملف به طلبك

 

تحياتي  

 

فعلا هو المطلوب

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

بهذا التعديل وفرت عليا عدة أشياء

إضافة ليست بوكس 2

إضافة تكست بوكس

إضافة الازرار

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

كل ما عليا فعله الأن هو إضافة مربع بحث فقط وتعديل ما يجب تعديله في اكواد الفورم والموديول

[الجموعي]

اخى الفاضل الجموعي

 

جرب الملف المرفق لربما به طلبك 

 

تحياتي  

أستاذي القدير/ابن مصر

حاولت تطبيق مرفقك في المشاركة رقم 4 لجعل عملية البحث تتم في كامل الأعمدة لكن تظهر لي المشاكل

خاصة هذا المعرف ياريت شرح له

وياريت تطبيق ذلك على الفورم بعد تعديلك في المشاركة 8

Dim Ad As String