VBAにアクセス - クエリ付きクエリからExcelにエクスポート

Question

2つのテーブルから結合レコードを表示するクエリがあります。今私はそのクエリからの希望のIDを持つ特定のレコードを選択し、それらをExcelにエクスポートしたいと思います。これどうやってするの ？

これは動作しません：上記の方法仕事の

Dim Desired As Recordset 
Dim SQL As String 
     SQL = "SELECT * FROM Created_Query" & _ 
     " WHERE ID=" & Me![Combobox] 
Set Desired= CurrentDb.OpenRecordset(SQL, dbOpenSnapshot) 

なし：

Dim SQL As String 

SQL = "SELECT * FROM Created_Query" & _ 
     " WHERE ID=" & Me![Combobox] 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, SQL, FileName, True 

私はまた、このようなDAO.Recordsetで試してみました。どこが間違っていますか？解決

Answer 1

は、CreateQueryDefは、私はあなたがSQL文ではなく、クエリオブジェクトをエクスポートしようとする最初のオプションでは:)

Dim db As DAO.Database 
Dim rs As Recordset 
Set db = CurrentDb 
Dim mySql As String 
mySql = "SELECT * FROM Created_Query" & _ 
     " WHERE ID=" & Me![Combobox] 


db.CreateQueryDef "temp", mySql 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "temp", FileName, True 
DoCmd.DeleteObject acQuery, "temp"