Условие при экспорте в XML, если ячейка пустая, то вписать "неизв", если нет то исходное / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Условие при экспорте в XML, если ячейка пустая, то вписать "неизв", если нет то исходное

4 сообщений из 4, страница 1 из 1

Условие при экспорте в XML, если ячейка пустая, то вписать "неизв", если нет то исходное

#39994837

serg_vba123

Гость

Привет.

Подскажите, пожалуйста, как прописать условие в VB коде экспорта из таблицы Access в XML

Условие

если в поле с датой есть значение то
subNode1.setAttribute "birthday", rst.fields("birthday")

если нет то
subNode1.setAttribute "birthday", "неизвестно"

сейчас прописана одна строка
subNode1.setAttribute "birthday", rst.fields("birthday") , макрос останавливается, если значения в поле birthday нет(

пробовал через

If IsNull

End If
не получается(

...

Рейтинг:

0 / 0

02.09.2020, 15:35

| Ответить | Цитировать | Написать

Условие при экспорте в XML, если ячейка пустая, то вписать "неизв", если нет то исходное

#39994927

Панург

Участник

Откуда: настоящему индейцу завсегда везде ништяк

Сообщения: 5 486

Рейтинг: 0 / 0

serg_vba123

Подскажите, пожалуйста, как прописать условие в VB коде экспорта из таблицы Access в XML

Код: vbnet

subNode1.setAttribute "birthday", NZ(rst.fields("birthday"), "неизвестно")

...

Рейтинг:

0 / 0

02.09.2020, 17:17

| Ответить | Цитировать | Написать

Условие при экспорте в XML, если ячейка пустая, то вписать "неизв", если нет то исходное

#39995159

serg_vba123

Гость

Панург,
Спасибо тебе большое!

...

Рейтинг:

0 / 0

03.09.2020, 11:09

| Ответить | Цитировать | Написать

Условие при экспорте в XML, если ячейка пустая, то вписать "неизв", если нет то исходное

#39995199

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

serg_vba123

....пробовал через
If IsNull

End If
не получается(

Вообще-то NZ альтернатива IF и "не получаться",кроме как по Вашей вине\ошибке не могло

...

Рейтинг:

0 / 0

03.09.2020, 12:48

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39995199&tid=1609956]:	0ms
get settings:	9ms
get forum list:	13ms
check forum access:	4ms
check topic access:	4ms
track hit:	135ms
get topic data:	7ms
get forum data:	2ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	310ms

total:	536ms