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

本日の夕食に!!・・・・・カレードリア??

カレー好きなオレ!

毎日カレーでも飽きないんだけど・・・

やっぱり嫁と娘たちの目が怖い


ってことで、カレーはカレーライスだけじゃぁない!

という事を思い知らせよう!!


材料!

カレー(完成したカレーをご用意)

チーズ(とろけるスライスは○印!)

マヨネーズ(キュー○ー)

ゆで卵(普通・・・)


1.ゆで卵を砕き、粉微塵に!
2.マヨネーズとゆで卵をごちゃ混ぜ!
3.ごはんとカレーをぐちゃ混ぜ!
4.ぐちゃ混ぜご飯の上にチーズをのせる
5.その上からごちゃ混ぜマヨネーズをかける
6.オーブン200℃で2~3分かなぁ?
  とりあえず、焼き色が付けばいいや!
7.熱いので気をつけて取り出して
8.バジルもしくは青海苔をパラパラ

完成!!!

$MIRABUの沖縄 飲んで・食べて・見て・遊ぶ-カレードリア


カレードリア的なぁ~?

意外と様になっているでしょ?

味も・・・・・・・まぁまぁうまい


そのままのカレーライスでもいいのだが、

変化を求めるうちの家族のために

工夫工夫工夫工夫~


ふぅ~ε=(。・д・。)

つかれたぁ~


まぁ、手抜きなおいらにしたら上出来かな?

飽きたらまたやろう!

長女の漢検・・・・合格!!

いつもの通り娘たちが帰宅してすぐに、

長女から報告が・・・


「ぱぁぱぁ~漢検合格したってクラッカー!!」


おおおおおおお!!∑(゚Д゚)

やったねぇ!ヾ(@^(∞)^@)ノ


あんなに頑張っていたんだもん

合格するさぁ~ねぇ~


点数とか合格証とかは来月とどくらしいが

開催場所の学童保育では、結果連絡があったらしい

(そうなんだねぇ~(*_*))


うれしそうに、「やったぁぁぁ!!」と

はしゃぐかなぁと思いきや、

はぁ~ε=(。・д・。)

と、ほっとするしぐさ・・・・


ん?

安心したのかな?


どうやら、書いていなかったところがあったようで

合格する確信がなかなか持てなかったようだ

そういう時って、落ち着かないよねぇ~


とりあえず、お祝いは合格証が届いてからということで、

今日は普通におめでとう!会ってことで!


ジュースで乾杯!


おめでとう!わが娘!

本日の次女はどうかなぁ?

今日はみんなで6:40分起き!

次女は昨日のお説教が利いたらしく、

いそいそとお支度!ヾ(@°▽°@)ノ


今日はなにも言いませんでした。

着替えや歯磨き、食事も何も言わずに

コーヒーブレイクしていました。


次女はせっせと準備準備!


時折、長女と会話。

「おねぇねぇ、今日は早いね!」


長女はびっくりしたらく、

「今日はもう準備できたよ!」



ゆったりとコーヒーを飲みながら

こんなに静かな朝は何ヶ月ぶりかしら?


長女のお友達がお迎えに来る前に

靴を履いて玄関で、

「ぱぁぱぁ、行ってくるよ~~~」


は~い。

いってらっしゃ~い


「いってきま~す!」


はっ!Σ(・ω・ノ)ノ!

これだ!!∑(゚Д゚)

これが一般家庭の朝だ!!


娘に振り回されることなく、

弁当に追われることなく、

静かにコーヒーを飲んで過ごす!


これこそが朝!!∑ヾ( ̄0 ̄;ノ


さわやかだぁ~( ̄▽+ ̄*)


そうとうの勢いで叱ったので

効果が一応はあったのかな?


とりあえず、三日坊主にならないことを祈る( °д°)

VBAでパススルークエリを作成する!

CreateQueryDefを使うのは覚えていたんだけど、

パススルークエリを繰るには???(@_@)

ってことで、いつものとおりGoogleのお世話に・・・


QueryDefのプロパティで

Connect(接続文字列)とReturnsRecords(戻り)を

設定すればできるそうな・・・


やってみるべ!(ノ゚ο゚)ノ



Dim db As DAO.Database
Set db = CurrentDb

Dim qdf As DAO.QueryDef
Dim ItemQdf As DAO.QueryDef

Const QueryName = "NewQueryName"
Const StrCON = "ODBC;DSN=DSN名;UID=ユーザー名;PWD=パスワード;DATABASE=DBNAME"


Dim StrSQL As String
StrSQL = "select * from tablename " & _
    "where fieldname ='" & Finish & _
    "' and fieldname2 =" & InputCheck

For Each ItemQdf In db.QueryDefs
  If ItemQdf.Name = QueryName Then
    db.QueryDefs.DELETE QueryName
    Exit For
  End If
Next

Set qdf = db.CreateQueryDef(QueryName)
qdf.Connect = StrCON
qdf.ReturnsRecords = True
qdf.SQL = StrSQL
qdf.Close
Set qdf = Nothing

Set db = Nothing


って、あっさりできた。えっ

簡単だった(-"-;A・・・・


普通のCreateQueryDefにConnectつけただけ!


1つだけ注意があって、

ReturnsRecordプロパティはSelect文のときはTrue

InsertやDeleteの戻りいらずの時はFalse

をいれておけばOKなんじゃ。


こんな簡単なものも忘れているなんて(x_x;)・・・・

俺ってば馬鹿だねぇ~

(T▽T;)

Access VBA逆引き大全600の極意―2002/2003/2007対応/高柳 靖子

¥2,520
Amazon.co.jp

次女のねぼすけにきれます!!

うちの次女はねぼすけ。

起きてもボーOo。。( ̄¬ ̄*)

逐一言わないと、朝は動きません!


歯ブラシ!!(`Δ´)

うがい!!(`Δ´)

顔洗い!!(`Δ´)

お着替え!!(`Δ´)

ご飯!!(`Δ´)

支度!!(`Δ´)

行ってこい!!ヾ(▼ヘ▼;)


いちいちいちいちいちいちいちいちいちいちいち

言わないと動かないことに、だんだんと怒りがプンプン・・・


「うらぁープンプン!!うごけぇー!!パンチ!

とひと叱りすると・・

「うぇっく、ひっくひっく・・・しょぼん

泣き出す。。。。


言わんと動かない。

叱ったら泣く。


とうとうぶち切れて、説教しました。


「朝はおねえちゃんが待っているんだよ。

 お友達もお迎えきてくれるし、

 その子もいっしょに遅刻してもいいの?」


泣き半じぃ~(T▽T;)で

「いやだぁ~~~~~」

「だったら朝はしっかり動こうね。

 そしたら、パパもママも叱らないよ。

 お姉ちゃんは叱られないでしょ?」


「うんうん。わがっだぁ~~~~(T▽T;)」

なきそうなのを堪えてお返事。


説教の成果はあるのか?ないのか?ε=(。・д・。)


当の本人は、説教が終わるとすぐに

テレビに釘付け。

お姉ちゃんと和気藹々に・・・


なんだこいつ・・・・( °д°)


ぬぼーとした性格とメリハリが激しい性格が同居した

とっても変でおかしい次女。


明日は動いてくれるかなぁ~~?