「TOOL_テキストファイル情報収集_フォーム値設定・取得」の編集履歴（バックアップ）一覧はこちら

「TOOL_テキストファイル情報収集_フォーム値設定・取得」(2013/05/16 (木) 01:40:22) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

**TOOL_テキストファイル情報収集_フォーム値設定・取得
-ソース
 Option Compare Database
 Option Explicit
 
 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
     mForm.Controls("チェック_不要な末尾改行有無").Value = True
     mForm.Controls("チェック_初期化有無").Value = True
     
     ' 2.フォームを開いた時点のフォーカス設定
     mForm.Controls("フォルダパス項目").SetFocus
 End Function

 

[[TOOL_テキストファイル情報収集]]

[[トップ]]


　

**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 全面改訂 

[[TOOL_テキストファイル情報収集]]

[[トップ]]