今日はもう少しゆったり・・・・・しかし!
今日も嫁さんは体調不良
・・・
とりあえず、ただの風邪のようで、寝込んでます。
インフルエンザじゃなくてよかったぁ～
今朝は、起きると・・・なんと!!∑ヾ(￣0￣;ﾉ
そらがオレンジ!!ヽ((◎д◎ ))ゝ
これはなんにも編集してないですよ～
ちなみに、撮影は7：10
日の出時間じゃないので朝焼けでもないし・・・
なんだろう？？？ヽ(;´ω｀)ノ
とりあえず、今日も家事。
でも、今日は昨日の怒りがなんとか浸透してくれたのか？
ものすごく早い時間で準備完了!
次女に、
「弁当はまだ？」
といわれたほど・・・ごめん
。。。
なんで、8時前には全て完了し、8：00～8：15まで
15分のブレイクタイム。
子持ちで平日にこれだけ時間が取れれば
たいしたもんだろう！！(￣▽+￣*)
ということで、沸騰させといたお湯で珈琲を・・・
珈琲を・・・
こーひーこーひー
!!( ﾟ-ﾟ)( ﾟﾛﾟ)(( ﾛﾟ)ﾟ((( ﾛ)~ﾟ ﾟ
珈琲がなぁぁぁぁい!!((ﾟmﾟ;)
昨日は今日の分があったのに!!なぜ？？？？
嫁「あっ、私が飲んで昨日なくなったよ。」
がーーーーーーーーーーーーんΣ(~∀~||;)
せっかくのブレイクタイムがぁぁぁっぁ∑(ﾟДﾟ)
せっかく、せっかく、せっかくかくかくかくかく
準備万端だったのにぃぃぃ～～
仕方なく、麦茶でティータイム。
あじけねぇ～
今週はほんとに駄目でした。
しかも、明日ゆったり!!と考えていたのですが、
次女の生活発表会を忘れておりました。
もうだめです。
日曜日から新しい1週間になることを祈ります。
・・・とりあえず、ただの風邪のようで、寝込んでます。
インフルエンザじゃなくてよかったぁ～
今朝は、起きると・・・なんと!!∑ヾ(￣0￣;ﾉ
そらがオレンジ!!ヽ((◎д◎ ))ゝ
これはなんにも編集してないですよ～
ちなみに、撮影は7：10
日の出時間じゃないので朝焼けでもないし・・・
なんだろう？？？ヽ(;´ω｀)ノ
とりあえず、今日も家事。
でも、今日は昨日の怒りがなんとか浸透してくれたのか？
ものすごく早い時間で準備完了!
次女に、
「弁当はまだ？」
といわれたほど・・・ごめん
。。。なんで、8時前には全て完了し、8：00～8：15まで
15分のブレイクタイム。
子持ちで平日にこれだけ時間が取れれば
たいしたもんだろう！！(￣▽+￣*)
ということで、沸騰させといたお湯で珈琲を・・・
珈琲を・・・
こーひーこーひー
!!( ﾟ-ﾟ)( ﾟﾛﾟ)(( ﾛﾟ)ﾟ((( ﾛ)~ﾟ ﾟ
珈琲がなぁぁぁぁい!!((ﾟmﾟ;)
昨日は今日の分があったのに!!なぜ？？？？
嫁「あっ、私が飲んで昨日なくなったよ。」
がーーーーーーーーーーーーんΣ(~∀~||;)
せっかくのブレイクタイムがぁぁぁっぁ∑(ﾟДﾟ)
せっかく、せっかく、せっかくかくかくかくかく
準備万端だったのにぃぃぃ～～
仕方なく、麦茶でティータイム。
あじけねぇ～
今週はほんとに駄目でした。
しかも、明日ゆったり!!と考えていたのですが、
次女の生活発表会を忘れておりました。
もうだめです。
日曜日から新しい1週間になることを祈ります。
マウスポインタの位置取得
Access2003つかっていて、マウスポインタの位置に
フォームを表示させたいって時が来た。
取得方法はやっぱりGoogleで検索！
俺ってGoogleが無いと仕事もできない・・・
とりあえず、Accessにはその機能はもちろん備わって
いない！
そこで、WindowsAPIを使う。
GetCursorPos 関数
良く知れた関数らしい。沢山あった。
まずは、標準モジュールの一番最初に使うよ!!っていう宣言
Public Type POINTAPI
x As Long
Y As Long
End Type
'マウスカーソル（ マウスポインタ）の現在の位置に相当するスクリーン座標を取得します。
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
そして取得する関数をかく！
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'マウスポインタの座標を引数で返します。
'Parameter:ByRef CurX = 高さ位置、ByRef CurY = 横位置
'Return:True=正常、Flase=エラー発生
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function PointArea(ByRef CurX As Long, _
ByRef CurY As Long) As Boolean
PointArea = False
On Error Resume Next
'マウスポインタ位置を設定
Dim wPointApi As POINTAPI
Dim wCurX As Long
Dim wCurY As Long
Dim rc As Long
'現在のマウスポインタ位置を取得
rc = GetCursorPos(wPointApi)
'マウスポインタ位置を設定
With wPointApi
wCurX = .x * 15
wCurY = .Y * 15
End With
CurX = wCurX
CurY = wCurY
PointArea = True
End Function
取得した値に15をかけているのは、ピクセルとポイント
の違いがあるため。
簡単!
関数の戻り値は座標ではなく、取得有無。
座標はXとYの二つなんで、引数で戻すのがいいかなぁ＝？
戻った座標をフォームの開く位置へ入れればいいのだ！
Private Sub SubFormOpen_Click()
Dim CurX As Long
Dim CurY As Long
If PointArea(CurX, CurY) Then
DoCmd.OpenForm "SubFormF"
'ここでフォームの開く位置を指定。
DoCmd.MoveSize CurX, CurY
End If
End Sub
ちょっとちらつくけど、Docmd.Echo Falseなんかで
画面上の表示をキャンセルさせれば、
スムーズになるかなぁ～
以上！仕事の備忘録でした。
Access VBA逆引き大全600の極意―2002/2003/2007対応/高柳 靖子
￥2,520
Amazon.co.jp
フォームを表示させたいって時が来た。
取得方法はやっぱりGoogleで検索！
俺ってGoogleが無いと仕事もできない・・・
とりあえず、Accessにはその機能はもちろん備わって
いない！
そこで、WindowsAPIを使う。
GetCursorPos 関数
良く知れた関数らしい。沢山あった。
まずは、標準モジュールの一番最初に使うよ!!っていう宣言
Public Type POINTAPI
x As Long
Y As Long
End Type
'マウスカーソル（ マウスポインタ）の現在の位置に相当するスクリーン座標を取得します。
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
そして取得する関数をかく！
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
'マウスポインタの座標を引数で返します。
'Parameter:ByRef CurX = 高さ位置、ByRef CurY = 横位置
'Return:True=正常、Flase=エラー発生
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Function PointArea(ByRef CurX As Long, _
ByRef CurY As Long) As Boolean
PointArea = False
On Error Resume Next
'マウスポインタ位置を設定
Dim wPointApi As POINTAPI
Dim wCurX As Long
Dim wCurY As Long
Dim rc As Long
'現在のマウスポインタ位置を取得
rc = GetCursorPos(wPointApi)
'マウスポインタ位置を設定
With wPointApi
wCurX = .x * 15
wCurY = .Y * 15
End With
CurX = wCurX
CurY = wCurY
PointArea = True
End Function
取得した値に15をかけているのは、ピクセルとポイント
の違いがあるため。
簡単!
関数の戻り値は座標ではなく、取得有無。
座標はXとYの二つなんで、引数で戻すのがいいかなぁ＝？
戻った座標をフォームの開く位置へ入れればいいのだ！
Private Sub SubFormOpen_Click()
Dim CurX As Long
Dim CurY As Long
If PointArea(CurX, CurY) Then
DoCmd.OpenForm "SubFormF"
'ここでフォームの開く位置を指定。
DoCmd.MoveSize CurX, CurY
End If
End Sub
ちょっとちらつくけど、Docmd.Echo Falseなんかで
画面上の表示をキャンセルさせれば、
スムーズになるかなぁ～
以上！仕事の備忘録でした。
Access VBA逆引き大全600の極意―2002/2003/2007対応/高柳 靖子
￥2,520
Amazon.co.jp
朝のプチブレイク
今週は朝の安らかなひと時が無い(Ｔ▽Ｔ;)・・・
この瞬間に幸せを感じているのに、なんでだぁ～ヽ(`Д´)ノ
という事で、プチブレイクを敢行!(￣ー￣)
朝起きて、速攻で珈琲2杯分をつくっておく。
歯磨き・洗顔を済ませる。
朝飯と弁当を作る！
娘達を急かす。
洗濯機をまわしておく。
食器を洗っとく。
朝飯を食べる。
着替える。
ここまでで8時5分なら、8時15分までは空き時間!!
やってみると・・・・やっぱりそんなわけには行かない。｡ﾟ(T^T)ﾟ｡
長女は放っておいてもきびきび動いて出かけるのだが、
次女はそうはいかない!
まったり女なので、急かして急かしてなんとかなる
って感じだ。
「ほれ！早く着替えろ～
」
「はい！(￣▽+￣*)」
返事は最高にいい！長女以上だ。
だが、行動が伴わない。
次第に声が大きくなり、急かすのもMAXに！
「うらぁぁぁっぁ～飯食ってさっさといけぇぇぇぇぇぇ＝
」
「はい
」
返事はいい・・・
結局、学校行ったのは7：50分。
それから私の着替えと朝飯。
8：10になってしまった。
でも、一杯だけならいける！(￣ー￣；
という事で、5分間のブレイクタイム～
ん～～すがすがしいあさだねぇ～
そしてすぐに出勤時間!
はぁ～土曜日が待ちどおしぃ～わぁ～
この瞬間に幸せを感じているのに、なんでだぁ～ヽ(`Д´)ノ
という事で、プチブレイクを敢行!(￣ー￣)
朝起きて、速攻で珈琲2杯分をつくっておく。
歯磨き・洗顔を済ませる。
朝飯と弁当を作る！
娘達を急かす。
洗濯機をまわしておく。
食器を洗っとく。
朝飯を食べる。
着替える。
ここまでで8時5分なら、8時15分までは空き時間!!
やってみると・・・・やっぱりそんなわけには行かない。｡ﾟ(T^T)ﾟ｡
長女は放っておいてもきびきび動いて出かけるのだが、
次女はそうはいかない!
まったり女なので、急かして急かしてなんとかなる
って感じだ。
「ほれ！早く着替えろ～
」「はい！(￣▽+￣*)」
返事は最高にいい！長女以上だ。
だが、行動が伴わない。
次第に声が大きくなり、急かすのもMAXに！
「うらぁぁぁっぁ～飯食ってさっさといけぇぇぇぇぇぇ＝
」「はい
」返事はいい・・・
結局、学校行ったのは7：50分。
それから私の着替えと朝飯。
8：10になってしまった。
でも、一杯だけならいける！(￣ー￣；
という事で、5分間のブレイクタイム～
ん～～すがすがしいあさだねぇ～
そしてすぐに出勤時間!
はぁ～土曜日が待ちどおしぃ～わぁ～
疲れたときに簡単なスパ!
お仕事もそうなんですが、家でもちょっと疲れ気味！
だったらもう寝ろよ！って突込みが帰ってきそうですが・・・
長女への意地悪
と次女へのかわいがり
を一通りしないと
眠ってくれないし、ブログもやりたいし、みたいなぁ～
とりあえず、今日はスパゲッティミートソースにしました。
なんと!Σ(ﾟдﾟ;)
レトルトパックのミートソース2つと
パスタ500ｇを茹でただけ!
あまりあわないが、味噌汁は作りましたけど・・・
味噌汁って、食卓にないと気に食わないんですよねぇ～
家族で私だけなんですが・・・
ご飯とおかずだけとかは嫌いなんで・・・
何が出ても味噌汁はかかさない・・・
というわけで、本日の我が家の夕食は、
スパゲッティミートソース
味噌汁
以上!ヽ((◎д◎ ))ゝ
手抜きしました。だらけました。ぼけぼけしました！
すみません。以上でした。
明日は、鍋にしよう!
なんも根拠はないけど、今決めました。
では！
だったらもう寝ろよ！
って突込みが帰ってきそうですが・・・長女への意地悪
と次女へのかわいがりを一通りしないと眠ってくれないし、ブログもやりたいし、みたいなぁ～
とりあえず、今日はスパゲッティミートソースにしました。
なんと!Σ(ﾟдﾟ;)
レトルトパックのミートソース2つと
パスタ500ｇを茹でただけ!
あまりあわないが、味噌汁は作りましたけど・・・
味噌汁って、食卓にないと気に食わないんですよねぇ～
家族で私だけなんですが・・・
ご飯とおかずだけとかは嫌いなんで・・・
何が出ても味噌汁はかかさない・・・
というわけで、本日の我が家の夕食は、
スパゲッティミートソース
味噌汁
以上!ヽ((◎д◎ ))ゝ
手抜きしました。だらけました。ぼけぼけしました！
すみません。以上でした。
明日は、鍋にしよう!
なんも根拠はないけど、今決めました。
では！
嫁ダウン・・・・オレ家事・・・・娘元気百倍!
嫁が風邪でダウンしました・・・
案の定、体ダルダル。(´д｀lll) になって寝込んでます。
私は家事やってま～す。
本日はお買い物して帰宅。
沖縄の水曜日は水曜夕市があるので、帰宅時間がベスト!
マックスバリューで色々かって来ました。
帰宅すると子供達が先に帰ってきており、
「今日はママが早く帰ってるけど・・・寝てる(・・；)」
そうだねぇ～っと喋っている横にパン？
そのパンは？(*_*)
「帰ってきてお腹すいたからパン焼いていた!」
そうかそうか・・・ピーナッツバターまで出てるヽ((◎д◎ ))ゝ
ママは体調がよくないから静かにね
と伝え、しずかに明日の準備。
しかし、そこは毎日合唱の子供達!
NHKのテレビ戦士やみんなのうた♪がはじまると、
相変わらずの合唱!(≡^∇^≡)
「静かにしなさいって言ったでしょうが!」
「そうだったそうだった・・・」
一応静かに。
しかし、毎度のお風呂時間!
やっぱり合唱が始まった！
そして・・・嫁は起きてきた。
あぁ～～あ。起きちゃった。
少しよくなったからお腹に何か入れて薬飲んで
寝るんだって。Zzz…(*´?｀*)｡o○
顔がボ～～～～～～～～。
きつそうだねぇ～
そして子供達がお風呂をあがって姉妹で遊びまくる。
「こらー!静かにさっさと拭いてきなさい！」
叱ったのだが、いつもの調子が抜けないので
そのままの平日の夜をすごしていました。。。
うちの姉妹は特別に元気なんですかねぇ？
ちがいますよね。多分、この年の子はこんなんだろうなぁ～
私もこうだったんだろうなぁ～
ちなみに、ドライヤーをかけているときもいつも通り!
長女が思いつくままにだじゃれ。
妹はその間、髪をタオルで拭きながら絵を描く。
そしてお姉ちゃんと私を行ったりきたり・・・
落ち着きが無い。
はぁ～疲れた。ε=(｡・д・｡)
とりあえず、眠ってくれて、右京さんとREDTHEATERみて
ブログ始めました。
今日もつかれたぁぁぁぁぁぁぁぁっぁあぁぁ～！(´Д｀；)
・・・案の定、体ダルダル。(´д｀lll) になって寝込んでます。
私は家事やってま～す。
本日はお買い物して帰宅
。沖縄の水曜日は水曜夕市があるので、帰宅時間がベスト!
マックスバリューで色々かって来ました。
帰宅すると子供達が先に帰ってきており、
「今日はママが早く帰ってるけど・・・寝てる(・・；)」
そうだねぇ～っと喋っている横にパン？
そのパンは？(*_*)
「帰ってきてお腹すいたからパン焼いていた!」
そうかそうか・・・ピーナッツバターまで出てるヽ((◎д◎ ))ゝ
ママは体調がよくないから静かにね
と伝え、しずかに明日の準備。
しかし、そこは毎日合唱の子供達!
NHKのテレビ戦士やみんなのうた♪がはじまると、
相変わらずの合唱!(≡^∇^≡)
「静かにしなさいって言ったでしょうが!
」「そうだったそうだった・・・」
一応静かに。
しかし、毎度のお風呂時間!
やっぱり合唱が始まった！
そして・・・嫁は起きてきた。
あぁ～～あ。起きちゃった。
少しよくなったからお腹に何か入れて薬飲んで
寝るんだって。Zzz…(*´?｀*)｡o○
顔がボ～～～～～～～～。
きつそうだねぇ～
そして子供達がお風呂をあがって姉妹で遊びまくる。
「こらー!静かにさっさと拭いてきなさい！
」叱ったのだが、いつもの調子が抜けないので
そのままの平日の夜をすごしていました。。。
うちの姉妹は特別に元気なんですかねぇ？
ちがいますよね。多分、この年の子はこんなんだろうなぁ～
私もこうだったんだろうなぁ～
ちなみに、ドライヤーをかけているときもいつも通り!
長女が思いつくままにだじゃれ。
妹はその間、髪をタオルで拭きながら絵を描く。
そしてお姉ちゃんと私を行ったりきたり・・・
落ち着きが無い。
はぁ～疲れた。ε=(｡・д・｡)
とりあえず、眠ってくれて、右京さんとREDTHEATERみて
ブログ始めました。
今日もつかれたぁぁぁぁぁぁぁぁっぁあぁぁ～！(´Д｀；)