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

回答No.1

bin-chan · ベストアンサー

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

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

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