такой код
Private Sub OplZaDat_Click()
Dim rst As DAO.Recordset
Dim dd As Date
dd = Me.tdat
Set rst = CurrentDb.OpenRecordset("SELECT Sum(Оплата.PAY_SUM) AS Sum_PAY_SUM, Оплата.prinyato FROM Оплата GROUP BY Оплата.prinyato " & _
"Having ([Оплата].[prinyato] = " & dd & " WITH OWNERACCESS OPTION")
Me.СуммаЗаД = rst.Fields("Sum_PAY_SUM")
End Sub
говорит: Ошибка синтаксиса (пропущен оператор) в выражении запроса '([Оплата].[prinyato] = '24.11.2021' WITH OWNERACCESS OPTION'.
Были варианты:
Set rst = CurrentDb.OpenRecordset("SELECT Sum(Оплата.PAY_SUM) AS Sum_PAY_SUM, Оплата.prinyato FROM Оплата GROUP BY Оплата.prinyato " & _
"Having ([Оплата].[prinyato] = " & "'" & dd & "'" & " WITH OWNERACCESS OPTION")
Set rst = CurrentDb.OpenRecordset("SELECT Sum(Оплата.PAY_SUM) AS Sum_PAY_SUM, Оплата.prinyato FROM Оплата GROUP BY Оплата.prinyato " & _
"Having ([Оплата].[prinyato] = " & "#" & dd & "#" & " WITH OWNERACCESS OPTION")
Все одно ито же

Спасибо большое, помогло. Но с GROUP, без GROUP выдает "Попытка выполнить запрос, который не включает указанное выражение 'prynyato' как часть статистической функции или группы

Панург, точно, рботатет, я с самого начала в построителе делала. Значит условие не поставила. Еще раз спасибо.