---

Private Sub Группа32_AfterUpdate()
    Select Case Me.Группа32
        Case 1
            Me.Filter = "[КатегорияОплаты] = 'нал'"
            Me.FilterOn = True
        Case 2
            Me.Filter = "[КатегорияОплаты] = 'безнал'"
            Me.FilterOn = True
        Case 3
            Me.FilterOn = False
    End Select
End Sub