- 締切済み
オブジェクトが開いている場合は、操作は許可されませ
エクセルvbaです。 ADOを使ってループしているのですが 前回のループで rs.Close: Set rs = Nothing をしなかったために rs.Open strSQL, cn, adOpenStatic, adLockOptimistic で 「オブジェクトが開いている場合は、操作は許可されません」 となるので、 イミディエイトウインドウで rs.Close: Set rs = Nothing としてるのに、 実行時エラー 3219 このコンテキストで操作は許可されていません。 となります。 rs.Closeだけでも同じエラーです。 この状態で、vbaを中断せずに rs.Open strSQL, cn, adOpenStatic, adLockOptimistic を通過させるにはどうすればいいですか？
- ozfmrzmgu
- お礼率79% (39/49)
- Visual Basic
- 回答数1
- ありがとう数0
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- NotFound404
- ベストアンサー率70% (288/408)
回答No.1
状況が少しわかりにくいですが rs.Open strSQL, cn, adOpenStatic, adLockOptimistic でコードが止まっているなら rs.Open strSQL, cn, adOpenStatic, adLockOptimistic ←ここで止まっている rs.close rs.Open strSQL, cn, adOpenStatic, adLockOptimistic と２行付け足してから 黄色くなって止まっている rs.Open strSQL, cn, adOpenStatic, adLockOptimistic を 'rs.Open strSQL, cn, adOpenStatic, adLockOptimistic とコメント行にすれば進行するのでは？
