Sir,
I have tried every possible syntax bit no success. I need to input a value in a search text box named searchtext.text using my Access 2000 search button and the search should include the LIKE operator e.g In the Search box I type "Medicine" and all records like Nigerian Medicine Accociation, Japan Medicine Group etc should come out of my database table.
Pleas give a simple code in SQL/VB.
Thanks in advance
Dear Sir,
Thanks a lot for the quick response.I admire.But I wanted code for LIKE operator with search input coming form a TEXT Box while you provided simple input i.e *MEDICINE* please if possible modify and send it again as soon as possible as my project is stuck.
Thanks
The way things work best around here - so we can expedite our answers in the least amount of re-posting, is for you to post what you have right now.
It would be nice to see your connection string - your attempt so far to make a query come back into a recordset. Even the name of your textbox would be helpful.
Put the word VBCODE in [] brackets at the top of the code you post - and end it with /VBCODE in [] brackets. That makes it easier to read code posted on the forum.
I wonder why my thread annoyed Mr. Granty.I mentioned I was using VB/SQL and both of these are used in Access2000 in which I am making a database.Anyway I am sorry for the disturbance I created.I am trying Mr.Granty's code righht now with a Value property.Hope it works.
Azam you are going to want to re-think your route to solve this .. or at least re-read some tutorials/examples.. Thats not how you search and prolly never will be!
You have docmd, so that means you are In Access.
Are you using Bound controls on a form?
How much do you know about Access?
Are you trying to put in a search form, which has a listbox or other form as the output?
What are you trying to do?
(edit) Technically its VBA in Access and not VB... which is similar but different (/edit)
Feeling like a fly on the inside of a closed window (Thunk!)
If I post a lot, it is because I am bored at work! ;D Or stuck...
* Anything I post can be only my opinion. Advice etc is up to you to persue...
I can't say that I'm really annoyed - but this is a VB forum and this is the DATABASE spot in it - where we talk about VB and SQL (and other backend databases).
And I knew after the third post that this was going south fast - I love to help - but I don't know ACCESS and bound-data-controls are evil (at least in VB - my opinion).
Sorry Sorry I misread, it was Mr szlamany who got annoyed .
By now I have messed up with my code still I am attaching my file for looking at the form atleast.I need to put text in the search box ,click "Confirm" button and the record should fill in the fields below.But again I need the LIKE operator for searching.
I am actually modifying a sample code and I did it well before going for this LIKE exercise and I can do it again once the LIKE problem is solved.
I never work with bound controls so Im not really sure what Im doing or what most of the docmd stuff in your form does.
However, I have got it to work sort of, but all the specifics you need you will have to play with them yourself Im afraid.
This is the code I put into JournalsForm
Code:
Option Compare Database
'--------------------------------------------------------------
'Graham Thorpe 25-01-02
'--------------------------------------------------------------
'---------------------------------------------------------------
Private Sub FindAndPopulateTitle()
Dim strSQL As String
'Performs the search using value entered into txtSearch
'and evaluates this against values in strStudentID
strSQL = "SELECT * FROM JournalsTable WHERE Title LIKE '*" & Trim(txtSearch.Value) & "*' "
Me.RecordSource = strSQL
Me.Requery
'txtSearch = Me!strSQL
DoCmd.ShowAllRecords
DoCmd.GoToControl ("ComboTitleData")
DoCmd.FindRecord Me!txtSearch
'Me!txtSearch
txtSearch.SetFocus
strStudentRef = Title
txtSearch.SetFocus
strSearch = txtSearch.Text
End Sub
'If matching record found sets focus in strStudentID and shows msgbox
'and clears search control
Private Sub cmdButtonFind_Click()
Dim strStudentRef As String
Dim strSearch As String
'Check txtSearch for Null value or Nill Entry first.
If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
Me![txtSearch].SetFocus
Exit Sub
End If
FindAndPopulateTitle
'If strStudentRef = strSQL Then
'strSearch Then
' MsgBox "Match Found For: " & strSearch, , "Congratulations!"
' ComboTitleData.SetFocus
' txtSearch = ""
'If value not found sets focus back to txtSearch and shows msgbox
' Else
' MsgBox "Match Not Found For: " & strSearch & " - Please Try Again.", _
' , "Invalid Search Criterion!"
' txtSearch.SetFocus
'End If
End Sub
Private Sub cmdButtonFind_AfterUpdate()
'Once a record is selected in the list, enable the showRecord button
CmdButtonFind.Enabled = True
CmdButtonFind.SetFocus
End Sub
Dear Granty,
I am really impressed by your quick and considerate detailed responses.I am waiting for the weekend to try the modification you sent and will let you know it it works.
But it is showing error in syntax..
my code goes like this
select service_id, service_name from tblService where service_desc like '" + servicename.Text +"' "
what is wrong in this syntax?
Last edited by Zvoni; Tomorrow at 31:69 PM.
----------------------------------------------------------------------------------------
One System to rule them all, One Code to find them,
One IDE to bring them all, and to the Framework bind them,
in the Land of Redmond, where the Windows lie
---------------------------------------------------------------------------------
People call me crazy because i'm jumping out of perfectly fine airplanes.
---------------------------------------------------------------------------------
Code is like a joke: If you have to explain it, it's bad
Reply With Quote
Originally Posted by Dhanya
