Solved Listbox

[kavehrad]

Hi all
Can I have a list box in a form that looks like the attached image and I can search for records that begin with each letter?

Thanks

 

[isladogs]

I don't think so.
However you could have 26 text boxes above your listbox with code to filter the list by first letter.
Or use a tab control with 26 tab pages
Or use cascading combo boxes

 

[June7]

Use textboxes or buttons.

 

[Gasman]

Hi all
Can I have a list box in a form that looks like the attached image and I can search for records that begin with each letter?

Thanks

Why no V ?

 

[kavehrad]

Use textboxes or buttons.

What is the cod if i want to have buttons A-Z and then a listbox. when i click on Ex buton A so listbox shows all records starts with A?

 

[June7]

Set listbox RowSource property. Code in each button Click event:

Me.Listboxname.RowSource = "SELECT * FROM table WHERE somefield LIKE 'A*';"

 

[kavehrad]

Set listbox RowSource property. Code in each button Click event:

Me.Listboxname.RowSource = "SELECT * FROM table WHERE somefield LIKE 'A*';"

I have tried to do that but it doesn´t work. I attach my DB here. Maybe I did something wrong

 

[moke123]

Heres an example. I only did up to letter f but it should give you the idea.
Note that I changed your table name and listbox name. I wouldnt use special characters in names and wouldn't name a listbox the same as a field.

 

[moke123]

It just occurred to me after posting an easier way to code this.

There is a function as so

Private Function SetRowSource()

Me.lbxNamn.RowSource = "SELECT * FROM tblKund WHERE Namn LIKE """ & Screen.ActiveControl.Tag & "*"""

End Function

each button has a letter in its Tag property.

if you select all the buttons at once and type in the onlick event
=SetRowSource()
the code will run when you click the button

see this example

 

[cheekybuddha]

Stephen Lebans showed how to do this simply with a single label and a proportional font

 

[moke123]

Stephen Lebans showed how to do this simply with a single label and a proportional font

Interesting approach. I bookmarked it and want to try it later.

 

[deletedT]

Stephen Lebans showed how to do this simply with a single label and a proportional font

Unfortunately Office 365 says it can not open this file

 

[cheekybuddha]

@Tera

Just create a label containing the alphabet and use a fixed width font. (Name it 'lblAlpha')

Then use the code in the link:

Private Sub lblAlpha_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As  Single)
  Me.Filter = "fldLastName LIKE '" & Chr(64 - Int(-X / Me.lblAlpha.Width * 26)) & "*'"
  Me.FilterOn = True
End Sub

 

[deletedT]

@cheekybuddha
Million thanks

 

[moke123]

I just tried it. I never would have thought of it. Its a keeper for someday.

 

[cheekybuddha]

@kavehrad

See if this does what you want.

 

[deletedT]

@kavehrad

See if this does what you want.

If you start clicking from A, your sample file works until letter H
The letter I doesn't filter the listbox.
From J it filters the previous letter. J filters I, K shows J etc.

Once this happens, nothing filters correctly anymore.

This is what I receive after clicking Y.

 

[cheekybuddha]

What font are you using? It must be a Fixed-Width font.

Make sure the label width doesn't have any space after the 'Z'

 

[deletedT]

What font are you using? It must be a Fixed-Width font.

Make sure the label width doesn't have any space after the 'Z'

I didn't use any font. I simply opened your form in sample file attached in #17

Edit : to be sure, I opened the form in design view and changed the font to Courier New. Still the same.

 

[cheekybuddha]

I used a font called Consolas.

I guess you don't have it installed (The one in your screenshot is different).

Pick a fixed-width font.

Remember to size the label to fit.