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でメッセージを入れて、
タイミングや中身をチェックすると、面白いかも。。。
＊自分へ一言、、、面白いじゃなくて、知っておこうね。。。　

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

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

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を