Access VBA質問箱 IV

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

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


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

9924 / 9994

←次へ　｜　前へ→


	【3205】レコードが重複して登録されてしまう。

ことら - 04/8/12(木) 15:43 -


	引用なし

	パスワード

こんにちは。行き詰まってしまいました。かなり初歩的な事ですが、
どなたかご教授頂ければ幸いです。

フォームに登録ボタンを設け以下のようなコードを書きましたが、
登録ボタンをクリックすると、エラー処理:に飛んでしまい｢登録でき
ませんでした｣のメッセージを返します。
しかし、実際テーブルを見るとちゃんとレコードが追加されております。
更にここでおかしいのは、1回しか登録ボタンをクリックしていない
にもかかわらず、まったく同じレコードが自動的に重複して追加されて
いるという点です。
どうもこの入力フォームを閉じる時にまったく同じレコードが追加され
てしまうようなのですが、原因がつかめません。
以上、この2点なのですが、宜しくお願い致します。

Private Sub 登録_Click()
On Error GoTo エラー処理

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

Set cn = CurrentProject.Connection

Rst.Open "t_main", cn, adOpenKeyset, adLockOptimistic, adCmdTableDirect

　With Rst
　
　　 .AddNew
　　
　　　 !ID = Me.ID
　　　 !エリア = Me.エリア
　　　 !サブエリア = Me.サブエリア
　　　 !全体管理番号 = Me.全体管理番号
　　　　　　　
　　 .Update
　　
　End With
　
　 Rst.Close
　 cn.Close
　　　
エラー処理:
　MsgBox ("登録できませんでした。")

　Exit Sub
　　
End Sub

243 hits

▼

【3205】レコードが重複して登録されてしまう。 ことら 04/8/12(木) 15:43

≪