即効テクニック |
サンプルプロシージャでは、作成したフォームにコマンドボタンを配置し、表示位置とサイズを設定してフォームを表示します。 標準モジュールに次のプロシージャを作成してください。 Sub Sample() Dim myForm As Form Dim myBtn As Control Set myForm = CreateForm Set myBtn = CreateControl(myForm.Name, acCommandButton, , _ "", "Button", 900, 600) myBtn.Caption = "ここをクリック!" DoCmd.Restore DoCmd.MoveSize 0, 0, 4000, 2000 DoCmd.OpenForm myForm.Name End Sub フォームを作成する場合はCreateFormメソッド、開いているフォームにコントロールを作成する場合はCreateControlメソッドを使用します。 サンプルマクロでは、作成したコマンドボタンに表示する文字列をCaptionプロパティで設定しています。 CreateFormメソッドは、フォームのデザインビューで新規の最小化されたフォームを開くので、Restoreメソッドで"元のサイズに戻す" アクションを実行します。 MoveSizeメソッドで表示位置とサイズの設定をしたフォームをOpenFormメソッドで開きます。