Блог

Главная - Вопросы по программированию - Не удается передать параметры нескольким запросам?

Не удается передать параметры нескольким запросам?

#sql #forms #parameters

Вопрос:

Возникла проблема, из-за которой я не могу использовать одни и те же параметры в отдельном запросе. Моя форма выбирает, какой отчет открывать, и каждый отчет заполняется своим собственным запросом. Когда он выбирает вариант 1, все работает просто отлично. Но когда он выбирает вариант 2, я не только получаю всплывающие окна ввода параметров для каждого параметра, но и запрашиваю значения параметров «4», «3», «2», и «1», в таком порядке.

Поэтому мой вопрос таков: почему он запрашивает 1, 2, 3 и 4, а не [От_фОрмы_СтартДата], [От_фОрмы_ЕндДата], [от_блдга] и [от_формы_ассоциации]? Почему он не может передать те же параметры в Случай 2, когда Случай 1 работает просто отлично?

введите описание изображения здесь

 Private Sub Search_Button_Click()

'SET PARAMETERS
DoCmd.SetParameter "[FromForm_StartDate]", "#" amp; Format([Forms]![MAIN MENU]!FromForm_StartDate, "m/d/yyyy 05:00") amp; "#"
DoCmd.SetParameter "[FromForm_EndDate]", "#" amp; Format([Forms]![MAIN MENU]!FromForm_EndDate, "m/d/yyyy 04:59") amp; "#"
DoCmd.SetParameter "[FromForm_Bldg]", [Forms]![MAIN MENU]!FromForm_Bldg.Value
DoCmd.SetParameter "[FromForm_Associate]", [Forms]![MAIN MENU]!FromForm_Associate.Value
                
Dim SelectedReport As String
Select Case MainSelection_Select_Report_Type
    
    Case 1: SelectedReport = "ALL MOVES (by Hour)"
            If CurrentProject.AllReports(SelectedReport).IsLoaded Then
            DoCmd.Close acReport, SelectedReport
            End If
            DoCmd.OpenReport SelectedReport, acViewReport
                
    Case 2: SelectedReport = "ALL MOVES (Total)"
            If CurrentProject.AllReports(SelectedReport).IsLoaded Then
            DoCmd.Close acReport, SelectedReport
            End If
            DoCmd.OpenReport SelectedReport, acViewReport

End Select

End Sub
Метки: