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

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 で取り上げています。こちらで教えてもらいました。ここには多くのチップが掲載されていて、いつも重宝しています。

目覚まし時計

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

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

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

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

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

テレビコマーシャル

今年５歳のお兄ちゃんは、いま恐竜にハマっています。親も知らない、聞いたこともない恐竜の名前を次から次へと披露してくれます。

ふと、日清カップラーメンのテレビコマーシャルを思い出しました。昔のCMです。そう、Hungry?って言うやつです。

YouTubeで探すと、結構たくさんバージョンがあるのに驚きました。

もっと他にも面白いCMがないかな～と探していると、こんな素敵なCMに出くわしました。思わず泣いてしまいましたよ。

久しぶりに帰宅する兄を出迎える妹の優しい心…。大人は忘れたらダメですよね。