كود للبحث من خلال الكمبو بوكس غير مرتبط بقاعدة البيانات

[Mostafa Metwally]

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

عندي قاعدة بيانات تحتوى على جدول اسمة names وبه عمودين id , name

ويوجد فورم به كومبو بوكس غير مرتبط

والمطلوب

عن الضغط على الاسم الموجود فى الكمبو بوكس يعمل بحث ويظهر بياناتة فى الحدث after update الخاص بالكمبو بوكس

ومرفق قاعدة البيانات للتعديل

وجزاكم الله خيرا

 

db.rar

[أبو عبدالله الحلوانى]

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

جرب هل هذا ما تريد

لا تنسا موافتنا بالنتائج

db.rar

[Mostafa Metwally]

شكرا اخى الفاضل ابو عبدلله على مرورك 

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

وجزاكم الله خيرا 

 

[صالح حمادي]

السلام عليكم

أولا قمت بتغيير اسم الحقل name في الجدول names إلى tname و ذلك لأن name كلمة محجوزة داخل الأكسس.

ثانيا: أضف هذا الكود في حدث عند التغيير:

DoCmd.SearchForRecord acDataForm, "namess", acFirst, "[tname]='" & Me.fsearch & "'"

و هذا هو التعديل

db.rar

[Mostafa Metwally]

شكرا على مرورك 

ولكن يظهر خطا عند التنفيد مرفق صورة الخطا 

 

[الحلبي]

اخواني الاعزاء

عندي لم يكن هناك اي مشكلة ولم تظهر رسائل 

قام بالبحث في منتهي الجمال

جزاك الله خيرا استاذ / صالح

[رمهان]

2 ساعات مضت, Mostafa Metwally said:

شكرا على مرورك 

ولكن يظهر خطا عند التنفيد مرفق صورة الخطا 

 

الطريقة تختص ب 2007 وما فوق

[Shivan Rekany]

استاذنا الافاضل
اذا تسمحون لنا بالمداخلة
نريد ان نضيف هذا الكود مع الكود السابق البحث لكي يبحث لنا كل اسماء وليس اسم الاول فقط
للتوضيح مثلا عدنا 2 اسماء باسم احمد
عند البحث راح يعطيك الاس الاول وبواسطة ازرار اذا تروح الى سجل الاخر مباشرتا راح يعطيك الاسم اللي بعده
لكن اذا تستخدم هدول سوى عند تضغط على الزر راح يروح على اسم الثاني اي احمد الثاني
 

Private Sub fsearch_AfterUpdate()
If Not IsNull(Me.fsearch) = True Then
Me.RecordSource = "SELECT names.id, names.tname FROM [names] WHERE (((names.tname)=[Forms]![names]![fsearch]));"
Else
Me.RecordSource = "SELECT names.* FROM [names]"
End If
End Sub
Private Sub fsearch_Change()
DoCmd.SearchForRecord acDataForm, "names", acFirst, "[tname]='" & Me.fsearch & "'"
End Sub

بهذا الكود بعد تحديث لكومبوبوكس اي بعد البحث سيكون مصدر النموذج هو تلك السجلات اللي يساوي مع الاسم المختار في كومبوبوكس
واذا بيكون الكومبوبوكس فارغة ما بها اي اسم سيختار كل السجلات من جديد

 

db.rar

[الحلبي]

الله الله عليك استاد / شفان

والله انت جميل

[Shivan Rekany]

8 دقائق مضت, حلبي said:

الله الله عليك استاد / شفان

والله انت جميل

الجمال يرجع لعيونك اخي حلبي
شكرا لك 
 

[Mostafa Metwally]

شكرا جزيل للاستاذ شفان وكل الاخوة الافاضل الذين شاركوا حتى تعم الفائدة