ACCESSのSetFocus、型変換、SELECTした値の表示について。

Question

ACCESSについての質問です。３つあります。

１．SetFocusについて
コンボボックスで値を選択し、エンターキーを押した時に入力チェックをし、
エラーであれば再度、同じコンボボックスをフォーカスしたいと思っています。

Private Sub コンボ_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode <> vbKeyReturn Or vbKeyTab Then
        KeyCode = 0 

    'Enter押下時のチェック処理
    ElseIf KeyCode = vbKeyReturn Then

        If コンボ = 0 Then
            MsgBox "エラー"
            コンボ.SetFocus
        End If        
    End If
End Sub

例えば上記のようなコードを書いたのですが、普通に次のフィールドに移ります。
どうすればその場にカーソルが留まりますでしょうか？

２．Date型から数値型への変換について
テキストボックスに、初期値でyyyy/mm/ddの形式で現在時刻を表示し、
カーソルがあったら８桁の数字を表示。離れたら再度yyyy/mm/ddにしたいと考えてます。

Private Sub 日時_Click()

Me.日時 = Format(Me.日時, "00000000") '1
Me.日時 = Format(Me.日時, "yyyymmdd") '2

End Sub

'1の場合は、2017/03/16が、05332321みたいに変な値に…
'2の場合は、オーバーライドした、とのエラーが発生します。

どうしたら、2017/03/16が、20170316のように変換されますでしょうか。

３．SQLで取得した値を画面に表示する場合（コードの記述で）

        Dim cn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim mySQL As String

        Set cn = CurrentProject.Connection
        Set rs = New ADODB.Recordset

        mySQL = "SELECT mojiB FROM TableA WHERE moji = '" & コンボ.Value & "';"
        rs.Open mySQL, cn
            テキストA = rs!mojiB
        Exit Sub

上記のようなコードを記述して、テキストAにTableAから抽出したmojiBを表示したいのですが、表示されません。
こちらもどうしたらよいのか教えて頂きたいです。

Answer 1

###１．SetFocusについて

入力チェックは、通常は更新前処理のイベントで行います。
現状のコードだとエンターキーを押したときのみ入力チェックを行うようですが、
それでいいのでしょうか。
エンターキー以外のキー（矢印キーなど）やマウスクリックでフォーカス移動したときは、入力チェックせずに確定されてしまいますが。

もし、それでいいということなら、

    'Enter押下時のチェック処理
    ElseIf KeyCode = vbKeyReturn Then

        If Me.コンボ = 0 Then
            KeyCode = 0 
            MsgBox "エラー"
        End If        
    End If

とすればエンターキーの入力をキャンセルできるので、カーソルは留まります。
KeyCode = 0 がキー入力のキャンセルです。

ちなみに、エンターキー以外でも入力チェックを行いたい場合は、

Private Sub コンボ_BeforeUpdate(Cancel As Integer)
    If Me.コンボ = 0 Then
        Cancel = True
        MsgBox "エラー"
    End If
End Sub

Cancel = True で更新イベントがキャンセルされ、カーソルは留まります。

###２．Date型から数値型への変換について

このテキストボックスは連結コントロールですか、非連結コントロールですか。
連結コントロールなら連結しているフィールドのデータ型はなんですか（数値型 or 日付/時刻型）

連結コントロールで、連結しているフィールドが数値型ということなら、
書式プロパティを、

0000/00/00

と設定するだけで希望の結果になります。
非連結でも同様の設定でOKです。
VBAは必要ありません。

###３．SQLで取得した値を画面に表示する場合（コードの記述で）

コード自体は問題ないです。

SQLが正しくないか、条件に合致するレコードがないかのどちらかではないですか。

     Debug.Print mySQL 'SQLが正しいか確認
     rs.Open mySQL, cn
     Debug.Print rs.RecordCount 'レコード件数の確認

というようにデバッグコードを挿入してイミディエイトウィンドウで結果を確認してみてください。

Comments

[makino]

３つとも解答、しかもアドバイスまで頂いてありがとうございました！！
１はCancel = Trueを使うことにしました。
他2つも問題なく動くようになったので大感謝です。