你 不 能 簡 單 地 在 一 個 記 錄 集 上 建 立 另 一 個 查 詢 。 記 錄 集 都 是 臨 時 建 立 的 ， 無 法 再 次 使 用 。 我 想 你 不 能 使 用 嵌 套 查 詢 可 能 是 因 為 要 多 次 逐 級 地 建 立 查 詢 ， 你 有 兩 種 選 擇 : 
    一 是 利 用 Select ... Into將 查 詢 結(jié) 果 存 入 一 個 臨 時 庫 文 件 ; 
    二 是 建 立 QueryDef。 你 可 以 先 利 用 SELECT語 句 建 立 一 個 QueryDef對 象 ， 然 后 在 此 基 礎(chǔ) 上 構(gòu) 造 SELECT查 詢 。 
    Sub CreateQueryDefX() 
     
     Dim dbsNorthwind As Database 
     Dim qdfTemp As QueryDef 
     Dim qdfNew As QueryDef 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     
     With dbsNorthwind 
     ' Create temporary QueryDef. 
     Set qdfTemp = .CreateQueryDef("", _ 
     "SELECT * FROM Employees") 
     ' Open Recordset and print report. 
     GetrstTemp qdfTemp 
     ' Create permanent QueryDef. 
     Set qdfNew = .CreateQueryDef("NewQueryDef", _ 
     "SELECT * FROM Categories") 
     
    ' Open Recordset and print report. 
     GetrstTemp qdfNew 
     ' Delete new QueryDef because this is a demonstration. 
     .QueryDefs.Delete qdfNew.Name 
     .Close 
     End With 
     
    End Sub 
     
    Function GetrstTemp(qdfTemp As QueryDef) 
     
     Dim rstTemp As Recordset 
     
     With qdfTemp 
     Debug.Print .Name 
     Debug.Print " " & .SQL 
     ' Open Recordset from QueryDef. 
     Set rstTemp = .OpenRecordset(dbOpenSnapshot) 
     
     With rstTemp 
     ' Populate Recordset and print number of records. 
     
    .MoveLast 
     Debug.Print " Number of records = " & _ 
     .RecordCount 
     Debug.Print 
     .Close 
     End With 
     
     End With 
     
    End Function 
<END>