關(guān)于引用控件的交叉表查詢(xún)與裝入子窗體

accben

附件中：1）有“查詢(xún)1”，“查詢(xún)1”引用了窗體的控件（開(kāi)始日期、截止日期）
2）由 “查詢(xún)1” 的記錄生成 “查詢(xún)1_交叉表”，這時(shí)，打開(kāi) “查詢(xún)1_交叉表” ，會(huì)顯示不能識(shí)別有效字段。
3）聽(tīng)說(shuō)用子窗體裝載這種交叉表可以解決這個(gè)問(wèn)題，參考了一些例子，還是不行（參見(jiàn)附件）。

請(qǐng)各位看看哪里出了問(wèn)題？

accben

最終想要的效果

accben

做這個(gè)案例發(fā)現(xiàn)：交叉表查詢(xún)不能引用窗體控件，用switch函數(shù)也是不能引用窗體控件的。

Henry D. Sy

1. Private Sub cmd確定_Click()
   
2.     Dim qdf As DAO.QueryDef 'qdf被定義為一個(gè)查詢(xún)定義對(duì)象
   
3.     Dim sSQL As String
   
4.     If IsNull(Me.開(kāi)始日期) Or IsNull(Me.截止日期) Then
   
5.         MsgBox "請(qǐng)輸入查詢(xún)?nèi)掌?quot;
   
6.         Exit Sub
   
7.     End If
   
8.     sSQL = "SELECT 表1.序號(hào), 表1.供應(yīng)商, 表1.日期, 表1.數(shù)量,IIf([日期] Between #" & Me.開(kāi)始日期 _
   
9.         & "# And #" & Me.截止日期 & "# ,Format([日期],'yyyy/mm'),IIf([日期]<#" & Me.開(kāi)始日期 & "#,'之前合計(jì)','之后合計(jì)')) AS 月份 FROM 表1;"
   
10.     Set qdf = CurrentDb.QueryDefs("查詢(xún)1")
    
11.     qdf.SQL = sSQL
    
12.     qdf.Close
    
13.     Me.窗體1子窗體.SourceObject = "查詢(xún).查詢(xún)1_交叉表"
    
14. End Sub

復(fù)制代碼

accben

沒(méi)有彈出【不能識(shí)別有效字段】錯(cuò)誤提示了。查詢(xún)正確，給力！謝謝Henry D. Sy！

tmtony

Henry D. Sy 親自出馬

accben

也謝謝王站的關(guān)注！