| |
 18 Кб. |
|
| | Добрый день, надеюсь на вашу помощь.
имеется 2 списка: первый - большой список изделий, а второй накладные перемещения изделий на склад.
встаем на запись с изделием в первом списке, и если оно перемещалось на склад, то во втором списке появится запись(и) с накладной для него.
второй список имеет самое обычное условие отбора [форма]![список], необходимо сделать кнопку "Все накладые", которая бы сбрасывала условие отбора и во втором списке выводились значения для всех-всех изделий, а не только для того, на которое мы встали в первом списке
вот пример базы. нужна кнопка чтобы во втором списке выводились значения и для цвета, и для страны, и для каши, и для автомобиля. | |
| |
| |
| |
|
|
| | KempeR1t,
Option Compare Database
Option Explicit
Private Sub Кнопка4_Click()
Me![Список2].RowSource = "Таблица2"
End Sub
Private Sub Список0_Click()
Me![Список2].RowSource = "SELECT Таблица2.kod_id, Таблица2.Название, Таблица2.kod_id1 FROM Таблица2 WHERE (((Таблица2.kod_id1) = [Forms]![Форма1]![Список0])) ORDER BY Таблица2.kod_id;"
End Sub | |
| |
| |
|
|
| |
|
|
| | есть маленький недочет. когда форма загружается во втором списке сразу показываются все записи, а фильтровать начинает только если кликнуть по записи в первом списке. как программно описать именно "клик" по первой записи в первом списке при открытии формы?
список0 = список0.итемдата(0) не работает | |
| |
| |
| |
19 Кб. |
|
| | разобрался с этим, но вылез другой косяк.
как исправить код, если текстовое название во втором списке берется из третьей таблицы ? (2 и 3 таблицы связаны) | |
| |
| |
|
|
| |
28 Кб. |
|
| | вот пример базы с 3 таблицами. нужно помочь отредактировать код флажка (как в предыдущем вложении) чтобы заработало для 3 таблиц | |
| |
| |
| |
|
|
| | KempeR1t,
Option Compare Database
Option Explicit
Private Sub Флажок4_Click()
if me!Флажок4 then
Me![Список2].RowSource = "SELECT Таблица2.kod_id, Таблица3.Название, Таблица2.kod_id1 " _
"FROM Таблица3 RIGHT JOIN Таблица2 ON Таблица3.Kod_id = Таблица2.Название"
else
call Список0_Click()
end if
End Sub
Private Sub Список0_Click()
Me![Список2].RowSource = "SELECT Таблица2.kod_id, Таблица3.Название, Таблица2.kod_id1 " _
"FROM Таблица3 RIGHT JOIN Таблица2 ON Таблица3.Kod_id = Таблица2.Название WHERE " _
"(((Таблица2.kod_id1) = [Forms]![Форма1]![Список0])) ORDER BY Таблица2.kod_id;"
End Sub | |
| |
| |
