訪問 - 報告顯示子表單結果（加入表）

Question

我有點失落與這一個。我有一個子窗體，顯示基於我的組合框選擇的記錄。這是這樣完成的（代碼是從組合框After_Update叫）：

：

Sub ShowResults1() 

With Forms![MYForm].RecordsetClone 
     .FindFirst "[ID] = " & Forms![MyForm]![CmbSearch] 

     If Not .NoMatch Then 
     If Forms![MyForm].Dirty Then Forms![MyForm].Dirty = False 
     Forms![MyForm].MySubfom.SourceObject = "MySubform" 
     Forms![MyForm].Bookmark = .Bookmark 

     End If 

End With 

End Sub 

主窗體綁定到一個連接表，這是它的記錄源（它是通過在它的ID連接到2臺）

SELECT JoinTable.*, Table1.IDx AS IDx_Table1, Table1.Field1, Table1.Field2, Table1.Field3, Table2.IDy AS IDy_Table2, Table2.Field1, Table2.Field2, Table2.Field3 
FROM Table2 INNER JOIN (Table1 INNER JOIN JoinTable ON Table1.IDx = JoinTable.IDx) ON Table2.IDy = JoinTable.IDy; 

當執行上層代碼時，我得到了符合條件的子窗體中的結果，所以這工作正常。

現在，我想要的是有一個報告，這將顯示確切地顯示子窗體allready顯示。這太複雜了，還是有任何簡單的解決方案？

編輯：

我創建了一個新的查詢（名爲 「SearchReport」）：

SELECT Table2.IDy, Table2.Field1, Table2.Field3 
    FROM Table2 INNER JOIN (Table1 INNER JOIN Join_Table ON Table1.IDx = JoinTable.IDx) ON Table2.IDy = JoinTable.IDy 
    WHERE JoinTable.IDy=3; 

該查詢成功地表明，我想記錄，但只有ID 3.現在我刪除了「WHERE JoinTable.IDy = 3「，以便我可以顯示基於我的組合框的記錄。這就是我試圖打開的報告：

DoCmd.OpenReport "MyReport", acViewReport, "SearchReport", WhereCondition:="JoinTable.IDy =" & Forms![MyForm]![CmbSearch] 

但是當報告打開時，Access不斷詢問輸入IDy的參數值。即使我輸入3，也會顯示該查詢中的所有記錄。哪裏不對 ？？

Answer 1

解決。我不得不選擇查詢記錄，我張貼在Edit（對於命令button_click事件全碼 - 對錶格按鈕）：

Dim sql As String 

     sql = "SELECT Table2.IDy, Table2.Field1, Table2.Field3" & _ 
" FROM Table2 INNER JOIN (Table1 INNER JOIN Join_Table ON Table1.IDx =" & _     

"JoinTable.IDx) ON Table2.IDy = JoinTable.IDy" & Forms![MyForm]![CmbSearch] DoCmd.OpenReport "APO_IIS", acViewReport 

     Reports![Myreport].RecordSource = sql 

Answer 2

兩個表格和報告有一個Record Source屬性。

在Record Source屬性中，您可以指定一個表格，一個查詢或一個普通的SQL語句，這是您的情況。

在VBA中，如果你的子窗體被打開並顯示正確的信息，你可以說MyReport.RecordSource = MySubForm.RecordSource。

---

但要實現你想要什麼是最正確的方法是這樣的：

在您的報告中的代碼，添加這個公共子：

Public Sub Open_This_Report(strSQL) 
    Me.RecordSource = strSQL 
End Sub 

在你的窗體中添加一個按鈕，與此ClickEvent：

Private Sub myButton_Click() 
    DoCmd.OpenReport "name_of_the_report", acViewNormal 
    Call Report_name_of_the_report.Open_This_Report(me!SubFormName.Form.RecordSource) 
    'or 
    Call Report_name_of_the_report.Open_This_Report("specific SQL query") 
End Sub