الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مثال رائع للبحث بجزء من الاسم واحتاج تعديل بسيط عليه

بدأه mmmb في 29 يوليو 2013 · 11 رد · 522 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم جميعا ومبارك عليكم الشهر

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

 

اثناء البحث في المنتدى وجدت هذا المثال الرائع للبحث بجزء من الاسم 

آمل ان يستفيد منه من هو بحاجته 

ولي طلب بسيط وضعته في المرفق بخصوص اظهار جيع الالسماء في حال عدم وجود بيانات في حقل البحث

 

ولكم اطيب المنى

احوكم ابوفيصل

بحث بجزء من الاسم.rar

#2

اخي

 

في الاستعلام ، استبدل هاي الشرط بدل الشرط القديم:

Like "*" & [forms]![Form1]![txtPar] & "*"

 

جعفر

#3

شكرا اخي jjafferrعلى سرعة ردك ولكن هذا المعيار ما يجيب لك البحث المطلوب

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

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

اتمنى تكون وضحت الفكرة 

وشكرا لمجهودك اخي

#4

هممم

سؤالك كان:

>اظهار جيع الالسماء في حال عدم وجود بيانات في حقل البحث

وما كان مثل ما تقول الآن!!

 

جعفر

#5

عذرا ان لم يتضح المطلوب في السابق

وشكرا لاهتماك اخي جعفر

لازلت في الانتظار

#6

اعتذر منك اخوي ، فالكود الاصلي ما اشتغل عندي ، فالخطأ مني ، واطلب منك السموحة :)

 

تفضل ، إن شاء الله هالمرفق هو اللي تريده :)

 

جعفر

48.db1.mdb.zip

#7

شكرا اخي جعفر على مجهودك لكن ليس هذا المطلوب 

ولا اريد ان يكون للنموذج الرئيسي مصدر سجلات

ولاحظت انني عندما ابحث عن سجل تمحى بياناته من الجدول

اكرر شكري ودعواتي لك

ولازلت انتظر الحل

#8

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

 

 

هل افهم من قولك ، ان النموذج في برنامجك الاصلي ليس له مصدر سجلات؟

 

جعفر

#9

عفوا ، جرب هذا المرفق.

 

جعفر

48.db1.mdb.zip

1
#10

يا سلام عليك اخي جعفر يعطيك الف مليون عافي هذا هو المطلوب

والله اسال ان يثيبك في هذه العشر اجزل الثواب ويعطيك ما تتمنى

اكرر شكري الجزيل .. اخوك ابو فيصل

#11

تفضل

Private Sub txtPar_AfterUpdate()
If Me.ttttt.ListCount > 0 Then Me.ttttt.RowSource = "query1": Me.ttttt.Requery
If Me.ttttt.ListCount = 0 Then Me.ttttt.RowSource = "select * from table1": Me.ttttt.Requery

End Sub

وذلك للابقاء على السيناريو المستخدم بحسنه وعيبه

.

خبير تحليل النظم

خبير Business Process ونظم ERPs

خبير قواعد بيانات وبرمجة اكسس

 

abc_2_me@hotmail.com

#12

حياك الله أبوفيصل

ولك ومن تحب مثل ما دعوت لي إن شاء الله تعالى :)

جعفر

تم تعديل هذه المشاركة بواسطة jjafferr في 29 يوليو 2013 في 03:36

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…