Private Sub Кнопка70_Click()
'Без фильтра
Dim sql
sql = "SELECT main.surname+"" ""+left(main.Имя,1)+"". ""+left(main.otch,1)+""."" AS ФИО, main.Profession AS Должность, main.code " & _
" FROM main WHERE IsNull(main.Surname) = False And uvolen = False " & _
" ORDER BY main.surname+"" ""+left(main.Имя,1)+"". ""+left(main.otch,1)+""."";"
Me.Список200.RowSource = sql
End Sub



Public Function FILTERBYCHAR()
Dim sql, ButtonCaption
ButtonCaption = Me.ActiveControl.Caption
sql = "SELECT main.surname+"" ""+left(main.Имя,1)+"". ""+left(main.otch,1)+""."" AS ФИО, main.Profession AS Должность, main.code " & _
" FROM main WHERE IsNull(main.Surname) = False And uvolen = False " & _
" and main.surname like '" & ButtonCaption & "*'  ORDER BY main.surname+left(main.Имя,1)+left(main.otch,1) "
'Debug.Print sql

Me.Список200.RowSource = sql
End Function