خاصية البحث بكلمة او جزء منها

[مندوب]

لدي مشكلة حيث اننى صممت قاعدة بيانات وقمت بعمل الادوات التالية

بحث برقم ( يعمل جيد)

بحث بتاريخ ويعمل جيد

بحث بالموضوع (( لكنه عندما ادخل اول حرف من الموضوع يعمل ولا يعمل اذا ادخلة اى كلمة من الموضوع او حرف اخر استخمدت الكود التالي

Like [forms]![Find]![A] & "*"<div align="center"></div>

يعنى اريد كود اقوم بالبحث بحرف من الموضوع او كلمة من الموضوع او كل الموضوع

تم تعديل يناير 19, 2006 بواسطه مندوب

[التقني]

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

توجد لدي طريقة مفصلة (خطوة خطوة )لعمل بحث بالحرف الأولى من الكلمة .

هل تريدها ؟

[مندوب]

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

توجد لدي طريقة مفصلة (خطوة خطوة )لعمل بحث بالحرف الأولى من الكلمة .

هل تريدها ؟

<{POST_SNAPBACK}>

نعم اخى اريدها لو تسمح عسي ان تحل الموضوع

[فنجان قهوه]

اخي استخدم هذه الدالة في المعيار وراح تعمل معك بمشيئة الله تعالى

"*" & [ادخل حرف او كلمة من الموضوع ] & "*"Like

بالتوفيق

تم تعديل يناير 20, 2006 بواسطه فنجان قهوه

[مندوب]

شكرا لك اخى العزيز

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

[فنجان قهوه]

العفو اخي واجوا انك استفت

جزاك الله كل خير على الدعوة الطيبة الله يغفر لنا والمسلمين اجمعين اللهم آمين

[التقني]

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

أخي العزيز

هذه طريقة البحث بأول أحرف الكلمة ...

1- بإفتراض أنه يوجد لديك جدول بإسم tblSer وبه الحقول ( No - Name - Date )

2- اصنع نموذج جديد بإسم frmSer وضع به مربع نص بإسم txtBox ومربع قائمة بإسم Result

3- من خصائص مربع القائمة وفي تبويبة بيانات ضع في (مصدر الاستعلام) التالي :

SELECT tblSer.[No], tblSer.Name, tblSer.Date FROM tblSer WHERE (((tblSer.Name) Like "*" & forms!frmSer!txtbox & "*"));

4- وفي تبويبة تنسيق غير (عدد الأعمدة) الى 3 وهي عدد الحقول التي في الجدول 5- ضع الكود التالي في حدث عند الفتح للنموذج :

Application.SetOption "Behavior entering field", 2

6- والكود التالي في حدث عند مفتاح للأعلى لمربع النص txtBox :

Private Sub txtBox_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case Is = vbKeySpace
Exit Sub
Case Else
Me.Refresh
If Me.Result.ListCount = 0 Then
MsgBox "لا توجد كلمة تبدأ بهذه الأحرف", vbOKOnly + vbInformation, "تنبيه"
Me.txtBox.Value = ""
Me.txtBox.SetFocus
End If
Me.Result.SetFocus
Me.txtBox.SetFocus
End Select

End Sub

تم تعديل يناير 20, 2006 بواسطه التقني