リトライする

'*******************************
'* DBコネクションを返却する
'*******************************
Public Function getDbConServer() As ADODB.Connection
    Dim errCnt%: errCnt = 0
On Error GoTo LBL_Err

Retry:
    If Len(MyConnectionStr$) = 0 Then
        Call setConnectionStr$
    End If

    'オブジェクト生成
    Dim cn As ADODB.Connection: Set cn = New ADODB.Connection
    cn.Open MyConnectionStr$    'DBオープン
    
    Set getDbConServer = cn
    Exit Function
    
LBL_Err:
    Dim erNum: erNum = Err.Number
    Dim erMsg$: erMsg = "getDbConServer:" & Err.Description
    objlog.Error erMsg
    errCnt = errCnt + 1
    If errCnt > 5 Then
        Err.Raise Number:=erNum, Description:=erMsg
    End If
    Call WaitSec(30)
    Resume Retry
    
End Function

ダブルクリックが出来ない人

windowsが出始めた頃、ダブルクリックとかドラッグが出来ない人が結構いた

自分自身も　マウスパッドを超えて　操作していたように思う

なので、UIとして、ダブルクリックっていうのは無い方が良いのだろうけど

そうなると、表形式の画面で、行を選択するような操作って、どうなるんだろうか？

各行にシングルクリック可能なボタン的なアイテムを置くのが良いのだろうか？

非協力的だったり、ルールを守れない人はどうすれば良いでしょうか？

お客さんとの約束も守れない人は

いったい、何がしたいんだろうか？

repayment

報恩をgoogle翻訳すると、repaymentと表示された

返済すると言うのは、少し奇妙に感じるが、、

返済する年齢になったのかなと思う

連日の水害ボランティア活動のニュースを見ていて

なんとなく思った。。

今、在るのは、ご縁のおかげだなぁ、、

真実はひとつ

全力を出さなかったら、きっと後悔する。

だから全力を出そう

後で、悔やむ人生なんて糞っ喰らえだ！

3セット繰り返すだけで一瞬で眠れるようになるらしい

4秒かけて鼻から息を吸い込み
7秒間呼吸を止め
8秒かけて口から息を吐く

脳の使い方かなと思う

ダメな人は、無駄な操作が多い

まず、いつも探している

昨日の資料を探すことから始めている

なぜ、メモを取らないのか、意味が解らない

なぜ、ブックマークをしないのか？

で、特徴的なのは、

意味のない操作を常にしている

関係のない、資料を開いたまま、

マウスをぐりぐり動かしている

まったく、意味がないように見える

そんなところに脳を使ってしまうから、疲れてしまうようにみえる

そこじゃないなぁ~って