ExcelとDAOで販売管理ソフトを作る 社員マスターをデータベースに登録 Step12

データチェックがOKならば、データベースの「M_社員マスター」に入力データを保存します。
保存はまず新規追加から行ってみます。
新規追加は
1）レコードセット.AddNew
2）フィールドにデータを代入
3）レコードセット.Updateの順になります。

■社員マスター入力ユーザーフォーム
仮データを入力しました。


■登録されたデータ
正常に登録されているのが分かります。


■実行コード
'登録ボタン
Private Sub CommandButton2_Click()
If ExDataCheck = False Then
Exit Sub
End If

'データの登録
ExDataSave

Unload UserForm2

End Sub

'データの登録
Private Sub ExDataSave()
Dim rs As Recordset

'自社情報テーブルを開き、テキストボックスに表示する
Set rs = tDbHanbai.OpenRecordset("M_社員マスター", dbOpenDynaset)
'新規追加
rs.AddNew

rs("氏名") = TextBox2.Value
rs("フリガナ") = TextBox3.Value
rs("所属") = TextBox4.Value
rs("メール") = TextBox5.Value
rs.Update
Set rs = Nothing
End Sub