自社情報のレコードは先頭の1件のみですので、既にレコードがある場合は修正登録し、なければ新規登録します。
修正登録のの方法は、レコードセット.Edit ～ レコードセット.Update になります。
新規登録のの方法は、レコードセット.Addnew ～ レコードセット.Update になります。
■実行画面
■登録ボタンクリックイベント
'登録ボタン
Private Sub CommandButton2_Click()
If ExDataCheck = False Then
Exit Sub
End If
'データの登録
ExDataSave
End Sub
■登録コード
'データの登録
Private Sub ExDataSave()
Dim rs As Recordset
'自社情報テーブルを開き、テキストボックスに表示する
Set rs = tDbHanbai.OpenRecordset("T_自社情報", dbOpenDynaset)
If rs.EOF Then
'新規追加
rs.AddNew
Else
'修正
rs.Edit
End If
rs("自社名") = TextBox1.Value
rs("郵便番号") = TextBox2.Value
rs("住所1") = TextBox3.Value
rs("住所2") = TextBox4.Value
rs("TEL") = TextBox5.Value
rs("FAX") = TextBox6.Value
rs("振込先") = TextBox7.Value
rs.Update
Set rs = Nothing
End Sub