Finding records in access using a vb button

•

What is DaniWeb IT Discussion Community?

You're currently browsing the Visual Basic 4 / 5 / 6 section within the Software Development category of DaniWeb, a massive community of 426,333 software developers, web developers, Internet marketers, and tech gurus who are all enthusiastic about making contacts, networking, and learning from each other. In fact, there are 2,413 IT professionals currently interacting right now! Registration is free, only takes a minute and lets you enjoy all of the interactive features of the site.

Join our community!

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums

Thread Tools Display Modes

Views: 7509 | Replies: 5

Previous Post in Thread

Next Post in Thread

•

Join Date: Nov 2005

Posts: 3

Reputation: moridin is an unknown quantity at this point

Rep Power: 0

Solved Threads: 0

moridin

Offline

Newbie Poster

Finding records in access using a vb button

Dec 8th, 2005

ive made a program that links into an access 2000db.
ive written the code for the find button as

Help with Code Tags

(Toggle Plain Text)

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