Отчет о доступе - Recordsetclone as. Recordsource

Question

У меня есть форма, на которой есть кнопка для отчета. Я хочу установить Report .Recordsource на все, что на экране, так что в основном мне нужно .RecordsetClone формы отправить в Report. Вот что я пробовал, но он не работает:

Me.Recordsource= Forms!Myform.RecordsetClone 

У меня есть неверный аргумент. Есть идеи, как это решить?

EDIT:

Я попробовал это тоже - эта кнопка расположена на форме, которая имеет записи и открывает отчет:

Private Sub cmdOpenReport_Click() 

DoCmd.OpenReport "MyReport", acViewReport 
    Reports![MyReport].RecordSource = Me.RecordSource 
Reports![MyReport].Filter = Me.Filter 
Reports![MyReport].FilterOn = True 

End Sub 

Answer 1

Густава, это правильный ответ. Я открыл для этого еще один поток, но я не знал, что не так и где. Извините за crossposting. вот ссылка на мою нить: Access Report - show current recordsource of another form

Dim strWhere As String 

     Me.Dirty = False 

     With Me.Recordset.Clone 
      Do Until .EOF 
       strWhere = strWhere & "," & !ID 
       .MoveNext 
      Loop 
     End With 
     strWhere = Mid(strWhere, 2) 
     DoCmd.OpenReport "MyReport", acViewReport, WhereCondition:="ID In (" & strWhere & ") 

Модераторы могут удалить один из потоков, я не могу этого сделать.

Answer 2

Вы не можете сделать это, но вы можете уйти с:

Me.RecordSource = Forms!Myform.RecordSource 

, хотя это не будет включать фильтр, применяемый к форме. Тем не менее, фильтр может быть скопирован таким же образом, а затем:

Me.Filter = Forms!Myform.Filter 
Me.FilterOn = True 

при сортировке должно быть указано в докладе обычным способом.

Доказательство концепции

Private Sub Report_Open(Cancel As Integer) 

    If MsgBox("Mod 2?", vbQuestion + vbYesNo, "Select") = vbYes Then 
     Me.RecordSource = "Select * From TestTable Where Id Mod 2 = 0" 
    End If 

End Sub