| |
 34 Кб. |
|
| | Сумма (прописью)
Добрый день. Как сделать, чтобы сумма прописью отражалась в “Поле №1“? Выкладываю пример. Заранее благодарю. | |
| |
| |
| |
|
|
| |
Private Sub Сумма_Change()
Dim c As Currency
On Error GoTo 999
c = Сумма.Text
Me.Пропись = funRusMoney(c, False)
Me.Text11 = funRusMoney(Me!Сумма1, False)
Exit Sub
999:
Me.Пропись = "Введите правильно сумму!"
End Sub
|
может так?  | |
| |
| |
| |
32 Кб. |
|
| | Спасибо, Час, за помощь. Конечно, не совсем то, но спасибо и за это. Немного поэкспериментировал в поле “Сумма прописью”. Текст появился, но не синхронно. Как сделать, чтобы в поле “Сумма прописью” информация обновлялась синхронно с полем “поле total”? | |
| |
| |
| |
|
|
| | Form_Orders.Refresh - это обновит форму, перерасчитает значения.
На какое событие повесить этот код - решайте сами. Можно например на AfterUpdate полей Unit Price, Quantity, Ext.Price. | |
| |
| |
| |
33 Кб. |
|
| | Добрый день! Нужна помощь, испробовал шесть способов для обновления поля “Сумма прописью” и нечего не получилось. Может, кто подскажет, как это сделать. Заранее благодарю. | |
| |
| |
| |
36 Кб. |
|
| | ща посмотрим, тока я наверное тебя не совсем понимаю - твой вопрос... | |
| |
| |
| |
|
|
| | Просто вставьте в св-во "Данные" поля "Пропись" выражение:
=funRusMoney([Сумма];Ложь)
И текст будет автоматом меняться вслед за изменением значения суммы.
ЗЫ. Ваш подход неверен в принципе, т.к. поле "сумма" - вычисляемое, и у него нет событий Change, BeforeUpdate, AfterUpdate;
ЗЗЫ. Св-во Text доступно только у элемента, имеющего фокус. | |
| |
| |
| |
|
|
| | Спасибо всем за участие, за профессиональный комментарий Анатолия хотелось бы поблагодарить отдельно. | |
| |
| |
