ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамическое условие отбора для поля со списком
19 сообщений из 19, страница 1 из 1
Динамическое условие отбора для поля со списком
    #32504571
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
Ленточная/табличная форма, поле со списком. Как сделать, чтобы каждое последущее поле содержало список без уже выбранных в других строках значений? И, соответственно, при удалении какой-нибудь записи, это значение в список возвращалось бы.
-----------------------------------------
Всех с наступающим...!
...
Рейтинг: 0 / 0
30.04.2004, 14:22
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504601
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
ты хочешь запретить повторный ввод одинаковых значений?
это делается в таблице, с которой работает твоя форма - смотри в сторону уникальных индексов
...
Рейтинг: 0 / 0
30.04.2004, 14:41
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504609
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Ситуация ясна :)

Вот только код придумывать ломает - наверное он достаточно дольшой получиться :(

Примерно так:
1. Из формы составляешь список id, которые надо исключить в виде строки (например "1, 5, 10" - strNotID)
2. В RecordSoutre поля со списком пишешь SQL запрос, который тебя интересует и выкидываешь не нужные id-шки:
ПСС1.RecordSource = strSQL & "Where id not in (" & strNotID & ")"
3. Ну и что-то надо делать - если в ПСС1 не окажется (после изменения Source) записи на которую он указывал до изменения Source

Что-то вроде этого :)
...
Рейтинг: 0 / 0
30.04.2004, 14:43
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504632
tim2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tim2
Участник
ты хочешь запретить повторный ввод одинаковых значений?
угадал! А как с индексами? Таблица "Состав", пусть будет 3 поля: id, idСостава, IdВагон. Ну залеплю я уникальный индекс на пару idСостава+IdВагон. И при попытке запихнуть в Состав уже имеющийся Вагон буду получать ругань. А мне надо, чтобы "использованные" позиции списка в нем вообще не показывались.
...
Рейтинг: 0 / 0
30.04.2004, 14:51
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504646
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
уважаемый paparone!
или не понимаю чего-то
или в вашем примере
после обновления источника поля со списком
каждая вводимая запись будет становиться null:
исчезла из выборки строка - id записи из таблицы дает null в запросе комбобокса -
стало нечего показывать - стал пустым комбобокс
...
Рейтинг: 0 / 0
30.04.2004, 14:57
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504653
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
Код: plaintext
1.
2.
3.
SELECT     SpisokVagonov.Name, MyTable.Name AS a
FROM         MyTable RIGHT OUTER JOIN
                      SpisokVagonov ON MyTable.Name = SpisokVagonov.Name
WHERE     (MyTable.Name IS NULL)


это - сурс для комбо
...
Рейтинг: 0 / 0
30.04.2004, 15:00
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504661
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
Код: plaintext
1.
2.
3.
4.
SELECT     SpisokVagonov.Name
FROM         MyTable RIGHT OUTER JOIN
                      SpisokVagonov ON MyTable.Name = SpisokVagonov.Name
WHERE     (MyTable.Name IS NULL)

т.е. вот так, зачем в комбе лишний столбец...
...
Рейтинг: 0 / 0
30.04.2004, 15:01
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504678
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
+ к сообщению zz
И надо полю .requery делать периодически, в OnCurrent, например.
...
Рейтинг: 0 / 0
30.04.2004, 15:06
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504686
zz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
zz
Участник
+ к сообщению Geo
Абсолютно согласен :)
...
Рейтинг: 0 / 0
30.04.2004, 15:09
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504687
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
стандартными средствами не знаю как

как вариант:
на форме _над кнопкой со стрелкой вниз_ комбобокса
рисуешь свою кнопочку с тремя точками а-ля 1С
а комбобоксу даешь
enabled=no
locked=yes
= ввести/открыть список нельзя, а цвет не серый

а на кнопку вешаешь свою форму, которая дает выборку
исключая уже введенные
...
Рейтинг: 0 / 0
30.04.2004, 15:09
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504689
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
уважаемый paparone!
или не понимаю чего-то
или в вашем примере

Для этого я написал 3 пункт
Я же не пример писал - это так сказать - эскиз

