2012-09-04 115 views
2

我尝试在我的Access项目中编写一个查询,但是这个运行时错误发生在SQL查询所在的行中。这是我的代码:错误3219-无效操作

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 

你能告诉我我该如何解决这个问题,为什么这个错误发生?

回答

2

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 
+0

和我应该用什么来代替? – Kabi

+1

我已经添加了关于运行动作查询的注释,但我不太确定你想要做什么。 – Fionnuala

+0

谢谢Remou,你回答了我的问题 – Kabi

相关问题