30-05-24, 11:35 AM
(آخر تعديل لهذه المشاركة : 30-05-24, 11:53 AM {2} بواسطة 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 ولا يظهر الباقي.
كما أطلب منك ان امكن عند البحث يقوم بتغيير لون الصف الذي ظهرت فيه النتيجة وعندما لا توجد نتيجة في البحث يظهر عبارة لا توجد نتيجة وشكرا مسبقا
