ACCESS　保存ボタンを使用した場合の、レコード更新方法

出来ていること

Accessにて、在庫の入出庫数を登録するフォームを作成しています。
IDを指定すると、品名・品番・現在個数が連結テキストボックスに値が表示され、
非連結のテキストボックスに、日付・入庫数・出庫数・備考を入力し、
「保存」ボタンを押すと、レコードが更新され、現在個数も最新の状態で表示されます。

困っていること

①
フォームを開く
⇒ID指定
⇒保存ボタンを押下
⇒フォームを閉じる
⇒再度フォームを開く
⇒ID指定　・・・
という流れ行う場合は、特に問題がありません。

②
フォームを開く
⇒ID指定
⇒保存ボタンを押下
⇒ID指定　
⇒保存ボタンを押す　・・・
という流れで登録を行うと、2回目に保存ボタンを押した際に直前で更新した内容が無かったことになってしまいます。

どのように改善したらよいのか、教えて頂けるとありがたいです。

VBA
1Private Sub brn_menu_Click()　'フォームを閉じて、メインメニューへ遷移
2    DoCmd.Close acForm, Me.Name, acSaveNo
3    DoCmd.OpenForm "F_Menu"
4End Sub
5
6Private Sub btn_inout_1_Click()　　'保存ボタン
7    If IsNull(Me.Day) Then
8       MsgBox "日付は必ず入力してください"
9       Exit Sub
10    End If
11    
12    If IsNull(Me.Tantou) Then
13       MsgBox "担当者は必ず入力してください"
14       Exit Sub
15    End If
16
17    Me.BeforeUpdate = ""
18    DoCmd.RunCommand acCmdSaveRecord
19    Me.BeforeUpdate = "[イベント プロシージャ]"
20    MsgBox "登録が完了しました"
21
22    Me.Refresh
23    
24    Me!InValue_label = "0"
25    Me!OutValue_label = "0"
26    Me!Remarks_label = ""
27    
28End Sub
29
30Private Sub Form_BeforeUpdate(Cancel As Integer)
31    Cancel = True    
32End Sub