Как задать видимое значение выпадающего списка в msgbox?

[iriska_22]

Подскажите, пож-ста. Можно ли задать видимое значение выпадающего списка таблицы в msgbox ?
в коде прописываю обращение к таблице
Set dbs = CurrentDb()
Set dba = dbs.OpenRecordset("Напоминание")

td = Date

dba.MoveFirst

Do Until dba.EOF

dv = dba![след_сроквакцин].Value

If dv - td = 3 Then




MsgBox dba![ФИО] & ", " & dba![Телефон] & ", " & dba![Вид_Животного].Value


в сообщении высвечивается нулевое значение выпадающего списка "Вид_Животного", т.е. число а мне нужен текст

[Myhaylo]

Видимо, таблица (или запрос) "Напоминание" возвращает в поле "Вид_Животного" числовое значение. Просто Вам нужно переделать запрос "Напоминание", добавив туда ещё одну таблицу (справочник), содержащую коды и названия видов животных. Если же "Напоминание" - это таблица, то Вам нужно создать запрос (например, на закладке "Запросы" окна "база данных") и строке

Set dba = dbs.OpenRecordset("Напоминание")

использовать его название.

[iriska_22]

Сообщение от Myhaylo

Видимо, таблица (или запрос) "Напоминание" возвращает в поле "Вид_Животного" числовое значение. Просто Вам нужно переделать запрос "Напоминание", добавив туда ещё одну таблицу (справочник), содержащую коды и названия видов животных. Если же "Напоминание" - это таблица, то Вам нужно создать запрос (например, на закладке "Запросы" окна "база данных") и строке

Set dba = dbs.OpenRecordset("Напоминание")

использовать его название.

Правильно ли я вас понимаю. Но в таблицу "Напоминание" в столбец "Вид_Животного выпадающего списка выводится текст собака, кошка и т.д.
Если из формы брать значение выпадающего списка то можно вывести в msgbox текст (например, s = Me.ПолеСоСписком3.Text или Column(1) MsgBox s)
а как из таблицы брать текстовое значение выпадающего списка.

[Myhaylo]

В таблице "Напоминание" для поля "Вид_Животного" создана подстановка в виде поля со списком, что позволяет видеть текст вместо чисел. Однако, в этом поле хранятся числа! Поэтому Вам нужно связать две таблицы и из таблицы-справочника вывести то самое текстовое поле.

[iriska_22]

Я не специалистка, а только начинаю разбираться в accese. Вы могли бы мне поподробней рассказать как сделать или пример дать.

[Myhaylo]

Лучше выложите свою базу (в заархивированном виде).

[iriska_22]

хорошо. скажите а вам в каком формате mdb или access 2010 accdb, просто я делаю в 2010 access.

[iriska_22]

могу и в старой версии access выложить

[Myhaylo]

2010 так 2010...

[iriska_22]

у меня не получается сжать и загрузить она слишком большая, уже и картинки удалила, все равно. я могу на почту вам скинуть ?