飲・食・遊・ダイエット・走・育な日々 -51ページ目

CSVデータを行ごとにインポートしてみる

CSVデータのインポートは、Accessをさわる人

にとっては当然のごとく起こる業務(のはず・・・)

もっとも簡単なのが

DoCmd.TransferText acImportDelim, _
          定義名, _
          インポートするテーブル名, _
          ファイルのフルパス, _
          HasFieldNames:True

これはあらかじめ用意されたテーブルがあり、

CSVデータの列名が一緒である。若しくは

定義を作成してある。

っといたった決まりごとが満たされたときに

大変便利であり、簡単である。

しかし、CSVデータをチェックして、

更にインポートするしないを判断させるには

インポートした後にいろいろしなくてはいけない。

そこで、CSVデータを1行(1レコード)ずつ

読み込んでいく方法を見つけた。

これなら、1レコードずつ精査してから、

色々な処理ができそうだ!ヾ(@°▽°@)ノ

'FSO(FileSystemObject)を使う。

Public Sub IMPORT(FilePath As String)

Dim FSO As Object ’FSO
Dim txtS As Object 'CSVファイルを格納
Dim TxtL As String 'CSVから取り出した行
Dim Seq As Variant 'フィールドデータ
Dim Rec(8) As Variant 'データの保存箱
Dim I As Integer 'ループカウント用

'FileSystemObjectをセット
Set FSO = CreateObject("Scripting.FileSystemObject")

'引数で取得したファイルパスにファイルがあるかどうかを確認する。
If FSO.FileExists(FilePath) Then
'ファイルがあれば変数へセット
Set txtS = FSO.OpenTextFile(FilePath, 1)
Else
'なければ出る
Exit Sub
End If

'ループで1行ずつ読み込む
'AtEndOfStreamは、最後の行まで読むってこと
Do Until txtS.AtEndOfStream
'カレント行を格納
TxtL = txtS.ReadLine
'Split関数でカンマ区切りを分ける
Seq = Split(TxtL, ",")
'UBoundでフィールド数を確認
If UBound(Seq) >= 8 Then
'For で1フィールドずつ取得
For I = 0 To 8
Rec(I) = Seq(I)
Next I
End If
Loop

End Sub

以上です。

ちょっと考えてしまったけど、

作ってみると意外と簡単でした。

これなら、For~が終わった後にレコードに

対しての処理を入れ込んでおけば、

レコードの精査やインポート処理などを

細かく行うことができます。

ちょうどうちの会社のニーズとマッチして

いたので、使ってみました。

独習 Access VBA/大村 あつし

¥2,940
Amazon.co.jp

傷の癒えた娘をいじめてみる・・・・・ひどい親

先日の娘の傷はもう痛くないらしい~

やっぱ子供の回復力はすごいねぇ~(^O^)

しかし、Sなパパとしては、どうしても

いたがっている・いやがっている娘を

