ник: belvesta
Вот вся обработка, а Мониторинг это запрос
Private Sub Сформировать_Click()
Dim s As String
Select Case Me.АorХ
Case "Ателье"
s = "А"
Case "Химчистка"
s = "Х"
Case Else
s = "АиХ"
End Select
DoCmd.OpenReport "Мониторинг-" & s, acViewPreview
End Sub