１つのフォームから複数のテーブルにレコード追加をやってみました。
１つのフォームから複数のテーブルにレコード追加をやってみました。
そこで疑問があるのですが、Connectionは１つでRecordsetは追加するテーブルの数だけOpenが必要なのですか？
一応下記のコードで2つのテーブルにレコードを追加出来たのですが、素人の推測でやってみたので間違っている所がないか見て頂きたいです。
返答よろしくお願いします。
Dim cn As ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Set cn = CurrentProject.Connection
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
Beep
If MsgBox(Format(txt車両コード, "000000") & " " & txt登録番号 & Chr(13) & "を登録しますか？", 33, "確認！ 登録") = vbOK Then
rs1.Open "T車検証", cn, adOpenKeyset, adLockPessimistic
rs2.Open "T所有者", cn, adOpenKeyset, adLockPessimistic
rs1.AddNew
rs1!車両コード = Me.txt車両コード
rs1!登録番号 = Me.txt登録番号
rs1!交付年月日 = Me.txt交付年月日
rs1!初度年月 = Me.txt初度年月
rs1.Update
rs2.AddNew
rs2!車両コード = Me.txt車両コード
rs2!所有者 = Me.txt所有者
rs2.Update
rs1.Close: Set rs1 = Nothing
rs2.Close: Set rs2 = Nothing
cn.Close: Set cn = Nothing
MsgBox Format(txt車両コード, "000000") & " " & txt登録番号 & Chr(13) & "を登録しました。", 64, "確認！ 登録"
End If
End Sub
お礼
すみません。記述ミスがありましてレコードセットが取得されていなかったみたいです。 ご回答ありがとうございます。