Фильтр ввода в форме

@dennila2 · Регистрация: 27.03.2009

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

Подскажите уважаемые гуру, как организовать фильтр ввода в поле формы (не список), если варианты значений хранятся в отдельной таблице?
конструкция

Visual Basic

1	in([ТаблицаСписокВариантов].[Вариант])

в свойстве "условие на значение" поля выдает ошибку.

@БурундукЪ · 27.03.2009, 15:08

SQL

1	[Вариант] IN (SELECT [ТаблицаСписокВариантов].[Вариант] FROM [ТаблицаСписокВариантов])

@dennila2 · 27.03.2009, 15:21 **[ТС]**

Спасибо за скорый ответ!
НО акцесс выдает ошибку: "Для введенного значения не выполняется условия на значение данного поля".

@БурундукЪ · 27.03.2009, 15:28

модна запрос полностью

Добавлено через 30 секунд
можна запрос полностью

@dennila2 · 27.03.2009, 15:52 **[ТС]**

SQL

1	[МойВариант] IN (SELECT [ТаблицаСписокВариантов].[Вариант] FROM [ТаблицаСписокВариантов])

Где [МойВариант] - имя поля в форме.

@БурундукЪ · 27.03.2009, 16:04

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

Код SQL

1.

[МойВариант] IN (SELECT [ТаблицаСписокВариантов].[Вариант] FROM [ТаблицаСписокВариантов])

Где [МойВариант] - имя поля в форме.

а полный запрос где?

Добавлено через 1 минуту 39 секунд
и еще: лучше использовать INNER JOIN (эт так, для справки), а не писать индийскую программу

@dennila2 · 27.03.2009, 16:12 **[ТС]**

Сообщение от Влад69

а полный запрос где?

нет запроса =)
Форма просто открывается и должно проверяться значение, вводимое в поле [МойВариант]. а потом над ним проделываются манипуляции.

@БурундукЪ · 27.03.2009, 16:16

а не проще ли действительно список использовать?
потому что в противном случае прийдется обрабатывать событие "До обновления" поля, проверяя соответствует ли это поле требуемому

@dennila2 · 27.03.2009, 16:23 **[ТС]**

Сообщение от Влад69

а не проще ли действительно список использовать?
потому что в противном случае прийдется обрабатывать событие "До обновления" поля, проверяя соответствует ли это поле требуемому

нет, не проще. Одна из причин - стрелочки списков крадут место.
Лучше было бы сделать через обработку событий. Но пока что ума не хватает реализовать =))

@БурундукЪ · 27.03.2009, 16:30

Visual Basic

Private Sub МойВариант_BeforeUpdate(Cancel As Integer)
if isnull(dlookup("[Вариант]";"[ТаблицаСписокВариантов]";"[Вариант]='" & [МойВариант] & "'") then
   Cancel =1
   Msgbox "ne verno"
end if
End Sub

@dennila2 · 27.03.2009, 23:01 **[ТС]**

if isnull(dlookup("[Вариант]";"[ТаблицаСписокВариантов]";"[Вариант]='" & [МойВариант] & "'") then

access меня обматюкал как хотел, и продолжал матюкать даже после того, как я переписал это в:

If IsNull(DLookup([Вариант], [ТаблицаСписокВариантов].[Вариант], [Вариант])) Then ...
ругается напуть к полю таблицы, говорит, что найти не может. (слепец =)))

@Михайло · 28.03.2009, 00:18

Вместо элемента управления "Поле" используйте "Поле со списком" с установленным свойством «Ограничиться списком» (LimitToList) = "Да"...

@dennila2 · 28.03.2009, 08:16 **[ТС]**

Сообщение от Михайло_

Вместо элемента управления "Поле" используйте "Поле со списком" с установленным свойством «Ограничиться списком» (LimitToList) = "Да"...

в том-то и дело, что надо уйти от списка

@Михайло · 28.03.2009, 23:34

А почему, собственно?

@БурундукЪ · 30.03.2009, 11:12

dennila2
1. поле МойВариант строка или число? если число, то убрать открывающиеся и закрывающиеся кавычки
2.

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

If IsNull(DLookup([Вариант], [ТаблицаСписокВариантов].[Вариант], [Вариант]))

- так писать нельзя!!! НИ В КОЕМ СЛУЧАЕ!!!
3. Если не поможет п.1., то переписать наименование таблиц и полей латинскими буквами (и попробовать так)

ЗЫ. ты меня из аськи выкинул что ли? бо не вижу твоего контакта (мне конечно абсолютно всеравно, но как-то странно...)

@dennila2 · 30.03.2009, 21:39 **[ТС]**

Сообщение от Михайло_

А почему, собственно?