みたくて仕方ない・・・( ̄ー ̄;

すこしいじめてみた。

傷の周りをピシピシとたたいてやった。

「うぅぅわぁぁぁ!なにすんねん!」

Σ(゚д゚;) なぜ関西弁?

しかし、いい反応だっ( ̄▽+ ̄*)

もうすこしいじる・・・(#⌒∇⌒#)ゞ

「だから!なにすんねんっていってるの!」

おっ!また関西弁?Σ(~∀~||;)

だんだん怒ってきた(°∀°)b

次はぎりぎりで止めてみる。

「あああああぁぁぁぁぁ!もうっ!」

うんうん。楽し(^O^)♪♫


「もうっ!やらんでぇ」ヽ(`Д´)ノ

どんどんエスカレートしていく・・

「ああぁぁ!おねがいっ!やらんでさぁ!」

娘の顔が、泣き顔から笑顔に変わってる。

パパがこんなの好きなのを知っているのだ。

「遊ばないでぇ~!痛いんだよ!」

「は~い」と答えたが、手が動く。

そしてついに!傷口にソフトタッチ!

「あぐっ~!いたぁぁぁい!」

なくかな?っと思いきや、わろうとる。

「パパっ!次ぎやったらテレビのチャンネル

 変えちゃうからね!!ヽ( )`ε´( )ノ」

なぬっ!Σ(~∀~||;)

俺の楽しみにしていたアメトークスペシャルを

変えてしまうとな!ヽ((◎д◎ ))ゝ

「だめだ!それはしないで。o(;△;)o」

「もうしない?」

「はい。もうしません。」o(TωT )

娘が父親に勝利した瞬間だった。。。

しかしっ!ここで引き下がっては、父親として

威厳がたもてん!ヾ(▼ヘ▼;)

何食わぬ顔で、傷口にソフトタッチ!

「あ~~~~~!」

瞬間でテレビのチャンネルが変えられた!

その後は、おかまいなしにさわりまくった。

「パパ ごめん。ごめん。許してください。」

娘が根をあげた。

勝った!勝利だ!威厳だ!父親だ!


そしてテレビをつけると Σ(・ω・;|||

いいとこだった家電芸人が終わっている・・・

うぅぅぅ(T▽T;)

これで冷静になり、威厳も何も・・・・

ただのガキんちょのように戯れていただけ

っと改めて反省。・゚゚・(≧д≦)・゚゚・。


あまりにもあほなことをしていた

自分に反省し、ソフトタッチでも

傷口が開かない娘の脅威の回復力を知る

そんな馬鹿な親子のじゃれあいでした。

傷の正しい治し方〈PART3〉ラップ療法による新しい熱傷、皮膚科治療/水原 章浩

¥3,045
Amazon.co.jp

本日は休業日・・・・嫁さんありがとう。

今日は帰っても亭主関白。ヾ(@^(∞)^@)ノ

なぜって?(@_@)

それは、嫁さんが有給休暇を取ってお休みとって

家事をしているからっ♪


あ~疲れたって帰ってもご飯ができている。。。

当たり前なのにうれしい日。o(^▽^)o

ちなみに、本日は「スキヤキ」!

牛肉をほおばり、汁をすすり、うどんで閉める。

日本人が贅沢と思える瞬間ですなぁ~

こないだ、「世にも奇妙な物語」で伊藤淳史君が

主役をしていたお話を見て感化されちゃったん

だってさっ!(≧▽≦)

仮面ノリダーの頃から見ていたけど、電車男やら

チームバチスタやらでの演技を見ていると、

まるで別人みたいですねぇ・・・

あっ・・・話がそれた・・・

スキヤキにもどって。。(;´▽`A``

火をいれて鍋が熱くなったところに牛脂をひく。

その上から牛肉を並べていき、「ふう」とため息。

砂糖をまぶし、「ふう」とため息。

しょうゆ(うちは出汁醤油)を流し込む。

後は・・・・・・・・・・・・・・・・・・

いろいろぶち込むのさ!!(@Д@;

これでいいのか?って?(*_*)

これでいい~のだぁ~(@_@)


だってあとの配分はわかんないんだもん!

ふたをして待つこと10分

おいしく、ぐつぐつ、ふんわりかおる

スキヤキができました。

といた卵に絡めて食べる!

うまっっtぅtぅtぅtぅっつ∑ヾ( ̄0 ̄;ノ

格別においしい。

普段は家事と育児で格闘の日々だが

そんな疲れを飛ばしてくれる。

さぁて、アメトークでもみながら

おいしくつついていこう!!ヾ(@^▽^@)ノ

エバラ すき焼のたれ マイルド 300ml【イージャパンショッピングモール】

¥276
eジャパン

背景の設定をしてみよぅ! Let’s Try!!

普段、業務文書や案内文書しか作っていないので、

手を加えたチラシ的なものを作ったことがない。

ちょっと手を加えるだけで、とてもチラシ的な

見栄えのする方法を見つけてしまった。。。

(☆。☆)


Wordの背景だ!キタ━━━(゚∀゚)━━━!!!

背景が白いままでは、ただの文書にしか見えない。

しかも、硬いイメージがなぜか脳裏にこびりつく。


しかし、背景を変えるだけで劇的にっ!(-_☆)


っというわけで、やってみよう。


まずは、空のWordを開く。

ツールバーの「書式」から「背景」を選択する。

カラー選択のフォームが出てくるので、いつもの

色を選ぶ方法で行うだけだ!


ちょっと違うのが「透かし」

これは、図形やテキストを背景にもぐりこませる

ことができるものだ。

よく企業のパンフレットで内容の後ろに薄く

ロゴマークなどが入っているが、それと同じ

ことをやってくれる。

(プリンタによっては、スタンプという方法もある)

選べるのは図形とテキスト

図形はあらかじめ用意された画像を取り込む。

テキストは用意されているものか、オリジナルで

書き込んだものを選択できる。


これをやってみると、全テキスト白抜きや

インパクトのある画像の白ぶちなどが強調され

なかなか面白いものができあがる。


知っている人は、何だこんなこと?( °д°)

っと思うかもしれないが、やらない人には

とっても感動もんだ!(≧▽≦)


これで作った作品をいざ印刷へ・・・・・

あれっ?(  ゚ ▽ ゚ ;)・・・背景がでない・・・

画面を見ると出ている・・・・でない・・・

プリンタの設定?と思ってみたけど、

どんなに画質を上げ下げしようと、紙質を変え

ようと、一向に変わらない??(x_x;)


なぜっ?(((( ;°Д°))))


はっ!∑ヾ( ̄0 ̄;ノ

ページ設定!(☆。☆)

ツールバーの「ファイル」の「ページ設定」を開き、

「用紙」タブの「印刷オプション」をクリック

でたっ!!Σ(・ω・ノ)ノ!


真ん中の「同時に印刷する項目」という欄の中に

「背景の色とイメージ」があった!

これのチェックを ON にして再度印刷!

キタ━━━(゚∀゚)━━━!!!
キタ━━━(゚∀゚)━━━!!!
キタ━━━(゚∀゚)━━━!!!

やっとでました!背景君。。。。


なんとか無事に終えることができたよ。

簡単と思ったら思わぬ落とし穴が・・・

このブログを読む機会がある人は、気をつけて!


番外編として
背景をいれたら、断然!印刷物のふちが無いほうが

見栄えがいい!

レーザープリンターでは難しいかもしれないが、

最近のインクジェットプリンタは、写真用で

「ふちなし全面印刷」という機能があるので、

それを使うと良いでしょう!!

って、俺が使ったんですけどね!(* ̄Oノ ̄*)

できるWord 2007 Windows Vista 対応 (できるシリーズ)

¥1,344
Amazon.co.jp

長女が派手に転んで、べそかいて、ブルー・・・かわいそ・・・(ノ_-。)

学童保育に久々にお迎えに行きました。

えっ?Σ(゚д゚;)

毎日行かないのか?って?・・・・・・

実は、国道を挟んですぐにあるので、お迎えは

免除させてもらっています。

なので、いつも2人で歩道橋を仲良く歩いてくる

姿をみることができます。(たまに・・・)

ただ、今回は学童費の納付もあり~の

顔を見せとかないといけない~の

あいさつしとかないといけない~のっと

色々あるので・・・(;´▽`A``


学童保育につくと、まずは元気一番の次女が

飛びついてくる!(*゜▽゜ノノ゛☆

そして後から長女が・・・あれ?・・・

こない・・・。(;°皿°)

なんだ?・・・泣いている・・・・


学童の先生に聞くと、下校途中で、走っている時

石につまづいて「ど派手」に転んだらしい・・・

その時に左ひざに2本の傷ラインが10cmも

できて「痛痛痛痛痛痛痛痛痛いぃぃぃぃ」


幸い傷は浅く、血が固まって、出血も

おさまっているようでした。ε=(。・д・。)


長女が痛そうに足を引きずり、泣きながら

「ぱぁぁぁぁぱぁぁぁぁ 歩けないょょょょょょ」

「ふぐぅぅぅふがぁぁうえっぐ」むせてる・・・


wwwwwwwwwо(ж>▽<)y ☆



まぁ子供は傷が絶えないからね。(-^□^-)

ここは厳しく!「さっさと歩いて帰って来い!」

というと泣きながら「わがっぁぁぁだぁぁぁ」

文句も言わず歩き出した。


wwwwwwwwwо(ж>▽<)y ☆



先にお家について眺めていたら、

歩道橋の上で必死にがんばっている。。。

しょうがねぇなぁ~


結局、おんぶしてつれて帰った。(^O^)

家では終始、病人気取り。

でも、寝る前には元気になって、いつも通り!

(やっぱり子供は切替早い!)

「パパ もう大丈夫!ありがとう!」

うん。うん。うん。。゚(T^T)゚。

自分の傷より、人への気遣いができるように

なってきたんだね。(。>0<。)


こうやって娘はもっと大人になっていく。

やっぱ楽しいぞぉぉ!ヾ(@^(∞)^@)ノ

お父さんのための1日10分、本気の子育て/松井 直輝

¥1,260
Amazon.co.jp