Microsoft Access 掲示板

Microsoft Access 掲示板

入力するまでフォーカスを移動させない方法はないでしょうか？ / 1

8 コメント
views
4 フォロー
1
hatena 2022/02/12 (土) 23:06:59

LostFocusではイベントをキャンセルできませんので、Exitイベントを使ってください。

Private Sub フィールドAテキスト_Exit(Cancel As Integer)
    '入力チェック
    If Nz(Me.フィールドAテキスト.Value) = "" Then
        MsgBox "入力して下さいよ"
        Cancel = True 'イベントキャンセル
    End If
End Sub

自動生成されるイベントプロシージャの引数に Cancel As Integer がある場合は Cancel = True でイベントのキャンセルが可能です。LostFocusのイベントプロシージャは引数がないのでキャンセルはできません。

通報 ...