Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Элементарно(но я не знаю Vba)!

7.9K
16 мая 2005 года
guest2005
15 / / 05.02.2005
Доброго времени суток!
Плиз, подскажите, новечку!

Есть функция
 
Код:
Public Function SummaPropisRUR(Num As Variant) As String

Надо чтобы в из Access вставлялось в Word значение по шаблону.
К примеру, если пишу:
 
Код:
.Bookmarks.Item("Аванс").Range.Text = SummaPropisRUR(123)
то появляется "сто двадцать три"-так должно быть.

Если пишу так:
 
Код:
.Bookmarks.Item("Аванс").Range.Text = SummaPropisRUR(Me("Аванс"))
ничего не получается.

По-моему, нужно как-то преобразовать типы, тип Me("Аванс") к численному, пробовал val(Me("Аванс")) ничего не получается. Аванс-поле ввода acTextBox.

Заранее спасибо!
7.1K
18 мая 2005 года
likhobory
87 / / 18.05.2005
Цитата:

ничего не получается.

По-моему, нужно как-то преобразовать типы, тип Me("Аванс") к численному, пробовал val(Me("Аванс")) ничего не получается. Аванс-поле ввода acTextBox.


какая ошибка возникает ??
Аргумент Num в SummaPropisRUR "всеядный" - Variant, так что, возможно, проблемы надо искать в закромах сей функции

275
18 мая 2005 года
pashulka
985 / / 19.09.2004
to likhobory
Проблема уже решилась, только автор не хочет говорить как именно ... говорит будем смеяться
7.1K
18 мая 2005 года
likhobory
87 / / 18.05.2005
Цитата:
Originally posted by pashulka
to likhobory
Проблема уже решилась, только автор не хочет говорить как именно ... говорит будем смеяться

дык я уж заметил, хоть и поздновато[offtop: А народ здесь вполне адекватный :D, так что партизан вполне мог бы выложить примерчик - в назидание потомкам...;) ]

7.9K
18 мая 2005 года
guest2005
15 / / 05.02.2005
Цитата:
Originally posted by likhobory
дык я уж заметил, хоть и поздновато[offtop: А народ здесь вполне адекватный :D, так что партизан вполне мог бы выложить примерчик - в назидание потомкам...;) ]



Вставлял значение в эту функцию из формы в котором нет поля "Аванс", просто перепутал формы, ошибки не выдавлось. Первый раз в жизни пишу на VBA, не ожидал такого. Ну а вообще сам виноват. :)

Надо было писать
не

 
Код:
SummaPropisRUR(Me("Аванс"))

а
 
Код:
SummaPropisRUR(другая форма("Аванс"))


Но проблема с комбобоксами осталась?
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог