Рассматривали ли вы агрегатные функции домена? Они примерно принимают форму:
DAvg("SomeField","SomeTable","Where Statement, If Required")
DCount("*","SomeTable")
Вы можете установить Control Soirce для функции управления, но функции агрегирования домена могут не подходить для большого набора записей.
Альтернативой является использование набора записей:
Dim rs As DAO.Recordset
Set rs = CurrentDB.OpenRecordset("SELECT Count(*) As CountAll " _
& "FROM SomeTable")
Me!txtTextBox=rs!CountAll