جستجو در تمام رکورد های یک بانک

جستجو در تمام رکورد های یک بانک

برای این کار کد زیر را وارد کنید.

Private Sub Command1_click()
Dim search as variant
sstr = InputBox("Enter Author to Search") ' Display a Input Box Window
data1.recordset.findfirst "Author='" & sstr & "'" ' Look for the record that has a value "sstr"
If trim(sstr) <> "" then
   If data1.recordset.nomatch then 'check if the record exist
      MsgBox "No record Exist"
      Command1.setfocus
   else
      data1.recordsource = "SELECT * FROM TableName WHERE Author='" & sstr & "'" ' Display all the Records that has a Value of "sstr"
      data1.refresh ' refresh the DBGRID or MSFLEXGRID
   End if
End if
End Sub