MA ACCESSデータベースに詳しい方お願いします。

Private Sub 複数_Click() と Private Sub 次へ_Click() の機能をまとめてあります。 商品数の数によってコマンドボタンを押す都度 管理番号1と2は増加、 他は前レコードの値が入ります。 手抜きのため、サンプルコードは仕入場所_ID だけですが よ～く動作検証＆読んで見てください。 Private Sub コマンド_Click() Dim Data1 As Date Dim oldBKNo1 As Long Dim newBKNo1 As Long Dim oldBKNo2 As Long Dim newBKNo2 As Long Dim shohinSuu As Long Dim basyoID As String If Me.Dirty Then If MsgBox("編集中です。保存しますか", vbYesNo) = vbNo Then Exit