| |
こんにちは。
1人で色々考えてみたのですが、どうしても分かりません。
どなたかご教授宜しくお願いします。
フォームの非連結のテキストボックスに入力した値を、保存ボタンをクリックすることでテーブルに登録しようとしています。
保存ボタンのクリック時イベントに下記のコードを書きました。
Private Sub HOZON_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "T_SYOMEI", cn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs!SYURUI1 = Me!SYURUI1
rs!SYURUI2 = Me!SYURUI2
rs!SYURUI3 = Me!SYURUI3
rs!SYURUI4 = Me!SYURUI4
rs!SYURUI5 = Me!SYURUI5
rs.Update
MsgBox " 保存しました♪ "
rs.Close
cn.Close
End Sub
これで新規レコードを作成して保存する場合は上手くいきました。
この次に、登録済みのレコードの一部を修正して再登録したいのです。
登録済みのレコードをフォーム上に表示させるまでは上手くいったのですが、その状態で保存をクリックすると、エラーが出ます。インデックス、主キーがだぶっているせいだとは思うのですが、そこからどうすればいいか分かりません。
宜しくお願いします。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
