| |
|
|
| | В форме есть список с названиями отчетов lst_Report и список с названиями таблиц lst_Tables. Необходимо поменять значение свойства RecordSource в отчете выбранном из списка lst_Report на таблицу, выбранную из списка lst_Tables.
Никак не могу в строке [Reports]![отчет].RecordSource = Me!lst_Tables вместо названия отчета [отчет] вставить значение выбранного отчета из списка lst_Report.
Используемый код:
Private Sub Command6_Click() 'событие на нажатие кнопки
Dim rep As String
rep = Me!lst_Reports 'переменной присваиваем значение из списка lst_Reports
DoCmd.OpenReport rep, acDesign 'выбранный отчет открываем в режиме редактирования
[Reports]!rep.RecordSource = Me!lst_Tables 'меняем значение RecordSource отчета на выбранную таблицу
DoCmd.OpenReport rep, acPreview 'отображаем отчет
End Sub
|
Выдается ошибка, что отчета с названием rep не существует. Пробовал по всякому со знаками &, но безрезультатно.
Помогите, люди добрые! | |
| |
| |
| |
|
|
| |
Reports(rep).RecordSource = Me!lst_Tables
|
| |
| |
| |
| |
|
|
| | как кот Матроскин, когда научил галчонка говорить "Кто там?" - "Урррраааа! Заработало!!!
Отромное спасибо! | |
| |
| |
| |
|
|
| | Вот здесь rep = Me!lst_Reports
вроде надо вот так сделать: rep = Me!lst_Reports.Column(0,0) | |
| |
| |
