ник: ГлазастыйМышь
ок
создай модуль Global в нем объяви переменную
Dim lReportSelect AS Long
|
в форме перед вызовом отчета
(для другой формы другое значение)
в отчете на событие открытие
Select Case
Case 1
Me.RecordSource ="......текст запроса1"
Case 2
Me.RecordSource ="......текст запроса2"
и т.д.
End Select
|