※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

TOOL_テキストファイル情報収集_フォーム値設定・取得

  • ソース
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

2013/05/15 全面改訂