ник: Lukas
А вот если-бы не собирал в строку кучу операторов и функций,
а расписал по строчкам, было бы проще диагностировать ошибку.
Const SQL_DATE_FORMAT As String="\#mm\/dd\/yy\#"
Dim MaxDate As Date
Dim strFiltr As String
...
MaxDate=DMax("Дата","Таблица")
'Debug.Print MaxDate
strFiltr="Материал='" & Me!Материал & "'"
'Debug.Print strFiltr
strFiltr=strFiltr & " AND [Дата]=" & Format$(MaxDate, SQL_DATE_FORMAT)
'Debug.Print strFiltr
...
|