Access VBA すべて更新

Question

###実行したいこと
AccessVBAにてデータをテーブルに登録したのちに、ホームタブ内のすべて更新ボタンを押したのと同じ状態をプログラムで発生させたいです。
どのような記述が必要でしょうか？

  '変数の最後まで繰り返す
  For i = 0 To (j - 1)
    '選択された商品コードと変数（一覧）内の商品コードが一致する場合
    If Nyuko(i, 0) = Me.品コード.Column(1) Then
      Set rs = db.OpenRecordset("T01-1仕入登録")
      rs.Edit
      '商品コードをレコードに出力する
      rs!商品コード = Nyuko(i, 0)
      '商品名をレコードに出力する
      rs!商品名 = Nyuko(i, 1)
      '仕入た商品の単位をレコードに出力する
      rs!仕入単位 = Nyuko(i, 4)
      'レコードの変更内容を反映させる
      rs.Update
      Exit For
    End If
  Next
    '変更内容を保存（テーブルに反映）してテーブルを閉じる
  DoCmd.Close acQuery, "T01-1_仕入登録", acSaveYes

Answer 1

T01-1_仕入登録というクエリーが何をしているのか分かりませんが、

DoCmd.Close acQuery, "T01-1_仕入登録", acSaveYes

は、T01-1_仕入登録というクエリーを保存しているだけです。
実行したいのなら、OpenQueryなどを使用して下さい。
保存済みクエリーを使うか、VBAでSQL文を直接発行するか？