Dim db As DAO.Database
Set db = CurrentDb()
Dim qd As DAO.QueryDef
Dim sqlQry As String
sqlQry = "SELECT x,y,z " & _
"INTO MyTable2 " & _
"FROM mytable1 " & _
"WHERE ((Condition1) And (Condition2)) "
Set qd = db.CreateQueryDef("MyQueryName", sqlQry)
DoCmd.OpenQuery (qd.Name)
Set qd = Nothing
Set db = Nothing
End Sub
こんにちは、Access VBA でクエリを実行しようとしているだけで、実行時エラー '3012' オブジェクト MyQueryName が行に既に存在します:
Set qd = db.CreateQueryDef("MyQueryName", sqlQry)
今私は持っていませんでした:
Set qd = Nothing
これが問題だと思いました。しかし、追加した後もエラーが発生し、qdオブジェクトでエラーが発生したため、おそらくまだクリアされていないことを思い出したので、これらの2行をコメントアウトして実行し、バイパスしてオブジェクトに直行しましたリセット:
Set qd = db.CreateQueryDef("MyQueryName", sqlQry)
DoCmd.OpenQuery (qd.Name)
しかし、その後もこのエラーが発生します。困惑などなど!
皆さんからのアイデアはありますか?
ありがとう
アンドリュー