フォームを二つ作りましたが、これを連動させるフォームを作ります。
作成タブのフォームデザインをクリックします。
デザインビューでさらのフォームが表示されるので、図のようにコマンドボタンを二つ
配置します。
作成したコマンドボタンのイベントタブのクリック時に次のVBAコードを入力します。
作成
Private Sub コマンド0_Click()
DoCmd.OpenForm “領収書明細”, , , , acFormAdd
End Sub
履歴
Private Sub コマンド1_Click()
DoCmd.OpenForm “領収書一覧”
End Sub
実行結果です。
一つ核となるフォームを作ることで、アプリケーションぽっくなりました。
VBAを入力するときに、「,」を打っていくと次のようなアドバイスがでてきます。
使うのは、Where条件とその次です。Where条件は抽出条件を指定します。
フォームを開くときに、新規のデータ入力(acFormadd)か、読み取り専用(acFormReadOnly)の状態で開くか選択します。
使うのはこの二つです。
サンプルデータです。
昨日個人的に大変大きな出来事がありました。
喜んでいいやら悲しんでいいやら・・・
でもいつまでも凹んでいても仕方がないので、ケジメつけないと。
本日も最後までお読みいただきありがとうございます。
