ник: sruslan
Добрый день , Уважаемые.
подскажите пожалуйста как мне сделать.
я в поле отчета вывожу результат запроса. если есть записи удовлетворяющие параметрам запроса, то в отчете появляется нужный результат, а если нет записей удовлетворяющих запросу то выдается ошибка текущая запись отсутствует.
Public Function Подсчет()
Dim dbs As Database, rst As DAO.Recordset, strSQL As String
Set dbs = CurrentDb
strSQL = "SELECT Sum([кубатура_одного_бревна]*[КоличествоДрова]) AS объем FROM базовая INNER JOIN сводная ON базовая.код_прихода = сводная.код_тачковки GROUP BY базовая.[Номер Акта], сводная.диаметр HAVING (((базовая.[Номер Акта])= N_akt()) AND ((сводная.диаметр)<18));"
Set rst = dbs.OpenRecordset(strSQL)
Подсчет = rst![объем]
End Function
как мне сделать так чтобы при отсутствии записей эта процедура выдавала 0