Как сделать в форме связанные списки?

@Shelty · Регистрация: 08.04.2012

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Есть форма Посещения. Хочу сделать так, чтобы выбирали специализацию врача, а в перечне врачей были только те врачи, у которых эта специализация (например только терапевты)

@VinniPuh · 25.04.2013, 00:14

Вы имеете в виду, что из терапевтов можно было выбрать только Сомова или Иванова?

@Shelty · 25.04.2013, 00:19 **[ТС]**

Сообщение от kmv-puh

Вы имеете в виду, что из терапевтов можно было выбрать только Сомова или Иванова?

Да. Хочу, чтобы мы выбирали врача (например, терапевта), а в списке фамилий были только Сомов и Иванова. И так для всех других специализаций.

@VinniPuh · 25.04.2013, 00:45

Посмотрите в Форме - Посещения, в поле со списком - Код_врача (Врач), как в свойствах - в строке - Источник строк нажав на - (...) - сделан фильтр по - Код_специализации
При выборе специализации врача, значения поля - Код_специализации изменяются и происходит обновление (Смотри события после обновления -Макрос1) поля - Код_врача , где есть фильтр
Вроде это то что вам нужно.
Если умеете, замените макрос процедурой обработки события

@Shelty · 25.04.2013, 00:58 **[ТС]**

