Форумы HiProg.com - MS ACCESS, VBA, VB

ник: snipe
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