Денежный формат

[a.tryanov]

Здравствуйте!
Хотел поинтересоваться, есть ли возможность связать значение в одном поле с денежным форматом другого.
Цель: при выборе валюты в первом поле, получать соответствующий формат второго, для ведения единого журнала операций с разными валютами.

[D.Shibanov]

Здравствуйте!
Ваш вопрос требует пояснения.
Что Вы подразумеваете под "денежным форматом"?
Просто указание некого признака - типа символа или наименования валюты? Здесь достаточно в основной таблице иметь поле-идентификатор, через которое привязана дополнительная таблица - справочник валют. А в справочник уже заносите сколько Вам требуется атрибутов (символы валюты, наименования и пр.)
Или Вам действительно нужно изменить формат поля (Long/Single/Double/..., количество знаков целой/дробной части, вид десятичного разделителя и т.п.)? В этом случае без использования функций не обойтись.

Для лучшего понимания нужен пример.
Пришлите файл, это поможет решению Вашего вопроса.

[a.tryanov]

Хотел из эстетических соображений динамично изменять формат поля, при выборе RUB-EUR-USD соответственно задавался формат для следующего поля: #,###.##р - #,###.##€ - #,###.##$. Выбор RUB-EUR-USD осуществлен через подстановку из дополнительной таблицы.
Возможно я что-то делаю криво или чего-то не знаю, прошу меня поправить в этом случае.

[Abrakadabra]

Тут уточнение нужно: изменить формат для поля таблицы либо формы?

[a.tryanov]

Достаточно будет осуществить для формы, как хранить не принципиально.

[Abrakadabra]

Сообщение от a.tryanov

как хранить не принципиально.

Тогда для ввода достаточно подставлять маску в зависимости от выбота валюты (на событие AfterUpdate, например для 2 масок..):

Private Sub ТипВалюты_AfterUpdate()
    If Me.ТипВалюты = "RUB" Then
        Me.ПолеВалюты.InputMask = "здесь маска"
    Else
        Me.ПолеВалюты.InputMask = "здесь соответствующая маска"
    End If
End Sub

[a.tryanov]

Поскольку маска мне не очень подходила изменил код следующим образом:

Private Sub Валюта_AfterUpdate()
If Me.Результат = "3" Then
Me.Результат.Format = "#,###.##р"
Else
If Me.Валюта = "1" Then
Me.Результат.Format = "#,###.##€"
Else
Me.Результат.Format = "#,###.##$"
End If
End If

End Sub

Все хорошо, но есть одно но, формат он меняет для всего столбца, есть ли какой-нибудь способ закреплять формат для конкретных полей? Маска конечно здорово, но все же остается несколько неудобной, к тому же при переходах - нужно обновлять.
Конечная цель: сделать раздельную форму для удобной работы. Где в верхней части будет форма заполнения без кодовых обозначений, а в нижней таблица с хранимыми данными.
Так же интересует, можно ли в форме сделать вместо хранимого в таблице значения кода родителя отображения нескольких его полей, т.е. например для "Клиентов" не только фамилию, но и имя, отчество.

[Abrakadabra]

Сообщение от a.tryanov

есть ли какой-нибудь способ закреплять формат для конкретных полей? Маска конечно здорово, но все же остается несколько неудобной, к тому же при переходах - нужно обновлять.

Обновление -Current формы. Для конкретного поля конкретной записи (в Вашем понимании) просто так закрепить формат не получится, но можно запросом изменить формат..