Доступ к параметру данных запроса кросс-таблицы без фильтрационного запроса

Я, наконец, получил свой кросс-столбец для динамического обновления, но по какой-то причине параметры даты не передаются ни в отчет, ни в запрос.Доступ к параметру данных запроса кросс-таблицы без фильтрационного запроса

У меня есть набор записей, обновляющий отчет кросс-таблицы, а при наведении/шаге по параметру даты в vba отображается правильная дата, но отчет все еще показывает все данные.

В запросе также отображаются данные для всех дат. Это что-то я сделал неправильно в запросе? Я пробовал каждый вариант, который мог найти в том, что кажется каждым форумом, и просто не может получить решение.

Это SQL для запроса

PARAMETERS [Forms]![frm_menu]![txtFromDate] DateTime, 
      [Forms]![frm_menu]![txtToDate] DateTime, 
      [Forms]![frm_menu]![cmbMplTag1] Text (255), 
      [Forms]![frm_menu]![cmbMplTag2] Text (255), 
      [Forms]![frm_menu]![cmbMplTag3] Text (255), 
      [Forms]![frm_menu]![cmbMplTag4] Text (255), 
      [Forms]![frm_menu]![cmbMplTag5] Text (255); 
TRANSFORM First(tbl_logdata.Input_Value) AS FirstOfInput_Value 
SELECT tbl_logdata.Log_Date, tbl_logdata.Log_Time 
FROM tbl_logdata 
WHERE (((tbl_logdata.Log_Date) Between [Forms]![frm_menu]![txtFromDate] 
            And [Forms]![frm_menu]![txtToDate]) 
    AND ((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag1])) 
    OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag2])) 
    OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag3])) 
    OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag4])) 
    OR (((tbl_logdata.tag)=[Forms]![frm_menu]![cmbMplTag5])) 
GROUP BY tbl_logdata.Log_Date, tbl_logdata.Log_Time 
PIVOT tbl_logdata.tag;

И это VBA для перекрестного отчета. Параметры для cmbMplTag # работают отлично:

Private Sub Report_Open(Cancel As Integer) 
Dim rst As dao.Recordset 
Dim db As dao.Database 
Dim qdf As dao.QueryDef 
Dim i As Integer 
Dim j As Integer 
Set db = CurrentDb 
Set qdf = db.QueryDefs("qry_MplTagsSummary") 

'on hover shows date from textbox' 
qdf.Parameters("Forms!frm_menu!txtFromDate") = [Forms]![frm_menu]![txtFromDate] 
'on hover shows date from textbox' 
qdf.Parameters("Forms!frm_menu!txtToDate") = [Forms]![frm_menu]![txtToDate] 
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag1]") = [Forms]![frm_menu]![cmbMplTag1] 
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag2]") = [Forms]![frm_menu]![cmbMplTag2] 
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag3]") = [Forms]![frm_menu]![cmbMplTag3] 
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag4]") = [Forms]![frm_menu]![cmbMplTag4] 
qdf.Parameters("[Forms]![frm_menu]![cmbMplTag5]") = [Forms]![frm_menu]![cmbMplTag5] 

Set rst = qdf.OpenRecordset() 
rst.MoveFirst 
j = -1 
i = 0 
For i = 0 To rst.Fields.Count - 1 

    j = j + 1 
    Select Case j 

     Case 0 
      Me.Log_Date.ControlSource = rst.Fields(i).Name 
     Case 1 
      Me.Log_Time.ControlSource = rst.Fields(i).Name 
     Case 2 
      Me.field1.ControlSource = rst.Fields(i).Name 
     Case 3 
      Me.field2.ControlSource = rst.Fields(i).Name 
     Case 4 
      Me.Field3.ControlSource = rst.Fields(i).Name 
     Case 5 
      Me.Field4.ControlSource = rst.Fields(i).Name 
     Case 6 
      Me.Field5.ControlSource = rst.Fields(i).Name 

    End Select 
skip_it: 
Next i 

rst.Close 
Set rst = Nothing 
End Sub

Пожалуйста, дайте мне знать, если я не предоставил достаточно деталей/информация

источник

2016-05-13 Mel Forsyth

Проверьте SQL WHERE дизъюнкции условную логику. Как есть логика фильтрует записи в или (не так) лагеря:

Падение в диапазоне дат и тег запросов Query равен единственной формой в tag1
Тег запроса равняется любому из tag2 формы в - Вкладка5.

Возможно, вы хотели отделить диапазон дат и теги. Таким образом, скобки скобок вокруг каждого условия с оператором AND, даже использовать предложение IN. См. Ниже с отступом для иллюстрации:

... 
WHERE (
     (
      (tbl_logdata.Log_Date) Between [Forms]![frm_menu]![txtFromDate] 
            And [Forms]![frm_menu]![txtToDate] 
     ) 
    AND (
      (tbl_logdata.tag) IN (
           [Forms]![frm_menu]![cmbMplTag1], 
           [Forms]![frm_menu]![cmbMplTag2], 
           [Forms]![frm_menu]![cmbMplTag3], 
           [Forms]![frm_menu]![cmbMplTag4], 
           [Forms]![frm_menu]![cmbMplTag5] 
           ) 
     ) 
    ) 
GROUP BY tbl_logdata.Log_Date, tbl_logdata.Log_Time

источник

2016-05-13 17:27:49 Parfait

Удивительно, спасибо вам за помощь. Отлично работает –

Любопытно, что в итоге проблема? Я вижу, что вы приняли вышеупомянутый ответ. Был ли формат даты? – Parfait

Извините, я принял неправильный. В скобках была зафиксирована проблема –

Вы, возможно, придется преобразовать к истинному значению даты. И использовать Value свойства:

qdf.Parameters("Forms!frm_menu!txtFromDate").Value = DateValue([Forms]![frm_menu]![txtFromDate]) 
qdf.Parameters("Forms!frm_menu!txtToDate").Value = DateValue([Forms]![frm_menu]![txtToDate])

источник

2016-05-13 13:34:14 Gustav

Доступ к параметру данных запроса кросс-таблицы без фильтрационного запроса

ответ

Смежные вопросы