30-05-24, 01:48 AM
البحث المطابق :
البحث المشابه :
بحث مطابق :
بحث مشابه :
كود :
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قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».