MS Accessフォームのレコードセットは、フォームを閉じないと更新されません。

Question

このコードを使用して、連続フォームからテーブルにデータを挿入しています。クリックイベントに ：

Dim rs As DAO.Recordset 
Set rs = Me.RecordsetClone 

If Not (rs.EOF And rs.BOF) Then 
    Do Until rs.EOF = True 
     If rs!Cont_Selct = True Then 
      DoCmd.SetWarnings False 
      DoCmd.RunSQL "insert into tbl_favconn (fav_name,cont_id) values('" & Me.txtGroupSrch & "','" & rs!Cont_id & "')" 
      DoCmd.SetWarnings True 
      rs.Edit 
      rs!Cont_Selct = False 
      rs.Update 
     End If 
     rs.MoveNext 
    Loop 
    MsgBox "done" 
    rs.Close 
    Set rs = Nothing 
End If 

私が初めてフォームを開くと、それが正常に動作しますが、私は 他の連絡先を選択しようとすると、それは受け付けていませんので、私は、フォームを閉じて、選択し にそれを再度開く必要がありますそれらを追加する他の連絡先。

どのような提案も高く評価されています。

Answer 1

私は途中で答えを得ました。

そのは次のように前にレコードを持参します

ループを開始する前に。

rs.movefirst 

If Not (rs.EOF And rs.BOF) Then 
'' rest of the code