ms-access - エラー3219-無効な操作

Question

Access Projectでクエリを作成しようとしましたが、このランタイムエラーはSQLクエリがある行で発生します。これは私のコードです：

Private Sub Befehl80_Click()

  Dim rst As DAO.Recordset
  Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT tb_KonzeptDaten.DFCC,  tb_KonzeptDaten.OBD_Code AS Konzept_Obd,tb_KonzeptDaten.DFC INTO Test_Table FROM tb_KonzeptDaten", dbOpenDynaset)

  Me.txtDs = rst.RecordCount

End Sub

この問題を解決する方法と、このエラーが発生する理由を教えてください。

Answer 1

SQLはアクションクエリであり、テーブルを作成します。アクションクエリからレコードセットを開くことはできません。アクションクエリを実行する場合は、次のように言うことができます。

Set db=CurrentDB
ssql="SELECT DISTINCT tb_KonzeptDaten.DFCC,  " _
    & "tb_KonzeptDaten.OBD_Code AS Konzept_Obd,tb_KonzeptDaten.DFC " _
    & "INTO Test_Table FROM tb_KonzeptDaten"
db.Execute ssql, dbFailOnerror

RecordsUpdated=db.RecordsAffected