Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9876 / 9994

←次へ　｜　前へ→


	【3253】フォームを閉じるとデータ競合のエラー

ことら - 04/8/17(火) 17:42 -


	引用なし

	パスワード

こんにちは。以下の件、どなたかご教授頂ければ幸いです。
レコードを修正した後にフォームに設けた｢閉じるボタン｣をクリックすると
｢データの競合｣というダイアログが出ます。
内容は、｢このレコードは他のユーザーによって変更されています。
レコードの保存を選択すると、他のユーザーによる変更を無視し、自分が行
った変更を反映します。｣というメッセージです。
ちなみにここで｢レコードの保存｣を選択すれば特に問題なく終了されますが
何か気になります。
アクセスのバージョンは、2002、OSはWindowsXPです。
記述したコードは、以下の通りです。cmd修正クリックとcmd閉じるクリック
の2つを以下に記載させて頂きます。宜しくお願い致します。

Private Sub cmd修正_Click()

Dim cn As New ADODB.Connection
Dim Rst As New ADODB.Recordset

Set cn = CurrentProject.Connection

Rst.Open "T_PC", cn, adOpenKeyset, adLockOptimistic

Rst.Find "連番 = '" & Me.連番 & "'"
　
　　　 Rst!連番 = Me.連番
　　　 Rst!商品 = Me.商品
　　　　　
　 Rst.Update
　　　　　　　　　
　 Rst.Close: Set Rst = Nothing
　 cn.Close: Set cn = Nothing
　　　　　
End Sub

Private Sub 閉じる_Click()

　　DoCmd.Close , , acSaveYes
　　
End Sub

1,058 hits

▼

【3253】フォームを閉じるとデータ競合のエラー ことら 04/8/17(火) 17:42

≪