次に摘要フォームの値を現金出納帳の摘要に移す設定をします。
摘要フォームをデザインビューで開きます。
上の図のようにＶＢＥを起動します。
次のコードを入力します。
Private Sub コマンド5_Click()
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
Forms!現金出納帳!摘要 = Me!摘要
DoCmd.Close
End Sub
実行結果です。
現金出納帳をExcelで付けた場合、どうしても店名や摘要を何度も打ち込む、もしくはコピペする必要があり
ます（ExcelVBAを使えばできますが、一朝一夕ではできません。）が、Accessの場合はその点が簡単に
クリアできます。
