レコードセットからレコードセットを開く方法は？

Question

別のレコードセットのVBAを使用してレコードセットを開きたいとします。

私はSQLを書いて、new_entryとvalid_unit

' valid_unit 
SELECT * 
FROM import_raw_data 
WHERE unit_name IN (SELECT unit_name FROM unit); 

' new_entry 
SELECT * 
FROM valid_unit 
WHERE id NOT IN (SELECT id FROM serviceman); 
WHERE 

名前付きクエリにそれを保存する場合、これは動作しますが、私が代わりにクエリを保存するので独占的にVBAでこれを行うしたいと思います。

Sub testing() 
    valid_unit_sql = _ 
     "SELECT * " _ 
     & "FROM import_raw_data" 
     & "WHERE unit_name IN (SELECT unit_name FROM unit); 

    new_entry_sql = _ 
     "SELECT * " 
     & "FROM (" & valid_unit_sql & ") " _ 
     & "WHERE id NOT IN (SELECT id FROM serviceman);" 

    With CurrentDb 
     Set valid_unit = .OpenRecordset(valid_unit_sql) 
     ' valid_unit works great 
     Set new_entry = .OpenRecordset(new_entry_sql) 
     ' this doesnt, it errors out 
    End With 
End Sub 

私はこれをどのようにして知っていますか？代わりにvalid_unitクエリとFROM valid_unitを保存する必要がありますか？

Answer 1

"と改行継続& _はちょっと混乱しています。私はそれがコピー貼りエラーか、これがあなたの実際のコード（コンパイルされていないかどうか）を知ることはできません。

とにかくこれを試してみてください。

Sub testing()  
    valid_unit_sql = "SELECT * " & _ 
        "FROM import_raw_data " & _ 
        "WHERE unit_name IN (SELECT unit_name FROM unit)" 

    new_entry_sql = "SELECT * " & _ 
        "FROM (" & valid_unit_sql & ") AS T " & _ 
        "WHERE T.id NOT IN (SELECT id FROM serviceman);" 

    Debug.Print new_entry_sql 

    With CurrentDb 
     Set valid_unit = .OpenRecordset(valid_unit_sql) 
     Set new_entry = .OpenRecordset(new_entry_sql) 
    End With 
End Sub 

出力SQL：

SELECT * 
FROM 
    (
     SELECT * 
     FROM import_raw_data 
     WHERE unit_name IN (SELECT unit_name FROM unit) 
    ) AS T 
WHERE T.id NOT IN (SELECT id FROM serviceman);