著書 経理業務のためのAccess実践講座の補足です。
工事予算メインフォームの予算明細サブフォームから工程CDを選択できるようにします。
予算明細テーブルをデザインビューで開いて、コマンドボタンのプロパティのイベントタブのクリック時に
次のVBAコードを入力します。
Private Sub コマンド9_Click()
DoCmd.OpenForm “工程テーブル”
End Sub
これで予算明細サブフォームから工程テーブルが開けるようになりました。
次に工程テーブルから工程CDを予算明細フォームに代入できるようにします。
コマンドボタンを作成し、いつもの通りコマンドボタンのプロパティのイベントタブのクリック時に
次のVBAコードを入力します。
Private Sub コマンド6_Click()
Forms!工事予算メイン.予算明細!工程CD = Me!工程CD
DoCmd.Close
End Sub
サブフォームに違うフォームから値を代入する場合、メインフォーム→サブフォームの順に
フォーム名を並べます。そのときフォーム名を繋げるには「!」ではなく「.」で繋げます。
工程NOの代入したら工程テーブルは閉じるように、
DoCmd.Close
で工程テーブルを閉じます。
これで予算メインフォームが完成です。
9月決算も大詰め。
今月はいろいろな人に迷惑をかけてしまいました。。。
反省しきりです。