1. Список очень сильно загромождает экран, вернее стрелочки списокв. ПОтому как этих полей очень много.
2. Поле отображает далеко не всю информацию, находящуюся в поле таблицы. А разделять поля нельзя. Вот само собой я от списков и ушел.

В идеале хотелось такую структуру, которая выпадает в момент начала ввода данных не позволяя вводить отсебятину, а просто игнорирую символы, которые не соответствуют списку:

Название: DropList.JPG
Просмотров: 86

Размер: 12.4 Кб

Название: DropList.JPG
Просмотров: 86

Размер: 12.4 Кб

@dennila2 · 30.03.2009, 21:51 **[ТС]**

Сообщение от Бурундук

dennila2
1. поле МойВариант строка или число?

строка

2. - так писать нельзя!!! НИ В КОЕМ СЛУЧАЕ!!!

а как надо?

Допустим поле в таблице: [MyTabl].[MyList]
поле формы [MySelect]

подскажи, как надо написать инструцию. Желательно выложить картинку, т.к. форум часть дукв заменяет (возможно мне показалось)

Добавлено через 1 минуту 23 секунды

Сообщение от Бурундук

dennila2
ЗЫ. ты меня из аськи выкинул что ли? бо не вижу твоего контакта (мне конечно абсолютно всеравно, но как-то странно...)

Нет!!!
сам не знаю, что такое... Пишу тебе сегодя с утра, с родины приветы передаю =))
А в ответ - тишина. Я уж подумал, что занят типа =)))
Завтра с утра обновим контакт.

@Михайло · 31.03.2009, 02:19

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

1. Список очень сильно загромождает экран, вернее стрелочки списокв. ПОтому как этих полей очень много.
2. Поле отображает далеко не всю информацию, находящуюся в поле таблицы. А разделять поля нельзя. Вот само собой я от списков и ушел.
В идеале хотелось такую структуру, которая выпадает в момент начала ввода данных не позволяя вводить отсебятину, а просто игнорирую символы, которые не соответствуют списку.

1. Я предлагал именно "поле со списком", а не "список".
2. Никакие стрелочки не видны до тех пор, пока в поле со списком не попадёт курсор.
3. Поле формы отображает ВСЮ информацию. При необходимости - увеличивайте ширину/высоту.
4. Если в обработчик события "Вход" (Enter) поля со списком написать ПолеСоСписком.DropDown, то список распахнётся...

@БурундукЪ · 31.03.2009, 10:49

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

а как надо?

Visual Basic

1	If IsNull(DLookup("[MyList]", "[MyTabl]", "[MyList]='" & [MySelect] & "'") then

я поразделял ;, а надо , (невнимательность меня когда-нибудь погубит(((
и окавычивать обязательно

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

В идеале хотелось такую структуру, которая выпадает в момент начала ввода данных не позволяя вводить отсебятину, а просто игнорирую символы, которые не соответствуют списку:

Есть еще вариант: форма ФормН, в которой перечислены все значения из поля, напр., [MyTabl].[MyList], и которая открывается по событию Click или DblClick поля [MySelect]. В ней выбрать нужное значение, которое по любому событию (Click или DblClick на поле или Click на кнопке формы ФормН) возвращает в поле [MySelect] нужное значение. Причем форму ФормН желательно сделать модальной.
зы. кста, пиво ты мне уже должен (по крайней мере пивные этикетки (хотя бы от "Души Пивовара"

).

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

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

форум часть дукв заменяет

не то писать надо правильно, а то пальцы иногда заплетыкаются (клавиши маленькие)

@dennila2 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 26
	28.03.2009, 08:16 [ТС]	13
	Сообщение от Михайло_ Вместо элемента управления "Поле" используйте "Поле со списком" с установленным свойством «Ограничиться списком» (LimitToList) = "Да"... в том-то и дело, что надо уйти от списка 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	28.03.2009, 23:34	14
	А почему, собственно? 0

@dennila2 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 26
	30.03.2009, 21:51 [ТС]	17
	Сообщение от Бурундук dennila2 1. поле МойВариант строка или число? строка 2. - так писать нельзя!!! НИ В КОЕМ СЛУЧАЕ!!! а как надо? Допустим поле в таблице: [MyTabl].[MyList] поле формы [MySelect] подскажи, как надо написать инструцию. Желательно выложить картинку, т.к. форум часть дукв заменяет (возможно мне показалось) Добавлено через 1 минуту 23 секунды Сообщение от Бурундук dennila2 ЗЫ. ты меня из аськи выкинул что ли? бо не вижу твоего контакта (мне конечно абсолютно всеравно, но как-то странно...) Нет!!! сам не знаю, что такое... Пишу тебе сегодя с утра, с родины приветы передаю =)) А в ответ - тишина. Я уж подумал, что занят типа =))) Завтра с утра обновим контакт. 0

@dennila2 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 26
	27.03.2009, 15:21 [ТС]	3
	Спасибо за скорый ответ! НО акцесс выдает ошибку: "Для введенного значения не выполняется условия на значение данного поля". 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	27.03.2009, 15:28	4
	модна запрос полностью Добавлено через 30 секунд можна запрос полностью 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	27.03.2009, 16:04	6
	Сообщение от dennila2 Код SQL 1. [МойВариант] IN (SELECT [ТаблицаСписокВариантов].[Вариант] FROM [ТаблицаСписокВариантов]) Где [МойВариант] - имя поля в форме. а полный запрос где? Добавлено через 1 минуту 39 секунд и еще: лучше использовать INNER JOIN (эт так, для справки), а не писать индийскую программу 0

@dennila2 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 26
	27.03.2009, 16:12 [ТС]	7
	Сообщение от Влад69 а полный запрос где? нет запроса =) Форма просто открывается и должно проверяться значение, вводимое в поле [МойВариант]. а потом над ним проделываются манипуляции. 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	27.03.2009, 16:16	8
	а не проще ли действительно список использовать? потому что в противном случае прийдется обрабатывать событие "До обновления" поля, проверяя соответствует ли это поле требуемому 0

