Accessで作る領収書⑤

Pocket

領収書の入力画面から印刷できるようにします。

領収書明細フォームにコマンドボタンを配置します。
2607041

作成したコマンドボタンのプロパティのイベントタブのクリック時に次の
VBAコードを入力します。
Private Sub コマンド11_Click()
DoCmd.OpenReport “領収書明細”, acViewPreview, , “領収書ID=” & Me!領収書ID & “”
End Sub
これで実行してみても、作成中の領収証が表示されません。
2607042
これが何故かと申しますと、テーブルを開いてみるとまだID5の領収書は登録されていません。
2607043
テーブルにデータが追加されていないため、VBAで一押ししてあげます。
Private Sub コマンド11_Click()
DoCmd.GoToRecord , , acNext
DoCmd.GoToRecord , , acPrevious
DoCmd.OpenReport “領収書明細”, acViewPreview, , “領収書ID=” & Me!領収書ID & “”
End Sub

2行コードを追加しました。
DoCmd.GoToRecord , , acNext→一つ下のデータに移動し、
DoCmd.GoToRecord , , acPrevious→一つ上のデータに戻す
という動きを追加することで、入力即出力が可能となります。

今日は東海税理士会の本会の会議で一日名古屋です。
長い一日になりそうだ・・・

本日も最後までお読み頂きありがとうございます。