３月９日のザクの日はすぎましたが

MG　MS-06J ZAKUII WHITE OGRE　です

戦地にでたら野外放置になるでしょうから、けっこうサビ表現をいれました

フェースブックのカバー写真用に撮影。

スマホ用

 

良い感じで錆びてます(´▽｀*)

 

狙いを定めて！

 

 

棒立ち・・・

 

 


途中の筆塗りをあげてみた。

 

次はきれいなのを作りたいですが、４月６日のジムの日もあるのよね

 

(｀･ω･´)ゞ

 

 

 

 

 

 

アゴのしびれがとれない


アバラの骨折は大分良くなりましたが、今年はかなりついてない。
歯が痛くなったのでおやしらずをぬいてもらって、下アゴがの皮膚がしびれ、耳と眼球の奥がずっといたい。
したアゴの骨に腫瘍があるらしく2月の頭に検査です。
オトガイって箇所にレントゲンで丸い影がありました。
パソコンもろくにできませんが、電話も難しいのでご勘弁を。
あわよくば 、良性であってほしいけど喉頭がんってすぐいくらしいのでその時はあきらめるしかないので深くは考えない様にしときます。

雪はそれほど積もらず

ここは標高５００ｍですが雪は10センチぐらいしかないです。
道路もそれなりに凍っているみたいなのでご注意を。
20センチぐらい道路に積もらないと除雪しないのがこちらでは普通ですので県道2号線を走行するさいはお覚悟を(｀･ω･´)ゞ


近くの温泉へ

家から30分でつく
スパ羅漢　へ。
骨折してるせいか腰痛ぎみになったので。


道の駅も兼ねているのでお客さんも結構います。
温泉650円、露天、打たせ湯、泡、ジェット、サウナあり。
スキー場の帰りによく寄ってました。
お土産見てたら酒粕発見！

金冠黒松さんの酒粕だったので早速購入。
甘口で香りが良いので甘酒にしたら最高です。

腰の痛みも引いたので帰って甘酒作ります。

(｀･ω･´)ゞ

ポキってた(´・ω・｀)

あまりに痛いので病院行ったら右脇腹の８番目が折れてた
(´；ω；｀)
この辺の骨は咳き込んでも折れる時もあるらしい…
それなりに激痛がくるし、基本放置プレイになるので、なるもんじゃないです
こんな石の上に落ちる人なんて早々いないですが(｀･ω･´)ゞ






年明け早々動けません(´・ω・｀)

明けましておめでとうございます
年末の川に転落以降可動制限がかかっており動けません。
歩く、話す、立つ、座る、寝転ぶ、咳をする等、動くたびに右脇腹から激痛が(´；ω；｀)
通常日になったらやっぱり病院に行こうかと
おっさんの写真あげても気持ち悪いので家猫でもいやされてます



草刈中に川に転落

コケですべって落ちました。
落ちる途中にかやの束にあたって背中からとがった岩の上に右脇腹下を強打。
なんとか家まで帰って着替えました。
まだ右手右足を動かすと全身に痛みがきます。
背骨だったらかなりやばかったかも。
外傷もなかったので打ち身でしょうけど正月はおとなしくしときます。
今年はバスにはねられ（無傷）、
トラクターごと田んぼに落ち（無傷）
とどめで川に落ちる。（今回が一番痛い）
どれも致命傷にならず逆に運が良いのかも。
これくらいでは病院にはいきませんよ
(｀･ω･´)ゞ


明日引上げます。


こんにゃく芋ですが、残り少なくなりました。
正月前には引上げます。
明日の夕方には引上げます。
ふれあい市場、マロンの里どちらもクリスマスが終わると良く売れました。
引上げたこんにゃく芋はサンプル作りに使用します。
場所が分かる方はお早めに(・∀・)
５００ｇで２キロ作れるのでお得ですよ
(｀･ω･´)ゞ

Accessでツリービュー表示

前回エクセルで作成したデータをAccessのテーブルに張り付けツリービューで表示してみました。

分かりにくいので動画を適当に作成。

VBAでのプログラムは超簡単！

 

Private Sub Form_Load()
    'フォーム読み込み時

  Dim dbs As Database
  Dim rst As Recordset
  Dim nod As Node
  
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset("SELECT * FROM mst_category")
  
  With Me.TreeView
    'ルートにもラインを表示
    .LineStyle = tvwRootLines
    'ラベルの編集を不可とする
    .LabelEdit = 1
    With .Nodes
      'すべてのノードをクリア
      .Clear
      'ルートノードを追加
    Set nod = .Add(, , "c" & CStr(rst!Node), rst!category_name)
    rst.MoveNext
      '全レコードをノードとして追加
      Do Until rst.EOF
        
        Set nod = .Add("c" & CStr(rst!up_node), tvwChild, "c" & CStr(rst!Node), rst!category_name)
        rst.MoveNext
      Loop
    End With
  End With
  rst.Close
  

End Sub

 

これだけで表示出来ちゃいます！

 

毎度のごとくチョンプロなのでご勘弁を(｀･ω･´)ゞ