Панург, вроде и присваивание данных полям происходит в цикле... но..
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.
30.
31.
32.
Sub obnov_podch_form(a As String) 'а-имя контрола подчиненной формы (получасовые или суточные данные)
Dim i, j As Integer
Dim r As Recordset
Dim s As String
Me.Controls(a).Requery
Me.Controls(a).Controls("Day_Time").ColumnHidden = True
Me.Controls(a).Controls("Итог").ColumnHidden = True
For i = 1 To 30
Me.Controls(a).Controls(CStr(i)).ControlSource = ""
Me.Controls(a).Controls(CStr(i)).ColumnHidden = True
Me.Controls(a).Controls(CStr(i) & "_").Caption = ""
Next i
j = 0
If Me.Controls(a).Form.Recordset.Fields.Count > 2 Then
For i = 2 To Me.Controls(a).Form.Recordset.Fields.Count - 1
Me.Controls(a).Controls(CStr(i - 1) + "_").Caption = Me.Controls(a).Form.Recordset.Fields(i).Name
Me.Controls(a).Controls(CStr(i - 1)).ControlSource = Me.Controls(a).Form.Recordset.Fields(i).Name
j = j + 1
Next i
Me.Controls(a).Controls("Day_Time").ColumnHidden = False
If f = False Then
Me.Controls(a).Controls("Итог").ColumnHidden = False
End If
For i = 1 To j
Me.Controls(a).Controls(CStr(i)).ColumnHidden = False
Next i
End If
End Sub
По поводу вашего предложения вставить запрос в объект-источник контрола подчиненной формы в принципе мне бы это подошло так как подчиненная форма только показывает данные. Единственное мне необходима возможность в некоторых случаях не показывать столбец ИТОГ. Как это можно будет сделать с запросом? Каждый раз создавать новый запрос на основе перекрестного запроса и пихать его в объект-источник?
И еще один вопрос. В этом случае просто Recuery с подчиненным запросом не проходит. только при перезагрузке подчиненного запроса данные обновляются. Как обновить данные подчиненного объекта SubForm у которого запрос?
