今まで作ってきた出納帳に実際にデータを打ち込んでみます。

今回は繰越残高の設定をしてこなかったので、最初の行は入力しようとする日付よりも
前の日付にします。
例えば、8/1から記帳するときは、7/31というようにして下さい。

続きを読む →

次に店名フォームの値を現金出納帳フォームに移す設定をします。

現金出納帳から店名のコマンドボタンをクリックし、店名フォームを
開きます。

開いたら、右クリックでデザインビューをクリックします。
VBEが表示されるので、次のコードを入力します。

Private Sub コマンド5_Click()
①　DoCmd.GoToRecord , , acNext
②　DoCmd.GoToRecord , , acPrevious
③　Forms!現金出納帳!店名 = Me!店名
④　DoCmd.Close
End Sub

①と②は登録してその摘要を登録と同時に使おうとした場合、この
2行のコードがないとうまくデータが現金出納帳に移せません。

Accessの場合、フィールドに値を入れただけではデータは登録されていません。
フィールドに値を入れて次のデータに移行した時点で登録されるためです。

③のMeはこれは現在開いているフィールド（この場合Forms!店名）の略称です。
開いているフォームを使う場合のみMe！が使えます。
もちろん丁寧に、
Forms!現金出納帳!店名 = Forms!店名!店名
として頂いて構いません。

④は店名を現金出納帳に代入したと同時に、店名フォームを自動で閉じる
ためのコードです。④ではどのフォームを閉じるのか指定していないので
現在一番手前に開いているフォーム（店名フォーム）を閉じます。

実行結果です。