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
"Lyle Fairfield" <firstname.lastname@example.org>
wrote in message
> 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 /
> 26)) & "*" & Chr(34)
> Me.FilterOn = True
> End Sub
May 23, 2004
Rich Text ActiveX control.
Mar 15, 2005 Product Update
the MouseWheel DLL subclassing solution. Turns On/Off the MouseWheel with
one line of code. No DLL registration required. Now supports Logitech mice!