領収書を一覧で表示できるようにします。
例によってフォームウィザードをクリック。
領収書明細を選択し、但書以外をフィールドに選択します。
フォームのレイアウトは「表形式」を選択し次へ。
あとはそのまま次へで流して、最後はフォーム名を「領収書一覧」とし、デザインビューで
開きます。
あとはこれを変更し、最後にコマンドボタンを配置します。
配置したコマンドボタンの、イベントタブのクリック時に次のコードを入力します。
Private Sub コマンド9_Click()
DoCmd.OpenReport “領収書明細”, acViewPreview, , “領収書ID=” & Me!領収書ID & “”
End Sub
あまり領収書の出し直しはないと思いますが、一覧から選択ということが簡単にできます。
今日で6月が終わり、今年も半分終わりました。
上半期は忙しくあっという間におわりましたが、下半期は地に足を付けて
将来に向けて地ならし&種まきをしたいです。
本日も最後までお読み頂きありがとうございます。