错误 3219 - 无效操作

Question

我尝试在 Access 项目中编写查询，但在 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