| |
こんにちは。行き詰まってしまいました。かなり初歩的な事ですが、
どなたかご教授頂ければ幸いです。
フォームに登録ボタンを設け以下のようなコードを書きましたが、
登録ボタンをクリックすると、エラー処理:に飛んでしまい｢登録でき
ませんでした｣のメッセージを返します。
しかし、実際テーブルを見るとちゃんとレコードが追加されております。
更にここでおかしいのは、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
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
