Version 2.0

Use Lyle's code below. My solution was just in response to a challenge. 

SelectAlpha.zip is a database containing a function demonstrating how to use a label control filled with the Letters of the alphabet to implement a single character filter for your Form.

This code is based on a post by Lyle Fairfield. His logic was based on a proportional font and amazingly only requires basically 2 lines of code. Someone, yes a fellow Canadian, joked that's great but I want to use a non proportional font.

"Lyle Fairfield" <lylefair@yahoo.com> wrote in message
news:Xns901B849F4lylefairyahoocom@24.2.9.58...
> The font of the label is fixed with.
> The caption of the label is:A B C D E F G H I J K L M N O P Q R S T U V W
X Y Z
> (all in one line)
> The label is "Sized to Fit"
>
> and the mousedown event is:
>
> Private Sub lblAlpha_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As  Single)
>     Me.Filter = "fldLastName LIKE " & Chr(34) & Chr(64 - Int(-X /
Me.lblAlpha.Width *
> 26)) & "*" & Chr(34)
>     Me.FilterOn = True
> End Sub
>
> --
> Lyle
> http://www.cyriv.com/