VPF::Поле со списком на основании условия

Nikolya

Дата 18.5.2007, 06:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 20.4.2007

Репутация: нет
Всего: нет

Приветствую! Есть два поля со списком: в первом значения "Совпадение" и "Расхождение", во втором "Категория1", "Категория2". Как сделать чтобы при выборе "Расхождение", во втором поле появлялись значения категорий, а при выборе "Совпадение" оно оставалось пустым.

Пробую так, как написано ниже, но не знаю как сделать для Категорий источником записей этот код.

Код


Private Sub Расхождение_Change()

Dim dbs As Database, rst As Recordset, strSQL As String
  Set dbs = CurrentDb
  If Расхождение = "2" Then
  strSQL = "SELECT Name, ID" & "FROM Категории;"
 End If
End Sub

Может быть нужно сделать запрос, в котором проверять условие и производить отбор, и его указать источником.
Но в таком случае Access выполнять в запросе подзапрос sql не хочет.

Кстати "Расхождения" и "Категории" не связаны друг с другом.

Благодарю.

Akina

Дата 18.5.2007, 08:31 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Код


Private Sub Расхождение_Change()
If Расхождение.Column(0) = "2" Then
   Категория.RowSource = "Select Name, ID From [Категории];"
Else
   Категория.RowSource = ""
End If
Категория.Requery
End Sub

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Nikolya

Дата 18.5.2007, 08:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 20.4.2007

Репутация: нет
Всего: нет

Спасибо! А как указать источником эту программу?

Akina

Дата 18.5.2007, 10:47 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Цитата(Nikolya @ 18.5.2007, 09:57

)

как указать источником эту программу?

Это не источник. Это обработчик события.

Вызови в макете формы свойства поля со списком "Расхождение".
Перейди на вкладку "События".
Щелкни на пару миллиметров правее поля события "Изменение".
Выбери "Программа".
В открывшемся окне вставь вышеприведенный код.
Сохрани макет формы.

--------------------

Nikolya

Дата 22.5.2007, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 20
Регистрация: 20.4.2007

Репутация: нет
Всего: нет

Огромное спасибо, Akina!

Все заработало.

Это сообщение отредактировал(а) Nikolya - 22.5.2007, 08:49

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »