ник: kot_k_k
долго я ... судьбу вот наковырял, проверил работат, но обработку нужно вставить месяца
- не думаю что открыл америку - но новичкам и таким как я (с 5-е на 10-е) пользительно знать
Sub Dog_oper_pere_new()
Dim dbs As DAO.Database
Dim qdf As QueryDef
Dim ff As Field
Dim prp As Property
Set dbs = CurrentDb
Set qdf = dbs.QueryDefs("Dog_Oper_pere")
For Each ff In qdf.Fields
Select Case ff.Name
Case "Итоговое значение S_Summa" ' эти два поля в отчете заголовки строк
Case "opisanie"
Case Else ' а это поля которые динамические
Set prp = ff.CreateProperty("Caption", dbText, "СЮДА воткнуть обработку FF.NAME - для получения красивого названия поля") ' создали свойство
ff.Properties.Append prp ' добавили его
ff.Properties.Refresh ' обновили коллекцию
End Select
Next
End Sub
|