DoCmd.OpenForm "форма_мероприятие", , "[çàë_Êîä]=" & Y & " And [дата_мероприятия]=" & Format(дата_мероприятия, "\#mm\/dd\/yyyy\#")

"[зал_Код]="

Private Sub Винотека_DblClick(Cancel As Integer)

MsgBox (дата_мероприятия) & ", " & (Me.ActiveControl.Name)


Dim Y As Long

Select Case Me.ActiveControl.Name
 Case "1 этаж"
  Y = 1
 Case "2 этаж"
  Y = 2
 Case "Библиотека"
  Y = 3
 Case "Винотека"
  Y = 4
 Case "Весь ресторан"
  Y = 5
End Select

Debug.Print "[зал_Код]=" & Y & " And [дата_мероприятия]=" & Format(дата_мероприятия, "\#dd\/mm\/yyyy\#")

DoCmd.OpenForm "форма_мероприятие", , "[зал_Код]=" & Y & " And [дата_мероприятия]=" & Format(дата_мероприятия, "\#dd\/mm\/yyyy\#")

End Sub

TRANSFORM First(этапы_работы.Этапы_работы) AS [First-Этапы_работы]
SELECT Таблица_заказов.дата_мероприятия
FROM календарь, этапы_работы INNER JOIN (зал INNER JOIN Таблица_заказов ON зал.Код = Таблица_заказов.зал_Код) ON этапы_работы.Код = Таблица_заказов.этапы_работы_Код
WHERE (((Таблица_заказов.дата_мероприятия) Between [календарь]![дата_1] And [календарь]![дата_2]))
GROUP BY Таблица_заказов.дата_мероприятия
PIVOT зал.Зал In ("1 этаж","2 этаж","Винотека","Библиотека","Весь ресторан");