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