ms-access - 错误 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 是一个 Action 查询，它​​创建一个表。您不能从操作查询中打开记录集。如果要运行操作查询，可以说:

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