|
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
http://www.sql.ru/forum/1300582/kontroll-v-forme-ne-pokazyvaet-rezultat-zaprosa