есть отчет -Отчет1 - его нужно в зависимости от переключателя на форме открывать с источником строк Запрос1 или 2й вариант - Запрос2 Пишу так в форме
If vibSort = 1 Then
strMy = "Запрос1"
else
strMy = "Зарпос2"
End If
Reports![Отчет1].RecordSourse = strMy - - при этом выдает ошибку что нет такого отчета в базе или ошибка в имени отчета
Если писать в отчете в событии Open или Load - то тоже возникает ошибка - что отчет уже открыт и нельзя поменять recordSourse

спасибо - попробую так . У меня по сути только сортировки в запросе разные .

Источник для отчета нужно передавать через OpenArgs, и в процедуре открытия менять.
Если убрать сортировки в отчете, то по одному столбцу можно попытаться отсортировать в запросе. =>

а если

Функция CreateGroupLevel задает поле или выражение, по которому выполняется группировка или сортировка данных в отчете. Предположим, что требуется разработать специальную программу мастера, предоставляющего пользователю при разработке отчета возможность выбрать поля, по которым производится группировка данных в отчете. В этом случае следует вызвать в программе мастера функцию CreateGroupLevel для создания групп в соответствие с выбором пользователя. Синтаксис CreateGroupLevel(отчет, выражение, заголовок, примечание)

или вот

Свойство Сортировка (SortOrder) определяет порядок сортировки для полей и выражений в отчете. Например, при печати списка поставщиков можно расположить записи по названиям организаций. Значения Свойство Сортировка (SortOrder) может иметь следующие значения. Значение Описание Visual Basic По возрастанию (Значение по умолчанию). Сортировка значений по возрастанию («A»-«Я», 0-9). False (0) По убыванию Сортировка значений по убыванию («Я»-«А», 9-0). True (–1) Значение свойства Сортировка (SortOrder) задается в окне Сортировка и группировка, в макросе или в программе Visual Basic. В программе Visual Basic значение свойства Сортировка (SortOrder) можно задать в режиме конструктора отчета или в процедуре обработки события Открытие (Open) отчета с помощью свойства Уровень группировки (GroupLevel).

я правда не пробовал

У меня работает такой код.
'форма ждите
DoCmd.OpenForm "FrmWaitPP"
DoEvents
'формирую таблицу запроса

Call repPlPrKVARTAL(MYGOD(), MYSNIMOK())
'данные по сортировкам и группировкам из формы frmPlanPrognosFiltrRepIzdeliaV_ALL
'start = 10 * 567 '10 sm это для масштаьирования
With Forms!frmPlanPrognosFiltrRepIzdelia V_ALL
isort = !grmeskv + !grrazbivka
ksb = !sb.Value / 100
Select Case isort
Case 11: vid = "MR"
Case 12: vid = "MV"
Case 13: vid = "MI"
Case 21: vid = "KR"
Case 22: vid = "KV"
Case 23: vid = "KI"
End Select
isort = !grpSort ' метод сортировки
End With

If Me.OpenArgs = "ГОД" Then '"поле год добавлено в группу, чтобы убирать/показывать группу
' год есть у всех записей, поэтому группировка по нему фактически убирает группировку.
Me.GroupLevel(0).ControlSource = "God"
Me.GroupLevel(0).SortOrder = True
'Me.OrderBy = "ItogoSum DESC" 'сортировка по убыванию
'Me.OrderByOn = True
Me.ЗаголовокГруппы0.Visible = False
Me.ЗаголовокГруппы0.Height = 0
argsort = " - без группировки" ' 'эта строка далее используется в колонтикуле
Else
Me.GroupLevel(0).ControlSource = "NaimSector"
Me.GroupLevel(0).SortOrder = False
isort = Forms!frmPlanPrognosFiltrRepIzdelia V_ALL!grpSort
Select Case isort
Case 2:
Me.OrderBy = "NaimPrice"
Case 1:
Me.OrderBy = "Cena"
Case 3:
Me.OrderBy = "ItogoSum"
End Select
If Not Forms!frmPlanPrognosFiltrRepIzdelia V_ALL!fdesc Then
Me.OrderBy = Me.OrderBy & " DESC"
End If
Me.OrderByOn = True
Me.ЗаголовокГруппы0.Visible = True
argsort = " - с группировкой по направлениям"
End If
...... и т.д.

frmPlanPrognosFiltrRepIzdeliaV_ALL - форма управления отчетом, всегда висит.

Сортировка в GroupLevel может быть только по одному полю.
Поэтому следом за GroupLevel(0) должна быть GroupLevel(1) без заголовка и примечания группы,
где и указать сортировку по второму полю:
...
Me.GroupLevel(0).ControlSource = "[Shifr]"
Me.GroupLevel(0).SortOrder = False
Me.GroupLevel(1).ControlSource = "[Name_Shifr]"
Me.GroupLevel(1).SortOrder = False
...