С виду всё так, но при вводе нового посещения там ошибка вылетает. Выбираю профиль врача, выбираю фамилию, а дальше фамилия не появляется в окне(( При повторном выборе - ошибка.

@VinniPuh · 25.04.2013, 01:32

Да, чтл тл не так, сразу понять в чем причина не могу, немного занят, возможно завтра к вечеру

@alvk · 25.04.2013, 02:48

Делайте вот по такому сценарию:

@VinniPuh · 25.04.2013, 03:02

Shelty - нашел в чем была проблема. Добавил поле Код_специализации в таблицу Посещения, сделал источник записей формы - таблица Посещения. + Текущая запись в свойствах формы тоже должна обновляться.

@VinniPuh · 25.04.2013, 03:08

alvk - хотел посмотреть ваш пример - "ПСС_одиночная", чтото выдает одни ошибки, может плохо заархивировалось?

@alvk · 25.04.2013, 04:32

Сообщение от kmv-puh

чтото выдает одни ошибки, может плохо заархивировалось?

Нет никаких ошибок, вот прямо с форума:

@VinniPuh · 25.04.2013, 07:02

alvk - У меня при открытии вылетает куча окон где Access угрожает сообцить об ошибках кому следует.

@VinniPuh · 25.04.2013, 07:14

alvk - вот как здесь, раньше такого у меня ни когда не бывало

mobile · 25.04.2013, 07:32

Сообщение от kmv-puh

alvk - У меня при открытии вылетает куча окон где Access угрожает сообцить об ошибках кому следует.

Мне кажется или вы говорили, что у вас Access 2000? Двухтысячный имеет другой формат данных, нежели 2003-й, на котором сделан пример. А соместимость, естественно, сделана только вперед. Поэтому и вылетает.

@VinniPuh · 25.04.2013, 07:51

mobile - Спасибо понял, почему то раньше считал, что это практически одно и тоже, в дальнейшем учту.

Добавлено через 7 минут
mobile - А как в моей БД (см. выше) - "Поликлиника(3)" написать процедуру вместо макроса, сам я в этом не силен, только учусь?

mobile · 25.04.2013, 08:02

Сообщение от kmv-puh

mobile - А как в моей БД (см. выше) - "Поликлиника(3)" написать процедуру вместо макроса, сам я в этом не силен, только учусь?

На событии AfterUpdate поля Код_специализации, вместо макроса выбрать процедуру обработки событий. В коде задать обновление источника поля Код_врача

HTML5

1
2
3

Private Sub Код_специализации_AfterUpdate()
    Me.Код_врача.Requery
End Sub

@VinniPuh · 25.04.2013, 08:07

mobile - Спасибо получилось, но хотелось бы, чтоб после обновления переходило в следующее поле - Код_врача, это как будет выглядеть?

mobile · 25.04.2013, 08:10

Кстати, по-моему я встречал в сети приладу, позволяющую на 2000-м аксе читать файлы формата 2002-2003. Сейчас уже не вспомню где, но вы можете поискать.

Добавлено через 1 минуту

Сообщение от kmv-puh

но хотелось бы, чтоб после обновления переходило в следующее поле - Код_врача, это как будет выглядеть?

Visual Basic

Private Sub Код_специализации_AfterUpdate()
    Me.Код_врача.Requery
    Me.Код_врача.setfocus
End Sub

@VinniPuh · 25.04.2013, 08:18

Несколько лет назад пробовал, что-то не понравилось кажется интерфейс изменился, а я привык к РОДНОМУ 2000

Добавлено через 5 минут
mobile - Спасибо получилось тоже. И последний вопрос, (только щас пришло в голову), после получения фокуса этим элементом - раскрывался список данного поля со списком. Что еще нужно добавить в процедуру?

@alvk · 25.04.2013, 08:22

Сообщение от kmv-puh

после получения фокуса этим элементом - раскрывался список данного поля со списком.

Visual Basic

1	Me.Код_врача.dropdown

mobile · 25.04.2013, 08:25

Сообщение от kmv-puh

Несколько лет назад пробовал, что-то не понравилось кажется интерфейс изменился, а я привык к РОДНОМУ 2000

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

Сообщение от kmv-puh

И последний вопрос, (только щас пришло в голову), после получения фокуса этим элементом - раскрывался список данного поля со списком. Что еще нужно добавить в процедуру?

Нужно использовать метод Dropdown поля со списком

Visual Basic

Private Sub Код_специализации_AfterUpdate()
    Me.Код_врача.Requery
    Me.Код_врача.setfocus
    Me.Код_врача.Dropdown
End Sub

Добавлено через 58 секунд
Аппаздал :-)

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	25.04.2013, 07:02	11
	alvk - У меня при открытии вылетает куча окон где Access угрожает сообцить об ошибках кому следует. 0

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	25.04.2013, 08:07	16
	mobile - Спасибо получилось, но хотелось бы, чтоб после обновления переходило в следующее поле - Код_врача, это как будет выглядеть? 0

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	25.04.2013, 00:14	2
	Вы имеете в виду, что из терапевтов можно было выбрать только Сомова или Иванова? 0

@Shelty 9 / 9 / 0 Регистрация: 08.04.2012 Сообщений: 219
	25.04.2013, 00:19 [ТС]	3
	Сообщение от kmv-puh Вы имеете в виду, что из терапевтов можно было выбрать только Сомова или Иванова? Да. Хочу, чтобы мы выбирали врача (например, терапевта), а в списке фамилий были только Сомов и Иванова. И так для всех других специализаций. 0

@Shelty 9 / 9 / 0 Регистрация: 08.04.2012 Сообщений: 219
	25.04.2013, 00:58 [ТС]	5
	С виду всё так, но при вводе нового посещения там ошибка вылетает. Выбираю профиль врача, выбираю фамилию, а дальше фамилия не появляется в окне(( При повторном выборе - ошибка. 0

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	25.04.2013, 01:32	6
	Да, чтл тл не так, сразу понять в чем причина не могу, немного занят, возможно завтра к вечеру 1

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	25.04.2013, 03:08	9
	alvk - хотел посмотреть ваш пример - "ПСС_одиночная", чтото выдает одни ошибки, может плохо заархивировалось? 0

@alvk 7395 / 4532 / 295 Регистрация: 12.08.2011 Сообщений: 14,015
	25.04.2013, 04:32	10
	Сообщение от kmv-puh чтото выдает одни ошибки, может плохо заархивировалось? Нет никаких ошибок, вот прямо с форума: Миниатюры 0

mobile 26805 / 14484 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	25.04.2013, 07:32	13
	Сообщение от kmv-puh alvk - У меня при открытии вылетает куча окон где Access угрожает сообцить об ошибках кому следует. Мне кажется или вы говорили, что у вас Access 2000? Двухтысячный имеет другой формат данных, нежели 2003-й, на котором сделан пример. А соместимость, естественно, сделана только вперед. Поэтому и вылетает. 1

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	25.04.2013, 07:51	14
	mobile - Спасибо понял, почему то раньше считал, что это практически одно и тоже, в дальнейшем учту. Добавлено через 7 минут mobile - А как в моей БД (см. выше) - "Поликлиника(3)" написать процедуру вместо макроса, сам я в этом не силен, только учусь? 0

@VinniPuh 8859 / 5904 / 585 Регистрация: 27.03.2013 Сообщений: 19,567
	25.04.2013, 08:18	18
	Несколько лет назад пробовал, что-то не понравилось кажется интерфейс изменился, а я привык к РОДНОМУ 2000 Добавлено через 5 минут mobile - Спасибо получилось тоже. И последний вопрос, (только щас пришло в голову), после получения фокуса этим элементом - раскрывался список данного поля со списком. Что еще нужно добавить в процедуру? 0