ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Многоуровневые списки
4 сообщений из 4, страница 1 из 1
Многоуровневые списки
    #32207926
Alexanderik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexanderik
Участник
Помогите решить задачу !
В ленточной форме нужно отобразить поле со списком.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
DataBase.


Basa1

Type    Product
RD       text1RD
TP       text2TP
RC       text3RC


Basa2
ID       Type    Stones  Variant
 1          RD       text1    получаем из Basa1 -выбор пользователя (text1RD)
 2          TP       text2    получаем из Basa1 -выбор пользователя (text2TP)
 3          RD       test3    получаем из Basa1 -выбор пользователя (text1RD)
 4          RC       test4    получаем из Basa1 -выбор пользователя (text3RC)
 5          TP       text5     .
 6          WE      text6     .
 7          DD       text7     .

В форме необходимо расположить поля из Basa2, Type выставляется вручную из списка, а вот в списке variant должны появиться только те варианты, которые входят в Basa1 , то есть только при условии basa2.type=basa1.type.

Ставить выборку в виде Select * from Basa1 where Basa2.type=Basa1.type
не подходит в ленточной форме - так как Basa2.type - постоянно меняется в зависимости от recordseta - и получается что верный результат находится только в конце базы Basa2 , а как сделать это без динамического изменения type ??
можно поверх поля со списком наложить временное поле - в которое будет передаваться вычисленное значение .. Но вот как это осуществить ?
...
Рейтинг: 0 / 0
15.07.2003, 10:11
| Ответить | Цитировать | Написать  
Многоуровневые списки
    #32207936
Geen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geen
Участник
Private Sub Type_AfterUpdate() ' после обновления
Dim A As String
A = Me.Type
Me.Variant.RowSource = "Select * from Basa1 where (Basa2.type=A)"
End Sub

Могут быть варианты в зависимости от типа данных:)

Geen
...
Рейтинг: 0 / 0
15.07.2003, 10:18
| Ответить | Цитировать | Написать  
Многоуровневые списки
    #32207942
Alexanderik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexanderik
Участник
Код: plaintext
1.
2.
Dim A As String 
A = Me.Type 
Me.Variant.RowSource =  "Select * from Basa1 where (Basa2.type=A)"


Это же один и тот же перец !


когда срабатывает AfterUpdate поля type - то пересчитывается не текущий recodrset - а все видимые строки на форме !
то есть Basa2.type=A тоже самое что и Basa2.type=Basa1.type -

Мож еще идеи есть ?
...
Рейтинг: 0 / 0
15.07.2003, 10:23
| Ответить | Цитировать | Написать  
Многоуровневые списки
    #32207975
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
повесь ту же хрень на Form_Current
тогда каждая запись будет жить отдельно.
...
Рейтинг: 0 / 0
15.07.2003, 10:44
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Многоуровневые списки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1680542]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 12ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 2ms
others: 217ms
total:  369ms
созд. / загр.: 369ms
x
x
Закрыть


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