Public Sub repname()
'Меняет глупые наименования полей типа Поле261 на умные типа "dat1"
DoCmd.OpenReport "Rep1", acViewDesign, , , acHidden"
Dim Ctl As Control
Dim Ctl1 As Control
Dim rpt As Report
With Reports("RepPlanPredjavl_tbl")
For Each Ctl1 In Reports("Rep1").Section("ÏПримечание отчета").Controls
Debug.Print Ctl1.Name
For i = 261 To 325
If Ctl1.Name = "Поле" & i Then
Ctl1.Name = "SCol" & (i - 260) ' SCol - нужное (контекстно-понятное) имя
Debug.Print Ctl1.Name
End If
Next i
Next
End With
DoCmd.Close acReport, "Rep1", acSaveYes
End Sub
|