Accessで作る現金出納帳10~フォーム間のデータのやり取り①

Pocket

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

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

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

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

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

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

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

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

実行結果です。
2508102