フォーム、サイズ、位置の設定
'フォームを開くとき
Private Sub Form_Load()
On Error GoTo Err_Form_Load
set_Form_load
Me.Section(0).BackColor = set_Form_BackColor
Exit_Form_Load:
Exit Sub
Err_Form_Load:
MsgBox ("Form_Load:" & Err.Number & " " & Err.Description)
Resume Exit_Form_Load
End Sub
'Ｐｕｂｌｉｃモジュール
Public Function set_Form_load()
'--------------------------------------------------------------
'フォームの表示位置、幅、高さを指定する.。単位はtwip
'DoCmd.MoveSize 左開始位置､左上開始位置､幅､高さ
'--------------------------------------------------------------
DoCmd.MoveSize 10, 10, 14000, 9000
End Function
Public Function set_Form_BackColor() As Long
'--------------------------------------------------------------
'フォームの背景色に初期値を設定
'--------------------------------------------------------------
set_Form_BackColor = 9032207
End Function