• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Search all records with have the same category to other tables.

Search all records with have the same category to other tables.

Search all records with have the same category to other tables.

Rate Search all records with have the same category to other tables.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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