SELECT  АбонементыПосещения.Дата, АбонементыПосещения.Абонент,
 Абонементы.ТипЗанятий, АбонементыПосещения.Сумма,
 АбонементыПосещения.ВремяПрибытия,
 АбонементыПосещения.ВремяОкончания, АбонементыПосещения.Убыл
FROM ТипЗанятия
 INNER JOIN (Абонементы
 INNER JOIN АбонементыПосещения
   ON Абонементы.Код = АбонементыПосещения.Абонент)
   ON ТипЗанятия.Код = Абонементы.ТипЗанятий
WHERE (((АбонементыПосещения.Дата)=Date())
   AND ((АбонементыПосещения.Убыл)=False));
union
SELECT Посещения.Дата, Посещения.ФИОГостя,
 Посещения.ТипЗанятия, Посещения.Сумма,
 Посещения.ВремяПрибытия, Посещения.ВремяОкончания, Посещения.Убыл

FROM ТипЗанятия
 INNER JOIN Посещения
   ON ТипЗанятия.Код = Посещения.ТипЗанятия
WHERE (((Посещения.Дата)=Date())
   AND ((Посещения.Убыл)=False));