今回はAccessにおける、全てのフォームにおいて、ある一つのプロパティを一括で変更する方法を紹介します。
イメージとしては、全てのフォームをFor Each文で設定し、
それぞれのフォームをデザインビューで開いてプロパティを変更後、
保存して閉じる作業を繰り返すような構文になります。
下記の例では、フォームのプロパティの一つ、TimerInterval(タイマー間隔)を全てのフォームで3000ミリ秒に変更しています。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub Property_Change() Dim Frm As AccessObject '全てのフォームで繰り返す For Each Frm In Application.CurrentProject.AllForms 'フォームをデザインビューで開く DoCmd.OpenForm Frm.Name, acDesign 'フォームのタイマー間隔を3000ミリ秒に設定 Forms(Frm.Name).TimerInterval = 3000 'フォームを保存して閉じる DoCmd.Close acForm, Frm.Name, acSaveYes Next Frm End Sub |
今日はここまで。
---コメント---