移行作業

やっとデータ移行作業にケリがついたぁ

移行期間が短かったし、移行元の仕様も不明。

なんと移行先の仕様も提示されないぃぃ

さらに、業務を知っている人間は忙しくて対応できない

移行元のデータはなんとか抽出できたけど

当然、移行先と移行元ではデータ構造が全く異なる訳で・・・

結局マンパワーでの入力作業orz

もっと時間があれば解析もできたけど、運用開始まで時間がないし
（移行と実運用の平行と言う恐ろしい行程w)
抽出したデータの加工で精一杯。

もう、仕様のわからないデータ移行はしたくないなぁ

せめて、ER図が移行先製造元から欲しかった

おかげで少し対象業務の知識を拾えましたw

障害厚生年金の手続きへ その４

今日、障害厚生年金の認定通知がきました。

３級で認定されました。

とりあえず年に幾らかの障害年金の支給は受けられそうです。

しかし、横向きで寝るとまだICDが気になるし、

少し歩いただけでもすぐ疲れてしまいます。

この状態でこれから過ごしていかないと駄目なんだろうなぁ・・・

まだ子供が大きくなるまで三途の川を渡るわけにもいかないので

ゆるゆると生きてゆきますw

MS-ACCESSのソース管理用アドインをUPDATE

以前、ちらっと紹介したACCESS管理用アドイン
（主要オブジェクトをテキスト出力するだけだけどw）

若干の改修をして公開しました。

たいした改修じゃない（仕事先で要望があったのでw）から
どうしようか迷ったけど、とりあえずUPしました。

対象はACCESS2003以降、2010での動作確認まではしました。

２、３時間の改修なので別に性能UPって訳じゃないです。

結構、知れ渡っている「SaveAsText」ってやつを使用しているだけです。

ソースはお見せするほどの出来では無い為、恥ずかしくて公開してません。

ダウンロードは
http://www.vector.co.jp/soft/winnt/business/se495956.html
よりできます。　笑ってやってくだせい。

生命保険金（入院・手術特約） その後

去年末にJAに連絡して再査定してもらった結果の連絡がありました。

開胸手術が認められ手術による保険金が大幅UPしました。

でも、これって見逃しそうだよなぁ。。。。

明細も送られてこないし（一括でいくらって通知はきましたが）

手術された方は受取った保険料を見たほうが良いよ。

結構、簡単な手続きだし（電話一本で）

また、保険会社に渡す医師の診断書もコピーしておく事を勧めます。

妻に「このお金でPC新調しちゃ駄目」って先手打たれたw

ACCESSの実行画面をMSペイントに出力

たまには技術ネタも書け！とお叱りを受けそうなのでw

ACCESSを使用したシステムでハードコピーをボタン等でしたい。
出来たハードコピーはペイントで見たい との案件。
とりあえず思いついたのがクリップボード経由での受け渡し。
ただ出力先がMSペイント指定なのでめんどくさい。
しかもACCESSにクリップボード操作はサポートされてないようだし。

安直に
[prt sc]を画面から投げてクリップボードに画面コピー後
MSペイントを起動させて[Ctr+v]を投げる事を考えた。

最初 SendKeysで[scr sc]を投げたけど取れない。
ググったらどうも使えない事があるらしい。
めんどくさいけどAPIを一部使用。

以下がそのソース（簡易版w）

--------------------------------------------------------------------------------------
Option Compare Database

Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'画面をクリップボードにコピー
Public Sub subGetSnapShot()
   
    '[prt sc]Key 送信
    Call keybd_event(CByte(vbKeySnapshot), 0, 0, 0)
    Call keybd_event(CByte(vbKeySnapshot), 0, 2, 0)
   
End Sub

'ペイント起動後、クリップボードをペースト
Public Sub subOutClipBord()

    Dim objShell    As New WSHShell
    Dim objExe      As WshExec
   
    'MSPaint起動
    Set objExe = objShell.Exec("mspaint.exe")
   
    '起動待ち
    Do Until objShell.AppActivate(objExe.ProcessID)
    Loop
   
    '[Ctr+V]key 送信
    SendKeys "^v"
   
    '参照破棄
    Set objExe = Nothing
    Set objShell = Nothing

End Sub

'画面をペイントに出力
Public Sub subOutForm()

    '画面取得
    Call subGetSnapShot
   
    '制御をWindowsに一時戻す
    DoEvents
   
    'ペイントへ出力
    Call subOutClipBord

End Sub
--------------------------------------------------------------------------------------

参照設定に[Windows Script Host Object Model]を設定して
画面から上記[subOutForm]をコールすればとりあえず動くはず^_^;

マシンのスペックが古いと時間が掛かりますし
実行中の操作で不具合が発生する可能性もありますがw
参考程度に(^^ゞ

試行錯誤してたから１日掛かったorz・・・