アクセスレポート - 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

グスタフは、これが正解です。私はそれのために別のスレッドを開いたが、私は何が間違っているのか、どこに気づいていなかった。クロスポストをして申し訳ありません。ここに私のスレッドへのリンクです： 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