予算と実績額を工事毎に比較するクエリと予算と実績額を工事毎かつ工程毎に比較する
クエリを作りましたので、これらのクエリを基にフォームを作ります。
作り方は、いつもと一緒。
フォームウィザードから
テーブルクエリで予実対比（予算実績総合収支）を選択し、
すべてのフィールドを選択し次へ。
フォームのレイアウトは「表形式」を選択し次へ。
フォーム名はクエリの名前をそのまま使います。
これでできた、二つのフォームを変更します。
先に予算実績総合収支を次のように変更して下さい。
配置したコマンドボタンのイベントタブのクリック時に次のVBAコードを入力します。
予実対比フォームを表示させるコードです。
Private Sub コマンド11_Click()
DoCmd.OpenForm “予実対比”, , , “工事NO='” & Me!工事NO & “‘”
End Sub
同じく予実対比。
予算実績総合収支から展開すると次のようになります。
これで工事毎の予算→工程毎の予算という形で予算の管理ができるようになりました。
