مساعدة في البحث في قاعدة البيانات

يرجى التوضيح أكثر، ما الذي تريد البحث به؟ (اسم - رقم ....)

وأي حقل؟

السلام عليكم

شكرا على الاستجابة .. اريد طريقة البحث بالاسم والبحث بالرقم

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

هذا كود بحث بل رقم

On Error Resume Next

Dim x As String

x = InputBox(" أدخل رقم المراد البحث عنه ")

If x = Cancel Then Exit Sub

Data1.Recordset.FindFirst ("telephone = '" + x + "'")

If Data1.Recordset.NoMatch Then

MsgBox (" رقم " + x + " غير موجود "), , " تنبيه "

End If

وهذا بل أسم

On Error Resume Next

Dim x As String

x = InputBox(" أدخل أسم المشترك المرادالبحث عنه ")

If x = Cancel Then Exit Sub

Data1.RecordSource = "select *from info where name like '*" & x & "*'"

Data1.Refresh

If Text2.Text = "" Then

MsgBox (" الاسم " + x + " غير موجود "), , " تنبيه "

End If

أو يمكنك استعمال جمل SQL كالتالي:

هذا مثال، كما يمكن استعمال Filter هكذا:

مشكورين على المساعدة ولكن الكود ينقصه التحديد في ListView حيث انني عندما اقوم بالبحث سوف تحدد نتيجة البحث في ListView

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

هذا هو الكود بإذن الله، استعملت خاصية Filter فيه، طبعاً يبقى عليك فيه تصحيحه ليناسبك تماماً:

وفقك الله

مشكورين الكود شغال

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