アラフィフおやじログ

で実際にフォームでプログラムを使用する際に埋め込んでみたわけです。 まあグタグタですな。ダイアログボックスはNETで調べると案外出てます。色々調べて完成はさせてみましたが、フォーマット固定が多いんでどう使うかは考えものです。 アップローダあればアップして、いろんな人に評価して頂いてソースを綺麗にしたいです。 '# '#　参照ボタンクリック(CSV取込) '# Private Sub Cmd_import_Click() '参照ボタンクリック時(データインポート) Dim j, k As Integer '複数strpass選択時のカウンタ Dim m, n As Integer 'テーブル名取得用カウンタ Dim strpass As String 'インポート対象パス Dim strVal As Boolean '関数結果受け取り Dim strFName As String 'テーブル名取得用、ファイル名入力用 Dim strpassW As String 'インポートパス分割ワーク用 Dim strMsg As String Dim strSheetName As String 'EXCEL取込時のシート名格納用 'テーブルバックアップ用 Dim strTableName As String 'テーブル名 Dim db_Dao As DAO.Database Dim TableLoop As TableDef '拡張子判別用 Dim strEXT As String '拡張子格納用 '関数受取 Dim strRtn A...

 この辺りはNETで調べれば出てくるんでまあ掲載の必要もないですが・・・・  参考までに・・・・。EXCELのインポートとエクスポート部分です。   Function FromExcel(strTableName As String, strImportTableName As String, strXlsFileName As String, strSheet As String) '==================================================================== ' テーブルから定義情報を取得してインポートする。 ' 可変EXCEL(カラム追加の可能性のあるテーブル)インポート関数 ' 2010.05.19 Created By M.Nishimura '＊使い方 ' str_rtn = FromExcel(定義テーブル名,取込テーブル名,EXCELファイル名) '＊戻り値 '　True：処理正常終了 '　False：処理失敗 ' '==================================================================== Const COLUMCNT = 256 'カラム数 Dim db_Dao(1) As DAO.Database Dim Rst_Dao(1) As DAO.Recordset Dim Qdf_Dao As DAO.QueryDef Dim xls As Excel.Application Dim wkb As Excel.Workbook Dim vntList As Variant 'EXCELのセル数値取得 Dim strTname As String '定義テーブル名 Dim striTname As String 'インポート先テーブル名 D...

 データ並べ替え部分です。ここがこのACCESSのキモかも しれないです。まあ頭は使いました。（笑） Function Sorter(strConfTableName As String, strInTableName As String, strOutTableName As String) As String '========================================================================= '関数名：Sorter (ファイル変換処理用) ' '機能　：入力テーブルを受け取って定義テーブルに設定されたとおりに並替して '　　　　指定されたテーブルに出力する。 ' '使い方：strRet = SampleTemplate1("定義テーブル名","入力テーブル名","出力テーブル名") ' '戻り値： "True"　正常終了 ' "False" 異常終了(エラーNOを持たせる場合はそれぞれで個別定義必要) '========================================================================= Const MAXBYTE = 255 '出力テーブル作成時のフィールドデータのサイズ Const COLUMCNT = 256 'カラム数 '//* 変数定義 Dim strConf As String '定義テーブル Dim strIFile As String '入力テーブル Dim strOFile As String '出力先テーブル Dim strClum(COLUMCNT) As String Dim strFieldName(COLUMCNT) As String 'フィールド名(カラム数分の配列) Dim balRe...

 とりあえずCSV制御部分の備忘録 テーブルで入力するファイルを定義し、出力したいテーブルと出力項目を テーブルで設定します。  テーブルは別途用意する必要があります。（笑） Function FromCSV(strTableName As String, strImportTableName As String, strCsvFileName As String, strMode As String) As String On Error GoTo ERROR_SUB '==================================================================== ' テーブルからCSVの定義を取得してインポートする。 ' 可変CSV(カラム追加の可能性のあるテーブル)インポート関数 ' 2010.02.02 Created By M.Nishimura '＊使い方 ' str_rtn = FromCSV(定義テーブル名,取込テーブル名,CSVファイル名) '＊戻り値 '　True：処理正常終了 '　False：処理失敗 ' '==================================================================== Const COLUMCNT = 256 'カラム数 Dim db_Dao(1) As DAO.Database Dim Rst_Dao(1) As DAO.Recordset Dim Qdf_Dao As DAO.QueryDef Dim strTname As String 'テーブル名 Dim dbsCurrent As DAO.Database Dim strSQL As String Dim tdfNew As DAO.TableDef Dim tdffld(COLUMCNT) As DAO.Field Dim strClum(COLUMCNT) A...

過日みたドラマ、スペシャルドラマ「 ハッピーバースデー 」見てて 何か手を打っておかないと日本という国はだめになるんじゃないかなと思った。 そう思った理由は3点ある。 1)家族のつながりが希薄になっていて利己的な人間が増えてきている。 2)物質が豊かになったことで心が貧しくなり、短絡的な思考の人間が増えてきている。 3)失敗は制度や仕組みのみの責任で自分は悪くないという「他人が悪い思想」 これまで50年ほどを勝手に分析すると以下のように分けられるのではないかと思う。 社会学者ではないので正確ではないし、検証した結果ではないが、自分が感じた 時代の空気からの結論だ。 1960年～1970年代の高度成長：過去の思想の否定(家族の崩壊の始まり) 1980年～1990年代のジャパンアズNO1：傲慢、狭量(文化崩壊の始まり) 1990年～2000年代の失われた10年：ギスギス社会の始まり(家族、文化、地域の崩壊) 2000年～2010年代の第2の失われた10年：将来に希望を持てない社会(将来の希望の崩壊) 特に2000年以降は実際に働いている中での繁栄を知らない世代が社会を 担っている状況が続いているし、社会も低迷が続いているという状況が かれこれ10年以上続いている。 http://jbpress.ismedia.jp/articles/-/866?page=3 2000年代以降のギスギス社会を経験した人間が中堅となる2010年が ひとつのターニングポイントになるのではないかと考えている。 年寄り達(1960年生まれ、いわゆるバブル世代) 政治、経済、文化全てが崩壊を始めるのが2010年を始まりとするように思えてならない。 繁栄を知らない世代は過去の繁栄を知っている世代の考え方が分からない。 メール等で連絡が取れれば思想や背景の土台が異なっている「古い世代」と コミュニケーションをとりたいとも思わない。