Или я что-то не понимаю?
...
Рейтинг: 0 / 0
30.04.2004, 15:10
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504733
вспомнил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вспомнил
Гость
2 Geo

авторформа ленточная/табличная,
а не тот ли случай, когда вместо рекваери надо делать подмену рекордсетов по входу и выходу.
...
Рейтинг: 0 / 0
30.04.2004, 15:26
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504739
еще вспомнил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
еще вспомнил
Гость
тьфу, рекордСурсов
...
Рейтинг: 0 / 0
30.04.2004, 15:27
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504759
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
2 Вспомнил
Ты хотел сказать "когда НЕ надо"? :))
Мне так и не удалось заставить то, про что ты вспомнил, устойчиво работать в a>=2000.
Да и в 97-м это работать вроде бы не должно :)

Насколько я понял, при добавлении записи со значением, это значение должно пропадать из списка, и наоборот.
Мне кажется, вариант zz тут самый оптимальный.
И подмену recordsource делать не надо.
Хотя...
Его надо так переписать:

Код: plaintext
1.
2.
3.
4.
private sub form_current()
  me.LstCtrl.RowSource = "SELECT Name FROM MyTable RIGHT JOIN " & _
                          "SpisokVagonov as sv ON MyTable.Name = sv.Name " & _
                          "WHERE (MyTable.Name IS NULL) or sv.Name='" & me.LstCtrl & "'"
end sub
...
Рейтинг: 0 / 0
30.04.2004, 15:35
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504764
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
:(
Ерунду какую-то написал, про то, что "не надо делать"...
Конечно, в табличной или ленточной форме это будет работать криво, если связанный столбец <> видимый столбец...
...
Рейтинг: 0 / 0
30.04.2004, 15:38
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504821
вспомнил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вспомнил
Гость
если поле связанное - при пропадании уже введенных значений будут неприятные визуальные эффекты (незаполненные уже введенные данные). (Способ позволял менять источник, не пересчитывая/перерисовывая другие записи.)



2 Geo
По поводу 2к - специально перегнал туда тест :

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Private Sub cmbSum_Enter()
Dim sSQL As String
    sSQL = "SELECT testS.Summ " & _
        " FROM testS " & _
        " WHERE (((testS.Summ)=[Forms]![testM_f]![testS_sf].[Form]![Summ]));"
    Me.cmbSum.RowSource = sSQL

End Sub

Private Sub cmbSum_Exit(Cancel As Integer)
Dim sSQL As String
    sSQL = "SELECT testS.Summ " & _
        " FROM testS "
    Me.cmbSum.RowSource = sSQL
End Sub


вроде работает (mdb). Но возможно, если запросы посложнее, да данных побольше - будут траблы. Не припомнишь, в чем трабл? Если в работе с сервером - могабыть всосать данные в массив, и формировать источники как строки из массива? (чтобы не было лишних общений с сервером)?
...
Рейтинг: 0 / 0
30.04.2004, 16:11
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504863
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Совсем плохо жпрс работает...\r
\r
Вот:\r
/topic/36567\r
\r
ЗЫ. Скоро год, как я этот форум нашел :)
...
Рейтинг: 0 / 0
30.04.2004, 16:27
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504876
вспомнил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вспомнил
Гость
об чем и речь.
до этого я только в ленте делал с всплывающим из под поля (по воходу) списком.

кстати этих тем тут поднято с десяток. с периодичностью раз в месяц/неделю


но так и не понял, когда решение не работает в 2000. тест меня не разубедил.
...
Рейтинг: 0 / 0
30.04.2004, 16:34
| Ответить | Цитировать | Написать  
Динамическое условие отбора для поля со списком
    #32504897
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
авторно так и не понял, когда решение не работает в 2000. тест меня не разубедил.
Работать-то оно работает, а от "визуальных эффектов" избавиться я не смог.
...
Рейтинг: 0 / 0
30.04.2004, 16:46
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Динамическое условие отбора для поля со списком
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32504601&tid=1674886]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 194ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 248ms
total:  551ms
созд. / загр.: 551ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]