予算額と実額額を入力するフォームをつくりましたが、今回は二つのフォームをスタート
フォームから開けるようにします。
先に、スタートフォームにコマンドボタンを二つ配置します。
先に予算入力から。
いつものように、コマンドボタンのプロパティ→イベントタブのクリック時に次のVBAコードを入力します。
Private Sub コマンド14_Click()
DoCmd.OpenForm “工事予算メイン”, , , , acFormAdd
End Sub
acFormAddは新規にデータを入力するときに使います。
入力すると分かりますが、「,」を打つ度に表示が変わっていくので、該当するところで
選択して下さい。
実行画面です。
同様に実額入力のコマンドボタンにも次のVBAコードを入力します。
Private Sub コマンド13_Click()
DoCmd.OpenForm “実績額”, , , , acFormAdd
End Sub
これで一つのフォームから予算入力と実額入力が開けるようになりました。
