Snippet Library

none

Private Sub Command1_click()
Dim search as variant
sstr = InputBox("Enter Author to Search") ' Display a Input Box Window
' Look for the record that has a value "sstr"
data1.recordset.findfirst "Author='" & 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"
' refresh the DBGRID or MSFLEXGRID
      data1.refresh 
   End if
End if
End Sub;