次に店名フォームの値を現金出納帳フォームに移す設定をします。
現金出納帳から店名のコマンドボタンをクリックし、店名フォームを
開きます。
開いたら、右クリックでデザインビューをクリックします。
VBEが表示されるので、次のコードを入力します。
Private Sub コマンド5_Click()
① DoCmd.GoToRecord , , acNext
② DoCmd.GoToRecord , , acPrevious
③ Forms!現金出納帳!店名 = Me!店名
④ DoCmd.Close
End Sub
①と②は登録してその摘要を登録と同時に使おうとした場合、この
2行のコードがないとうまくデータが現金出納帳に移せません。
Accessの場合、フィールドに値を入れただけではデータは登録されていません。
フィールドに値を入れて次のデータに移行した時点で登録されるためです。
③のMeはこれは現在開いているフィールド（この場合Forms!店名）の略称です。
開いているフォームを使う場合のみMe！が使えます。
もちろん丁寧に、
Forms!現金出納帳!店名 = Forms!店名!店名
として頂いて構いません。
④は店名を現金出納帳に代入したと同時に、店名フォームを自動で閉じる
ためのコードです。④ではどのフォームを閉じるのか指定していないので
現在一番手前に開いているフォーム（店名フォーム）を閉じます。
実行結果です。
