Dim dbs As DAO.Database
Dim rsSQL3 As DAO.Recordset
Dim strSQL3 As String

Set dbs = CurrentDb
                    
strSQL3 = "SELECT count(id_report) FROM tbl_counting_reports WHERE in_work =" & 0 & ""
Set rsSQL3 = dbs.OpenRecordset(strSQL3, dbOpenSnapshot)
MsgBox (rsSQL3)
                    

Dim dbs As DAO.Database
Dim rsSQL3 As DAO.Recordset
Dim strSQL3 As String

Set dbs = CurrentDb
                    
strSQL3 = "SELECT count(id_report) as cnt FROM tbl_counting_reports WHERE in_work =" & 0 & ""
Set rsSQL3 = dbs.OpenRecordset(strSQL3, dbOpenSnapshot)
MsgBox (rsSQL3.Fields("cnt"))

Dcount("*","tbl_counting_reports","in_work =0")

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы