Код VBA для подсчета всех числовых столбцов в ListBox, содержащих результаты SQL-запросов

Question

Это в Access 2007. Я пытался написать что-то вроде:

Forms!MyForm!TextBox = Count(ISNUMERIC(ISNUMERIC(QueryResult.Reading)))

Но это возвращает нечисловые результаты. Я также попробовал:

Forms!MyForm!TextBox = IIF(ISNUMERIC(QueryResult.Reading),Count(ISNUMERIC(QueryResult.Reading),"")

У кого-нибудь есть идеи? Я потерян.

Answer 1

Попробуйте использовать SUM вместо COUNT таким образом, чтобы вы считали результат, если он числовой, и игнорировали его, если это не так. Обратите внимание, я не в состоянии проверить приведенный ниже код, но он должен дать вам представление о том, что я имею в виду.

Forms!MyForm!TextBox = SUM(IIF(ISNUMERIC(QueryResult.Reading),1,0))