Я бы сделал это, создав командную кнопку cmd_A и присвоив ей заголовок «A».
В диалоге свойств я бы ввел в событие OnClick следующее:
On Click: =FilterMyForm()
Тогда я бы создал функцию в коде функции:
Private Function FilterMyForm()
Dim strFilter as string
strFilter = "[FieldName] Like '" & screen.ActiveControl.Caption & "*'"
me.filter = strFilter
me.FilterON = true
End Sub
Затем я скопировал бы эту кнопку, чтобы получить ваши 26 букв и изменить название каждой кнопки в зависимости от ситуации.