@dennila2 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 26
	27.03.2009, 16:23 [ТС]	9
	Сообщение от Влад69 а не проще ли действительно список использовать? потому что в противном случае прийдется обрабатывать событие "До обновления" поля, проверяя соответствует ли это поле требуемому нет, не проще. Одна из причин - стрелочки списков крадут место. Лучше было бы сделать через обработку событий. Но пока что ума не хватает реализовать =)) 0

@dennila2 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 26
	27.03.2009, 23:01 [ТС]	11
	if isnull(dlookup("[Вариант]";"[ТаблицаСписокВариантов]";"[Вариант]='" & [МойВариант] & "'") then access меня обматюкал как хотел, и продолжал матюкать даже после того, как я переписал это в: If IsNull(DLookup([Вариант], [ТаблицаСписокВариантов].[Вариант], [Вариант])) Then ... ругается напуть к полю таблицы, говорит, что найти не может. (слепец =))) 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	28.03.2009, 00:18	12
	Вместо элемента управления "Поле" используйте "Поле со списком" с установленным свойством «Ограничиться списком» (LimitToList) = "Да"... 0

@БурундукЪ 10065 / 2622 / 84 Регистрация: 17.02.2009 Сообщений: 10,364
	30.03.2009, 11:12	15
	dennila2 1. поле МойВариант строка или число? если число, то убрать открывающиеся и закрывающиеся кавычки 2. Сообщение от dennila2 If IsNull(DLookup([Вариант], [ТаблицаСписокВариантов].[Вариант], [Вариант])) - так писать нельзя!!! НИ В КОЕМ СЛУЧАЕ!!! 3. Если не поможет п.1., то переписать наименование таблиц и полей латинскими буквами (и попробовать так) ЗЫ. ты меня из аськи выкинул что ли? бо не вижу твоего контакта (мне конечно абсолютно всеравно, но как-то странно...) 0

@dennila2 0 / 0 / 0 Регистрация: 27.03.2009 Сообщений: 26
	30.03.2009, 21:39 [ТС]	16
	Сообщение от Михайло_ А почему, собственно? 1. Список очень сильно загромождает экран, вернее стрелочки списокв. ПОтому как этих полей очень много. 2. Поле отображает далеко не всю информацию, находящуюся в поле таблицы. А разделять поля нельзя. Вот само собой я от списков и ушел. В идеале хотелось такую структуру, которая выпадает в момент начала ввода данных не позволяя вводить отсебятину, а просто игнорирую символы, которые не соответствуют списку: 0

@Михайло 118 / 118 / 10 Регистрация: 12.05.2010 Сообщений: 1,207
	31.03.2009, 02:19	18
	Сообщение от dennila2 1. Список очень сильно загромождает экран, вернее стрелочки списокв. ПОтому как этих полей очень много. 2. Поле отображает далеко не всю информацию, находящуюся в поле таблицы. А разделять поля нельзя. Вот само собой я от списков и ушел. В идеале хотелось такую структуру, которая выпадает в момент начала ввода данных не позволяя вводить отсебятину, а просто игнорирую символы, которые не соответствуют списку. 1. Я предлагал именно "поле со списком", а не "список". 2. Никакие стрелочки не видны до тех пор, пока в поле со списком не попадёт курсор. 3. Поле формы отображает ВСЮ информацию. При необходимости - увеличивайте ширину/высоту. 4. Если в обработчик события "Вход" (Enter) поля со списком написать ПолеСоСписком.DropDown, то список распахнётся... 0