サンプルプロシージャでは、作成したフォームにコマンドボタンを配置し、表示位置とサイズを設定してフォームを表示します。
標準モジュールに次のプロシージャを作成してください。
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メソッドで開きます。