/ Snippet Library - View Code

Snippet details

ID: 314

Viewed: 1377

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

search a database using a input box.
Add a data control, command button, and DBGRID or MSFLEXGRID.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight AllPrivate 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

No Reviews to show