Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 315
  • Last Modified:

Partial Fild Search on Listbox

Hi Experts,

MS Access 2007, running on Win 2003 Server.

We have a listbox on a form for selecting records to display in that form - it contains a list of customer names. I know that hitting the first letter in the listbox will take me to the first record in the list starting with that letter but the list is getting quite long -  is there a way that a user could input the first 3 characters into a text box, then for the listbox to go the first record matching (or near matching) those 3 characters?

Example:
User enters "sma" in text box, listbox contains "small" and "smart", so presented record would be "small"
User enters "smo" but there is no exact match, so record returned should be either previous or next best match

Any thoughts gratefully received.
0
redpoppy
Asked:
redpoppy
  • 7
  • 6
1 Solution
 
Rey Obrero (Capricorn1)Commented:
use the change event of the textbox

private sub text0_change()
dim str as string, sql
str=str & me.text0.text

sql="select f1,f2 from table where f1 like '" & str & "*'"

me.listbox.rowsource=sql

end sub
0
 
redpoppyAuthor Commented:
Hi capricorn1 - thanks very much for such a speedy reply - I'll try it out over the weekend and get back to you.
0
 
redpoppyAuthor Commented:
Hi capricorn1 - thanks for replying, I've now had chance to have a look at your suggestion.

What I actually want to do is to take the 3 characters entered, do the look up in the list box, then if there is a match make it the selected record  in the listbox i.e. I don't want to lose all the other records in the listbox by changing the rowsource  - is that possible? Thanks again for your help.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
Rey Obrero (Capricorn1)Commented:
you are not going to lose the records in the listbox, you are just narrowing your search.
0
 
Rey Obrero (Capricorn1)Commented:
post the rowsource of the listbox
0
 
redpoppyAuthor Commented:
sorry, I don't understand - if I'm replacing the value of the listbox rowsource (from your original code), then how are the other records going to be displayed?
0
 
Rey Obrero (Capricorn1)Commented:
<if I'm replacing the value of the listbox rowsource (from your original code), then how are the other records going to be displayed? >

by setting back the the rowsource to the original rowsource without the filter.
0
 
redpoppyAuthor Commented:
The rowsource of the listbox can be one of several queries - the first 2 columns are always "cust_name" and "cust_id"
0
 
redpoppyAuthor Commented:
"by setting back the the rowsource to the original rowsource without the filter." OK, I see. That won't work for what I need to do - all the records in the listbox need to be displayed and I want to use the 3-chr search to go to the nearest record in the listbox, i.e. making it the current selected/displayed record
0
 
Rey Obrero (Capricorn1)Commented:
what is the bound column of the listbox? what is the name of the listbox?
0
 
Rey Obrero (Capricorn1)Commented:

try this codes

private Sub text0_change()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Set db = CurrentDb
    strSQL = "select cust_name, cust_id " & _
             "from tableName where cust_name like '" & _
             me.text0.text & "*'"
        
    Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

    If rs.recordCount > 0 Then
        rs.MoveFirst
        Me.listboxName = rs!cust_id
    End If

    rs.Close
    Set rs = Nothing
    Set db = Nothing
end sub

Open in new window

0
 
redpoppyAuthor Commented:
OK - I think I see what you're getting at - to do a look-up on cust_name using the 3 chr input, then setting that cust_id as the current record in the list box? (cust_id is the bound field)
0
 
redpoppyAuthor Commented:
I based my solution on the code supplied by capricorn1 - I used the rowsource from the listbox as my dataset and did a look-up on it to find the record, then set this as the current record in the listbox. Thanks for your help, much appreciated
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 7
  • 6
Tackle projects and never again get stuck behind a technical roadblock.
Join Now