Originally Posted by moridin
ive made a program that links into an access 2000db.
ive written the code for the find button as
Private Sub cmdFind_Click()
Dim x As String
x = InputBox("Input the first few characters of the Company Name ", "Find on Name")
Data1.Recordset.FindFirst "Name like '%" & x & "%'"
cmdFind_ok:
Exit Sub
cmdFind_Error:
Dim y As String
y = "Error " & Err.Number & ": " & Error(Err.Number)
MsgBox y, 48, "Find On Company Name"
Resume cmdFind_ok
End Sub
And i keep getting Runtime Error ''
Operation is not supported for this type of object.
And when i debug
Data1.Recordset.FindFirst "Name like '%" & x & "%'"
Is highlighted.
Ive tried using ADO but then i can only display the results in a grid and i use sql then. Why wont this code work? Is it wrong or am i missing a refrence of component?
Thank you
You didn't say where you were showing the results, -
to a multi line textbox or datagrid?
TEXT1.TEXT ??
also you cannot use Like command in that fashion [Within ADO]
here's a Sample method using SQL
'----------------------------------
Dim strPrompt As String
Dim strInput As String
Dim strSQL As String
Dim fSearch As FSearchResults
strPrompt = "Enter all or the beginning of the Company name:"
strInput = InputBox$(strPrompt, "Search for Companies")
If strInput <> "" Then
' search
strSQL = "SELECT * FROM database " & _
"WHERE CoName LIKE '" & strInput & "*';"
Set fSearch = New FSearchResults
fSearch.Search "CoName", strSQL, Me
If Not fSearch.Cancelled Then
TEXT1.Text = fSearch.KeyValue '<<< output
End If
End If
'----------------------------------
This should help, you will need to modify variable to fit your need.
aka Kegtapper
