Option Compare Database Option Explicit ' FormFormat ' フォームを開く際の値設定 Public Function FormFormat() Dim mForm As Form Set mForm = Forms("ファイル情報取得フォーム") ' 1.フォームを開いた時点の初期値設定 mForm.Controls("フォルダパス項目").Value = "" ' 検索ファイルは1:*.txt 2:*.csv mForm.Controls("検索ファイル").Value = 1 ' チェックボックスはTRUE:チェックあり FALSE:チェックなし mForm.Controls("チェック_ヘッダー行有無").Value = True ' 2.フォームを開いた時点のフォーカス設定 mForm.Controls("フォルダパス項目").SetFocus End Function