ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Формат поля по выбору чекбокса
13 сообщений из 13, страница 1 из 1
Формат поля по выбору чекбокса
    #39965228
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Приветствую!

На форме есть поле Price и два чекбокса с выбором валюты. Пытаюсь в поле отобразить формат, соответствующий выбору,
но он не отображается, только цифры.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub chkEuro_AfterUpdate()
    If Me.chkTg.Value = True Then
        Me.chkEuro.Value = False
        Me.Price = Format(Price, "Currency")
    End If
End Sub

Private Sub chkTg_AfterUpdate()
    If Me.chkEuro.Value = True Then
        Me.chkTg.Value = False
        Me.Price = Format(Price, "# ###.00 €")
    End If
End Sub



Подскажите, пж, что не так?
...
Рейтинг: 0 / 0
02.06.2020, 09:13
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #39965233
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
стремлюсь к такому виду )
...
Рейтинг: 0 / 0
02.06.2020, 09:20
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #39965235
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
kniga
Me.Price = Format(Price, "# ###.00 €")

Формат, который вы видите в свойствах поля, отличается от формата, который возвращается или присваивается через VBA.
Gjghj,eqnt


Приветствую!

На форме есть поле Price и два чекбокса с выбором валюты. Пытаюсь в поле отобразить формат, соответствующий выбору,
но он не отображается, только цифры.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Sub chkEuro_AfterUpdate()
    If Me.chkTg.Value = True Then
        Me.chkEuro.Value = False
        Me.Price = Format(Price, "Currency")
    End If
End Sub

Private Sub chkTg_AfterUpdate()
    If Me.chkEuro.Value = True Then
        Me.chkTg.Value = False
        Me.Price = Format(Price, "# ###.00 €")
    End If
End Sub



Подскажите, пж, что не так?[/quot]
...
Рейтинг: 0 / 0
02.06.2020, 09:30
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #39965245
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
kniga
Me.Price = Format(Price, "# ###.00 €")
1. Формат, который вы видите в свойствах поля, отличается от формата, который возвращается или присваивается через VBA.
2. Вы пробуете заменять числовое значение в (числовом?) поле, на текстовое представление этого числа, а логичнее менять св-во Format поля.
3. Если у вас только два варианта валюты и можно выбрать только один из флажков, то зачем их два? Логичнее или 1 флажок, или (если возможно более двух валют) - элемент "переключатель".
Ваш формат в VBA должен выглядеть так:
Код: vbnet
1.
2.
?Format(12345.67,"#,##0.00\ \€")
12 345.67 €

Или так:
Код: vbnet
1.
2.
?Format(12345.67,"#,##0.00"" €""")
12 345.67 €
...
Рейтинг: 0 / 0
02.06.2020, 09:56
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #39965262
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Кривцов Анатолий,

спасибо, работает!

вместо
Код: vbnet
1.
Me.Price = Format(Price, "# ###.00 €")


поставил
Код: vbnet
1.
Me.Price.Format = Format(Price, "# ###.00\ \€")


отображается при переключении. Правда надо доработать события на их смену, ну это думаю справлюсь ).

А два флажка больше для наглядности, только один из них привязан к полю.
...
Рейтинг: 0 / 0
02.06.2020, 10:52
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #39965271
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Поспешил... )

оказывается .Format это не то, в данном случае дублирует цифру.. хотя валюту подставляет )
авторВы пробуете заменять числовое значение в (числовом?) поле, на текстовое представление этого числаПолучается вместо Me.Price = как-то по-другому надо? Если не затруднит, в примере можете показать?
...
Рейтинг: 0 / 0
02.06.2020, 11:20
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #39965278
Кривцов Анатолий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кривцов Анатолий
Гость
kniga

поставил
Код: vbnet
1.
Me.Price.Format = Format(Price, "# ###.00\ \€")

Не так!
Me.Price.Format = "#,##0.00\ \€"
А в родной валюте (Теньге?):
Me.Price.Format = "Currency"
...
Рейтинг: 0 / 0
02.06.2020, 11:40
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #39965284
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Кривцов Анатолий,

теперь точно норм! Спасибо! ))

авторА в родной валюте (Теньге?)

они, родимые )
...
Рейтинг: 0 / 0
02.06.2020, 11:58
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #40001525
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
Добрый день!

Подскажите, пж, как добавить отображение знака Unicode (денежный знак Тенге) в поле?

Код: vbnet
1.
Me.PriceEU.Format = "#,##0;.00 & ChrW(8376)"



Пробовал по разному, и за кавычки и двойные и "тройные" - никак не отображается.
Я думал, что по аналогии с такой структурой
Код: vbnet
1.
Format(PriceEU, '# ### ##0;.00') & "" "" & ChrW(8376)

будет работать, ан нет...

Оставил бы "Currency", но недавно обнаружилось, что есть программы, которые запускаются только при системном языке отличном от локального (например Pro100 не запускается, если стоит язык в системе русский (Казахстан), но запускается если русский (Россия)) и поэтому в моем "произведении" на таких компах в полях не локальная деньга :)
...
Рейтинг: 0 / 0
23.09.2020, 08:53
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #40001534
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
kniga,

А если накатить на офис казахскую локаль (к стати какой у тебя Access)?
Может появиться твоя валюта?
А то жалко тебя (эко убиваешься)
...
Рейтинг: 0 / 0
23.09.2020, 09:20
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #40001554
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
ROI,

спасибо за сочувствие )).
авторА если накатить на офис казахскую локаль
разве это поможет? денежный знак с системы берется вроде.. А офис у меня русский, лицзн.
...
Рейтинг: 0 / 0
23.09.2020, 10:39
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #40001590
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
kniga,

Ну добавте в систему вашу локаль
...
Рейтинг: 0 / 0
23.09.2020, 11:51
| Ответить | Цитировать | Написать  
Формат поля по выбору чекбокса
    #40001608
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kniga
Участник
ROI,

два языка (русский (Казахстан) и русский (Россия)) не ставятся вместе, только один из них ))
...
Рейтинг: 0 / 0
23.09.2020, 12:17
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Формат поля по выбору чекбокса
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=13&tid=1609928]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 14ms
total:  147ms
созд. / загр.: 147ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]