本日2投稿目です。
フォームの端を選択してドラックすることでリサイズは可能ですが、その際にサブフォームであるデータシートは自動的にリサイズはされず、見栄えが悪くなります。
対応策として、VBAのResizeイベントを使用します。
Resizeイベントはポップアップフォームモジュールに記載します。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
'リサイズ時 Private Sub Form_Resize() Dim SubForm As Form Set SubForm = Me.サブフォーム名.Form DoCmd.Echo False Me.SubForm.Height = Me.InsideHeight - Me.フォームヘッダー.Height Me.SubForm.Width = Me.InsideWidth DoCmd.Echo True End Sub |
サブフォーム名は、ポップアップフォームにてデザインビューを開いてサブフォームを選択した際に、プロパティシートに表示される名前を入力します。
今回はここまで。
---コメント---