ник: kot_k_k
Function Rep_RS()
str="Select * from tabla"
DoCmd.OpenReport "Отчет_1", acViewDesign, , , acHidden
Reports!Отчет_1.RecordSource = str_
DoCmd.Close acReport, "Отчет_1", acSaveYes
End Function
|
открыл отчет в режиме конструктор
загнал в него новый источник данных
закрыл отчет с сохранением.
работает из модуля, аналогично для форм.
если в процессе работы формы нужно скрыть/показать поле, поменять цвет
все спокойно отрабатывается через события - обращение к текущему объекту через Me:
Me.Поле134.Visible=False
п.с. Dim frm as Form - работает и без приставки Access
