عمل خاصية البحث بالمسلسل او الاسم

[احمد حبيبه]

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

قاعدة 222البيانات.rar

تم تعديل أغسطس 26, 2013 بواسطه Ahmed Habiba

[ابو عارف]

السلام عليكم

تفضل أخي تم تفعيل بحث برقم

قاعدة 222البيانات.rar

[رضا2013]

كيف يمكن جعل البحث باستخدام الاسم؟

[ابو عارف]

تغير كودزر ( بحث) الى:

 

 

 بحث تطابق  الاسم الكامل 

Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[الاسم]='" & TXT & "'"
If Not rst.EOF Then Bookmark = rst.Bookmark

 بحث تطابق احرف الاولى في الاسم 

Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[الاسم]like'" & TXT & "*'"
If Not rst.EOF Then Bookmark = rst.Bookmark

بحث تطابق احرف اي جزء في الاسم 

Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.FindFirst "[الاسم]like'*" & TXT & "*'"
If Not rst.EOF Then Bookmark = rst.Bookmark

و اما بنسبة التصفية:

 

تصفية تطابق الاسم الكامل 

filter= "[الاسم]='" & TXT & "'"
filteron=true

تصفية تطابق احرف الاولى في الاسم 

filter= "[الاسم]like'" & TXT & "*'"
filteron=true

تصفية تطابق احرف اي جزء في الاسم 

filter= "[الاسم]like'*" & TXT & "*'"
filteron=true

تم تعديل أغسطس 27, 2013 بواسطه ابو عارف

[رضا2013]

جاري التجربة والتغيير

[احمد حبيبه]

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