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

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

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

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

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

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

@BasicMan · 27.03.2009, 15:08

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

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

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

@BasicMan · 27.03.2009, 15:28

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

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

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

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

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

@BasicMan · 27.03.2009, 16:04

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

Код SQL

1.

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

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

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

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

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

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

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

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

@BasicMan · 27.03.2009, 16:16

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

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

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

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

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

@BasicMan · 27.03.2009, 16:30

Visual Basic
1
2
3
4
5
6
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

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

@BasicMan · 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, то список распахнётся...

@BasicMan · 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

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

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

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

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

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

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

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