получить адрес активной ячейки на vba

If Род = "Мужской" Then

Function Единицы(Разряд As Long, Род As String) As String

Десятки = "девяносто "

Десятки = "восемьдесят "

Десятки = "семьдесят "

Десятки = "шестьдесят "

Десятки = "пятьдесят "

Десятки = "сорок "

Десятки = "тридцать "

Десятки = "двадцать "

Function Десятки(Разряд As Long) As String

Global Сумма As Currency, Остаток As Currency

'Option Explicit ' Требует явного описания переменных перед их использованием.

Option Compare Database 'Использовать функции базы данных при сравнении строк

Вот код старого Module

Здравствуйте, помогите пожалуйста переделать модуль на VBA, который используется для перевода числа в число прописью. Проблема заключается в том, что нужно в отчете Access подсчитать количество строк, а затем в следующем поле вывести это значение прописью. Раньше выводилась в отчете общая сумма в таком формате "суммапрописью(Module) рублей 00 коп." Вот отчет в Конструкторе отчетов

VBA - Помогите с задачей на VBA в MS Access

VBA - Помогите с задачей на VBA в MS Access

Имя пользователя:

VBA - Помогите с задачей на VBA в MS Access