ACCESS レコードセット
非連結フォーム(frm_B)のOPEN時にADOレコードセットでデータを表示させ、更新ボタンを押すと、追加クエリでそのフォーム上で表示されたデータをテーブル(tbl_B)に新規登録させ、さらにその非連結フォームには別のフォームの内容を表示させるVBAを書きましたが、最後に別のフォームの内容で非連結フォームにデータをセットしたとき？にテーブルのデータも更新されてしまいます。最初にテーブルに追加したデータとは切り離したいのですがどうすればうまくいくのでしょうか。
・フォームfrm_BをOPEN
'DAOレコードセット
Dim dbDAO As DAO.Database
Dim rsDAO As DAO.Recordset
Dim stSQL As String
stSQL = "SELECT No.,規格No.,改訂No. FROM tbl_B " _
& "WHERE 規格No. ='" & Forms![frm_A].[規格No.] & "'" _
& "AND 改訂No. =" & Forms![frm_A].[改訂No.] & ""
'DAOレコードセット
Set dbDAO = CurrentDb
Set rsDAO = dbDAO.OpenRecordset(stSQL)
Set Me.Recordset = rsDAO
Me![No.].ControlSource = "No."
Me![規格No.].ControlSource = "規格No."
Me![改訂No.].ControlSource = "改訂No."
'DAOレコードセットクローズ
Set rsDAO = Nothing
Set dbDAO = Nothing
・更新ボタンクリック
Private Sub cb_kaitei_Click()
Dim stDocName As String
'追加クエリ
stDocName = "q_B"
DoCmd.OpenQuery stDocName, acNormal, acEdit
Forms![frm_B].SetFocus
Me![No.] = Forms![frm_A].[No.]
Me![規格No.] = Forms![frm_A].[規格No.]
Me![改訂No.] = Forms![frm_A].[改訂No.]
・
このときにレコードセットで追加したレコードのほうも更新されてしまいます。これを別のレコードと判断させたいのです。よろしくお願いします。
