みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Access2000 VBAについて質問です。

Access2000 VBAについて質問です。
下記ソースコードでUPDATE(更新)しているのですが、バチンとAccessが落ちてしまいます。
Private sub UPDATESQL()
StrSQL = "SELECT * FROM T_StandardList WHERE ID = " & Me.ID
Set ct = CurrentProject.Connection
RS.CursorLocation = adUseClient
RS.Open StrSQL, ct, adOpenDynamic, adLockOptimistic
RS![filed1] = Me![Value1]
RS![filed2] = Me![Value2]
RS![filed3] = Me![Value3]
RS![filed4] = Me![Value4]
     Call CloseButton_Click
Set RS = Nothing
Set ct = Nothing
End Sub

Private Sub CloseButton_Click()
DoCmd.SetWarnings False
'SQLの実行
DoCmd.RunSQL "DELETE FROM T_TempList"
DoCmd.Close acForm, Me.Name
DoCmd.SetWarnings True

End Sub

CloseButtonをクリックしても落ちることがあるので、CloseButton_Click関数が怪しいとは感じます。

どなたか詳しい方アドバイスよろしくお願いいたします。
m(_ _)m

投稿日時 - 2010-03-15 18:09:44

QNo.5754185

困ってます

質問者が選んだベストアンサー

CloseButton_Click()
を参照する箇所が例示のコード以外にもありますか?
別モジュールにする必要があるのかな?

UPDATESQL()でRS.Open StrSQLしてるけど、
StrSQLは"Select"ですよね?
RS![filed1] = Me![Value1] してどうしたいのでしょうか?

RS.Closeは無くても大丈夫?

投稿日時 - 2010-03-15 18:56:24

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問