Добрый день!
Ситуация:
Access 2010 из Office Professional 2010, русский
Есть форма Frm, режим - Только чтение, вид - Таблица.
Источник данных - SQL запрос из таблицы Tbl1, которая по ключевому полю x1 (тип String)
связана с таблицей Tbl2, отношение "один-ко-многим".
Таблица Tbl2 связана с таблицей Tbl3 по НЕ ключевому полю x2 (тип String).
Тbl1.[x1] отображается в Frm.[x], тип контрола - поле.
В Frm.[y], тип контрола - поле со списком - должен отображаться результат SQL запроса из Tbl3.
Все происходит в событии OnOpen формы Frm:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Private Sub Form_Open(Cancel As Integer)
Dim RecSource As String, S As String
RecSource = varSQL_PK ' глобальная переменная с именем запроса
Me.RecordSource = RecSource
S = Me.[x] 'ключевое поле
With [y]
.BoundColumn = 1
.RowSource = _
"SELECT Tbl3.[x2], Tbl3.[x3] FROM Tbl3" + _
" INNER JOIN (Tbl2" + _
" INNER JOIN " + RecSource + _
" ON Tbl2.[x1]=" + RecSource + ".[x1])" + _
" ON Tbl3.[x2]=Tbl2.[x2]" + _
" WHERE Tbl2.[x1]='" + _
S + "'" + _
" ORDER BY Tbl3.[x3];"
.RowSourceType = "Table/Query"
.ColumnCount = 2
.ColumnWidths = "0см;3,652см"
.LimitToList = True
.AllowValueListEdits = False
.InheritValueList = True
.Requery
End With
End Sub
Проблема:
1) при открытии формы вся колонка Frm.[y] пустая, хотя при выборе любого [y] открывается список полей
2) для всех [y] список записей одинаков, т.к. в условие отбора Access ставит ТОЛЬКО
первую запись из Me.[x], хотя нужно - свое значение для каждой записи на форме.
Если убрать WHERE - тот же эффект, только в списке все записи.
В чем ошибка?
Отзовитесь, кто знает, ПОЖАЛУЙСТА!
P.S. Для Frm.[y] в Tbl1 есть поле [y] - можно ли как-то в Tbl1 обойтись без него?
Т.к. форма только для просмотра, результат запроса хранить не нужно.
