|
|
|
Списки
|
|||
|---|---|---|---|
|
#18+
Привет! ListBox1 - источник таблица1 ListBox2- источник таблица2 Таблица1 и таблица2 связаны через таблицу3. Вопрос: можно ли сделать ,чтобы при выборе элемента ListBox1 в ListBox2 отражались связанные данные с этим элементом. Звучит как то не так, однако есть вопрос... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 15:09:43 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
Надо сделать источником для ListBox2 таблицу2 с условием WHERE="парам", где парам результат выбора ListBox1, что-то вроде ListBox1.selected... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 15:56:34 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
А подробнее,ну,пожалуйста... таблица1 поля кодустановки,название таблица2 поля кодпродукта,название как я понимаю в событии "После обновления" ListBox1 пишим что-то подобное Dim varItm1 As Variant Dim l As Long For Each varItm1 In Me.lboInstallation.ItemsSelected l = Me.lboInstallation.ItemData(varItm1) Me.lboProduct.RowSource = "Select что-то" & l Me.lboProduct.Requery Exit Sub Next varItm1 Что в SElect или я что-то не понимаю ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 16:23:11 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
В SELECT, текст запроса, а потом WHERE. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 17:14:50 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
Ольга!А подробнее,ну,пожалуйста... таблица1 поля кодустановки,название таблица2 поля кодпродукта,название как я понимаю в событии "После обновления" ListBox1 пишим что-то подобное Dim varItm1 As Variant Dim l As Long For Each varItm1 In Me.lboInstallation.ItemsSelected l = Me.lboInstallation.ItemData(varItm1) Me.lboProduct.RowSource = "Select что-то" & l Me.lboProduct.Requery Exit Sub Next varItm1 Что в SElect или я что-то не понимаю Делать можно по разному. Это надо в книжках смотреть. Проще всего составить для второй таблицы запрос с параметром ( типа select ... from табл2 .. inner join .. табл3 .. .. inner join .. табл2 .. WHERE что-то=парам) и сохранить как запрос. Потом его подставить как источник данных для ListBox2. А в качестве параметра взять значение ListBox1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 17:22:24 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
Привет! Спасибо за помощь, возникла другая проблема: я выбираю значение в ListBox1 [в программе проверяю If IsNull(Me![cmbInstallation]) Then responce = MsgBox("Укажите установку.", vbCritical))] в итоге Access и говорит "Укажите установку", но я же значение выбрала, почему Access не видит. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.10.2004, 10:21:59 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
Значит IsNull(Me![cmbInstallation]) в результате выбора не меняется и остается TRUE, а меняется другой параметр. Его и надо подставить в IF ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 21.10.2004, 12:36:32 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
Привет! У меня ситуация следующая: в главной форме я выбираю три "параметра":дату, продукт,установку,а в подчинёнке отображаюся связанные с этим данные,так вот в чём вопрос. Как я писала что вроде Access не видит, что я выбрала установку,но на самом деле IsNull(Me![cmbInstallation] меняется если ВЫБРАТЬ в ListBox1(источник- запрос Installation) элемент, а потом ВЫБРАТЬ в связанном с ним ListBox2 (источник-запрос из таблицы Product) элемент. Причём всё нормально работает если свойство у ListBox-а "несвязанное выделение отсутствует", но мне надо, чтобы выбрав элемент в ListBox1 во втором ListBox-е отображались данные, как обойти это несвязное выделение? А то вся работа коту под хвост... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 22.10.2004, 14:36:00 |
|
||
|
Списки
|
|||
|---|---|---|---|
|
#18+
А вспе дело в том, что фотки нету... Я бы делал так: Предположим, структура таблиц такова таблица1 (ID1, Descr1) таблица2 (ID2, Descr2) таблица3 (ID1, ID2) ListBox1.RowSource = "SELECT таблица1.ID1, таблица1.Descr1 FROM таблица1" ListBox1.ColumnCount = 2 ListBox1.BoundColumn = 1 ListBox1.ColumnWidth = 0;2 ListBox2.RowSource = "SELECT таблица2.ID2, таблица2.Descr2 FROM таблица1 INNER JOIN таблица3 ON таблица2.ID2 = таблица3.ID2 WHERE таблица3.ID2 = [Forms]![FormName]!ListBox1" ListBox2.ColumnCount = 2 ListBox2.BoundColumn = 1 ListBox2.ColumnWidth = 0;2 И на событие ListBox1.AfterUpdate поставить ListBox2.Requery ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.10.2004, 15:36:50 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32746959&tid=1670836]: |
0ms |
get settings: |
6ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
41ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
45ms |
get tp. blocked users: |
1ms |
| others: | 195ms |
| total: | 314ms |
| 0 / 0 |
