'---------------------------------------
'処理名：SeedProcSummariesAll
'概要：確定した番号と文言を、プロシージャの表の一言概要へ入れる処理
'戻値：入った行・見つからない番号の件数
'---------------------------------------
Public Function SeedProcSummariesAll() As String
Dim dbs As DAO.Database
Dim arrLngId As Variant
Dim arrStrText(0 To 42) As String
Dim strSQL As String
Dim strText As String
Dim lngIdx As Long
Dim lngPut As Long
Dim lngMiss As Long
Const TBL_PRC As String = "t03a_プロシージャ名"
Const FLD_SUM As String = "一言概要"
Const FLD_KEY As String = "PRC_ID"
On Error GoTo HANDLE_ERR
arrLngId = Array(3, 20, 27, 28, 29, 32, 33, 34, 36, 40, 44, 45, 50, 53, 54, 55, 56, 58, 60, 61, 62, 63, 64, 66, 67, 68, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82, 84, 86, 87, 88, 89)
arrStrText(0) = "計算方法を自動と手動で切り替える"
arrStrText(1) = "日付文字列から区切り記号を取り除く"
arrStrText(2) = "操作ログのクリア"
arrStrText(3) = "出力先ディレクトリを取得する ディレクトリが存在しない場合は、新規作成する"
arrStrText(4) = "外部ログ・ファイルの内容をシートへ反映する"
arrStrText(5) = "操作ログのファイルへ1行追記する"
arrStrText(6) = "操作ログの1行をCSV形式で組み立てて出力する"
arrStrText(7) = "ログ情報を受け取り操作ログへ書き出す"
arrStrText(8) = "メッセージを末尾に追加する"
arrStrText(9) = "開始日時と処理名を記録して初期化する"
arrStrText(10) = "操作ログのクリア"
arrStrText(11) = "外部の操作ログを読み込む"
arrStrText(12) = "ブックを開いたときに設定に応じてバリデーションを実行する"
arrStrText(13) = "入力した年月でブックを別名保存して新しいファイルを作成する"
arrStrText(14) = "対象日に1日加算する"
arrStrText(15) = "対象日に1日減算する"
arrStrText(16) = "対象月の範囲内で対象日を変更する"
arrStrText(17) = "貼付データと取込ログを消去して対象日を設定する"
arrStrText(18) = "月替わりでのファイル複製・データリセット処理"
arrStrText(19) = "先月最終週の起動回数配列を取得"
arrStrText(20) = "先月末のコマ数配列を取得"
arrStrText(21) = "先月末の起動回数配列を取得"
arrStrText(22) = "処理高速化(画面更新停止、イベント抑制、手動計算)を設定／解除する"
arrStrText(23) = "処理高速化を解除して操作ログに記録する"
arrStrText(24) = "パス末尾に ""\"" がついていなければ付ける"
arrStrText(25) = "配列を指定した列で並べ替える"
arrStrText(26) = "★TK066提出データから、★TK060コード毎の出力データを作成する"
arrStrText(27) = "★TK066提出データファイルの元データを取得する"
arrStrText(28) = "選択した対象日の★TK066データを取得する"
arrStrText(29) = "取り込んだファイル名と日時を対象日の行に記録する"
arrStrText(30) = "Dictionaryを出力用配列に変換する"
arrStrText(31) = "フォルダ内でその日のいちばん新しいファイルを探す"
arrStrText(32) = "★TK066提出データファイルを手動で選択する"
arrStrText(33) = "★TK066提出データファイルを検索するフォルダを自動選択する"
arrStrText(34) = "★TK066提出データファイルのフォルダを手動で選択する"
arrStrText(35) = "フォルダ内のファイルをリスト化し表示する（参考用）"
arrStrText(36) = "対象日入力値とファイル年月が適切かチェックする"
arrStrText(37) = "呼び出しに使用したボタン名称に応じたトグルスイッチ操作"
arrStrText(38) = "対象期間の★TK066提出ファイルと取込ログを照合して判定を出す"
arrStrText(39) = "対象月のフォルダを取得する"
arrStrText(40) = "対象月のフォルダを手動で選択する"
arrStrText(41) = "フォルダ内でその日のいちばん新しいファイル名と最終更新日時を取得する"
arrStrText(42) = "取得したファイル情報と取込ログを比較して判定結果を返す"
Set dbs = CurrentDb
For lngIdx = LBound(arrLngId) To UBound(arrLngId)
strText = Replace(arrStrText(lngIdx), "'", "''")
If IsNull(DLookup("[PRC_ID]", "[t03a_プロシージャ名]", "PRC_ID=" & arrLngId(lngIdx))) Then
lngMiss = lngMiss + 1
Else
strSQL = ""
strSQL = strSQL & "UPDATE [" & TBL_PRC & "] "
strSQL = strSQL & "SET [" & FLD_SUM & "]='" & strText & "' "
strSQL = strSQL & "WHERE " & FLD_KEY & "=" & arrLngId(lngIdx)
dbs.Execute strSQL, dbFailOnError
lngPut = lngPut + 1
End If
Next lngIdx
SeedProcSummariesAll = "入った行=" & lngPut & " / 見つからない番号=" & lngMiss
TIDY_UP:
Set dbs = Nothing
Exit Function
HANDLE_ERR:
SeedProcSummariesAll = "エラー " & Err.Number & "：" & Err.Description
Resume TIDY_UP
End Function
Excel