Public Sub Schitat()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "ДатаПоступления FROM Квартиры WHERE ДатаПоступления = " & Format(Date, "\#mm\/dd\/yyyy\#"), CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rst.RecordCount <> 0 Then
rst.MoveLast
MsgBox "Сегодня поступило: " & rst.RecordCount
Else
MsgBox "За сегодня заявок не поступало"
End If
rst.Close
Set rst = Nothing
End Sub
|