Может кто сталкивался как сделать новый формат вывода 1 000 000 руб. в 1,0 млн руб.

Akina,

Я не ищу сумму прописью, с этим проблем нет. Мне нужно сокращении суммы от 1 000 000 р к 1.0 млн руб

Сделал сам, может коряво получилось, но по факту на выходе то что надо
в запросе формы создал поле , в котором с помощью функции Len получаю количество цифр в исходном числе.
затем в форме, в поле с исходным числом которое надо сократить сделал процедуру, которая действует как Потеря фокуса
дополнительно создал три временных поля "Зап", и "ОкругГотов"
вот сама процедура

s = Me.ИнвестЕсть

If Me.колич = 7 Then
i = 1
k = Left(s, i)
Me.Зап = k
d = Mid(Me.ИнвестЕсть, 2, 2)
Me.ОкругГотов = Me.Зап & "," & d
Me.Разряд = "млн. руб."
Me.ИнвестЕсть = Me.ОкругГотов
ElseIf Me.колич = 8 Then
i = 2
k = Left(s, i)
Me.Зап = k
d = Mid(Me.ИнвестЕсть, 3, 2)
Me.ОкругГотов = Me.Зап & "," & d
Me.Разряд = "млн. руб."
Me.ИнвестЕсть = Me.ОкругГотов
ElseIf Me.колич = 9 Then
i = 3
k = Left(s, i)
Me.Зап = k
d = Mid(Me.ИнвестЕсть, 4, 2)
Me.ОкругГотов = Me.Зап & "," & d
Me.Разряд = "млн. руб."
Me.ИнвестЕсть = Me.ОкругГотов
ElseIf Me.колич = 10 Then
i = 4
k = Left(s, i)
Me.Зап = k
d = Mid(Me.ИнвестЕсть, 5, 2)
Me.ОкругГотов = Me.Зап & "," & d
Me.Разряд = "млрд. руб."
Me.ИнвестЕсть = Me.ОкругГотов
ElseIf Me.колич = 11 Then
i = 5
k = Left(s, i)
Me.Зап = k
d = Mid(Me.ИнвестЕсть, 6, 2)
Me.ИнвестЕсть = Me.Зап & "," & d
Me.Разряд = "млрд. руб."
Me.ИнвестЕсть = Me.ОкругГотов

End If
Не стал заморачиваться с точным округлением, хотя можно и это привести в порядок, но это на будущее