Accessでキー取得 _KeyDown(KeyCode As Integer, Shift As Integer)

====*====*====*====*====*====*====*====*====*====*====*====*====*====*====*=
[ 三流ＰＧ 番外編 今日の一品 No.022 ] 　 2000/04/04 火曜日  発送予定
=*====*====*====*====*====*====*====*====*====*====*====*====*====*====*====
三流ＰＧ 番外編 今日の一品 は 隠し味として、
軽めのＶＢＡ関係のサブルーチンを載せていきたいと思います。
----------------------------------------------------------------------------
Accessでキー取得

新社会人のみなさん、会社にはなれましたか？（オマエが言うなって？、、、）
３の法則？で、
始めの３秒、３分、３時間、３日、３週間、３ヶ月、３年....
にヤマくるので、がんばってください。
次は、３日目を無事乗り切れば、、ＯＫですよ。
＊自分へ一言、、、また、いいかげんなこと言うなぁ、、、

三流の３につなげようとして、うまく文章がつながらなかった、、
文才の無い前置きは、これくらいにして、

In message "キー取得。",
 >以前に配列の高速サーチでお便りを差し上げた者です。
 >その節は大変有難うございました。
 >あの後何やらメール上でいろいろと論議がありまして
 >毎回どきどきしながら読ませて頂きました。
 >
 >ところでまた質問があるのですが、お時間がある時にでも
 >お答え頂けたら幸いです。
 >アクセスのフォームで、あるコントロール（TextBox）に値を入れて、
 >エンターキーを押した時にだけある処理をしたいのですが
 >どの様にエンターキーが押された事を判断すれば良いのでしょうか？
 >Ｔａｂキーで移動された場合には何も処理はしません。
 >カーソルで移動した場合も同様で処理はしません。
 >エンターキーの時だけ処理がしたいのです。
'---------------------------------------------------

テキストボックスF_DATA01,F_DATA02など作成して、
フォーカス喪失時のイベント、キークリック時のイベント
を作成して、テストして下さい。

流れの説明は、いつもの手抜きで、
グローバルに変数、flgRETURNを取り、
キークリック時のイベント(KeyDown)でコードを判断し、
フラグをＯＮ，Ｏｆｆさせ、
フォーカス喪失時のイベント（Exit）で、
立てたフラグを判断して、処理しています。

Option Compare Database
Option Explicit

Dim flgRETURN As Boolean

'フォーカス喪失時のイベント
Private Sub F_DATA01_Exit(Cancel As Integer)

    'リターンで抜けたか判断
    If flgRETURN = True Then
        MsgBox "リターンキーを押しましたねアナタ？"
    Else
        MsgBox "tab や マウスクリックですね？"
    End If

End Sub

'キークリック時のイベント
Private Sub F_DATA01_KeyDown(KeyCode As Integer, Shift As Integer)
    'MsgBox KeyCode  'ここで、リターンキーなど取れるので、判断に使用

    'キーコードが０Ｄか判断してフラグを立てる
    If KeyCode = &HD Then
        flgRETURN = True
    Else
        flgRETURN = False
    End If

End Sub
'---------------------------------------------------------------

余談ですが、下記のイベントもテストしてみてください
'キー入力時のイベント
Private Sub F_DATA01_KeyPress(KeyAscii As Integer)
        
    MsgBox KeyAscii  'ここでは、リターンキーは取れないが、なにか使える？
    
End Sub

イベントにMsgBoxでメッセージを入れて、
タイミングや中身をチェックすると、面白いかも。。。
＊自分へ一言、、、面白いじゃなくて、知っておこうね。。。　

今日の解説もキレが無いと思いつつ、、、
やっぱ、三流だなぁ、、
と声が聞こえてきたところで、このへんで、、
今日も逃げ出す、、、メルマガ発行三ヶ月無事過ぎている（笑） Ｋｅｎ３ でした。

ＰＳ.なんか、愚痴、期待してます、、とメールいただきますが、
　　　そんなに、いつも、事件・事故 起こらないですよ、、、
　　　　なので、少し待っててくださいね、、、

質問や要望、クレームを送る(三流君に連絡する 連絡方法)

質問や要望など連絡方法でお互い確認が取りやすく、便利なのが掲示板なのですが、私の対応のまずさから不定期で荒れてしまい、掲示板は現在封鎖中です。(反省しなきゃ)

感想や質問・要望・苦情など 三流君へメッセージを送る。 時間的余裕のある要望・質問・苦情の場合は、下記のフォームからメッセージを送ることができます。 あなたのお名前（ニックネーム）:さん 返信は？: 不用(HP更新を待つ) , E-mail→ アドレス:に返事をもらいたい ここに 感想や質問・要望・苦情など 三流君へ送るメッセージを 気軽に書いてください (感想や質問・要望・苦情はHPで記事に載せることがあります。)

急ぎで連絡がほしい、そんな時は:[三流君連絡先]に連絡してください。

番外編 愚痴系で書いてた今日の一品 (短いサブ関数など)