東寺と金閣

しばらくお待ちください…

運動会

今日は、お兄ちゃんの幼稚園で運動会がありました。秋晴れ、最高の運動会日和です。大好きな「じぃじ」と「ばぁば」も、運動会を見に来てくれました。

朝から快晴、絶好の運動会日和です

少し緊張気味のお兄ちゃんだったけど、「かけっこ」も「ダンス」も一生懸命がんばりました。今日のお兄ちゃんは１００点満点です！

ちょっと緊張しているお兄ちゃん

「かけっこ」は３着でした。全部で３人で競争して、３着でした。でも、大満足でした。お兄ちゃんは「ヨーイ、ドン」の合図があるまで、一歩も動かず、正々堂々と走りました。かっこよかった！

「ダンス」はお母さんと一緒に踊りました。エイトレンジャーのダンスはとても難しかったけど、一生懸命に踊りました。お母さんに褒められて、とても嬉しかったです！

妹のさくらも一緒にダンスをしたり、砂遊びをしたり、今日は泣かずに我慢してエラかったです。

砂遊びをするさくら

お兄ちゃんがダンスをしているときは、入園前児童も参加できるところで、ばぁばと一緒にダンスに参加しました。 ちょっと難しかったけど、さくらも一生懸命がんばりました。

運動会が終わったら、「みんなよくがんばったね」と先生に褒められました。そして、クラスの全員がミッキーの金メダルをもらいました。お兄ちゃんはとても嬉しかったです。

ミッキーの金メダルをもらって大満足のお兄ちゃん

幼稚園を出る前に、いつも美味しそうな匂いがして気になっていた場所のことを「ばぁば」に教えてあげました。そしたら「ばぁば」が、「これはキンモクセイというんやで」と教えてくれました。

園内のキンモクセイ

お腹が空いていたけど、キンモクセイは食べませんでした。でも、みんなでお昼ごはんを食べに行きました。

今日はたくさんがんばったので疲れました。いっぱい寝ようと思います。

こんなことで寝不足に…シャレにならん

YouTubeで動画を探し彷徨うことにハマっているわけではありませんが、最近、夜ふかしをすることが多いです。

何かを勉強するために動画を探しているわけでもなく、ほんの少しの笑いを求めて…、気がつくと朝の3時や4時になっています。もう夜ふかしのレベルではありません。

せっかくなので、このブロクをご覧いただいている方に、ほんの少しの笑いをお裾分け。

お母さんパンダの子育ての風景。赤ちゃんパンダがくしゃみしたとき、お母さんパンダは…。

夜ふかしする気持ち、分かってもらえましたか？…まだ分からない？それじゃ…、3連発！くらえ！

…ダメ？んじゃ、これは？

…よっぽどヒマなのがバレバレですね。寝るときはしっかり寝て、仕事に支障が出ないように気をつけます。今日は早く寝よ～っと。

最後にひとつ…、極めつけを…。

楽しかったですか？じゃあまた！

Excel と Access での日付入力

仕事の都合で、業務の集計表がたくさん存在します。これまでの集計表の99.9%はExcelを使っての処理でしたが、ここへ来てデータの多さにAccessを意識するようになりました。

Excelをデータベース扱いする機会が多いから、というのも理由の一つですが、いざAccessで処理するようになると、ExcelとAccessの長所短所が比較できて面白いです。

…そんなことはどうでもいいんですが、初歩的なところで壁にぶつかりました。3つの数字を並べたら自動的に日付になおす…というものです。

Excelでは、Date関数を使って簡単に処理できます。

Excel DATE関数でできること

これをAccessでもやりたいな～と思い、次のように作ってみました。

Access で日付入力 その①

まず、フォームに必要な要素を配置します。すべてテキストボックスで、年月日それぞれに数値を入力したら、右下のテキストボックスに「2012/9/3」という具合に表示させてみようと思います。

それぞれのテキストボックスには、左上から順に「t_年」「t_月」「t_日」「t_日付」と名前を付けています。連結・非連結については、ここでは省略します。

t_日付のテキストボックスを選択し、プロパティシートのイベントタブから更新後処理を選択、そのままコードビルダーを起動させる。

ビルダーを起動したら、次のプログラムを書き込む。


　Private Sub t_年_AfterUpdate()
　　　cbfSetDate
　End Sub

　Private Sub t_月_AfterUpdate()
　　　cbfSetDate
　End Sub

　Private Sub t_日_AfterUpdate()
　　　cbfSetDate
　End Sub


　Private Sub cbfSetDate()

　　　Dim strNewDate As String
　　　'数値の日付データ化
　　　strNewDate = Me!t_年 & "/" & Me!t_月 & "/" & Me!t_日
　　　'エラー入力の対処
　　　If IsDate(strNewDate) Then
　　　　　Me!t_日付 = CDate(strNewDate)
　　　　　　　ElseIf IsNull(Me!t_年) Or IsNull(Me!t_月) Or IsNull(Me!t_日) Then
　　　　　　　Me!t_日付 = Null
　　　　　Else
　　　　　　　MsgBox "日付の内容に誤りがあります！", vbOKOnly + vbExclamation
　　　　　　　Me!t_日付 = Null
　　　End If

　End Sub


数値を入力すると、無事に日付変換してくれました。

Access で日付入力 その②

また、誤って入力したときのエラーメッセージも、ちゃんと出てきます。

Access で日付入力 その③

入力形式や日付の表示形式などをイジれば、かなり実用的なのではないでしょうか。…とはいえ、あんまりこんなことに時間をかけてもいられないんですよね。…これで仕事の効率が格段にあがれば、話は別なんですが…。

そうそう、大事なことを言い忘れてました。このプログラム、T'sWare Access Tips で取り上げています。こちらで教えてもらいました。ここには多くのチップが掲載されていて、いつも重宝しています。

目覚まし時計

お兄ちゃんの夏休みは今日まで。明日から幼稚園です。長い長い夏休みの間、ほとんど出番がなかったお兄ちゃんの目覚まし時計が、明日から活躍再開です。

お兄ちゃんのお気に入り目覚まし時計

もちろん、お兄ちゃんを起こす時は、ルフィの声で叫んでくれます。とても大きな声で叫んでくれるので、深い眠りの中にいるお兄ちゃんも、すぐに起きることができます。

この目覚まし時計、お兄ちゃんを起こす時じゃないのに叫びだすことがあります。この目覚まし時計に、何回も無駄に起こされたことがあるお父さんは、あまり好きじゃありません。

音声をアップする方法が分からないので、それは次回にとっておきます。