[farid34000]

(30-05-24, 01:48 AM)Taha Okla كتب : البحث المطابق :

كود :

Dim A As String
A = InputBox("input Ticket")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Ticket = '" & Trim(A) & "'"
Adodc1.CommandType = adCmdText

Adodc1.Refresh

البحث المشابه :

كود :

Dim A As String
A = InputBox("input Ticket")
Adodc1.RecordSource = "select * from SUIVIE_PDR where Ticket Like '%" & Trim(A) & "%'"
Adodc1.CommandType = adCmdText

Adodc1.Refresh

---

بحث مطابق :

كود :

Dim A As String
A = InputBox("input le Nom de Client")
Adodc1.RecordSource = "select * from SUIVIE_PDR where nom_Client = '" & Trim(A) & "'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

بحث مشابه : 

كود :

Dim A As String
A = InputBox("input le Nom de Client")
Adodc1.RecordSource = "select * from SUIVIE_PDR where nom_Client Like '%" & Trim(A) & "%'"
Adodc1.CommandType = adCmdText
Adodc1.Refresh

شكرا لك وباركالله فيك يا استاذنا، سأجرب وارد عليك ان شاء الله

---

المشكلة كلها كانت في ( Trim(A)) يا للعجب بحثت عن جميع الحلول ولم أجدها الا عندك، بارك الله فيك
يا ريت معادلة ترتيب الجدول بالابجدية أو اظهار فقط في الجدول مثلا منتج فيه جزء من الاسم REF ولا يظهر الباقي.
كما أطلب منك ان امكن عند البحث يقوم بتغيير لون الصف الذي ظهرت فيه النتيجة وعندما لا توجد نتيجة في البحث يظهر عبارة لا توجد نتيجة وشكرا مسبقا