Microsoft Access 掲示板

Microsoft Access 掲示板

コンボが空ならメッセージ

2 コメント
views
4 フォロー

グループを選択しようとするとき
名前が選択されていなければ、メッセージを出したいと考えています。
（プラス名前選択にフォーカスを移動しようとも考えております）

下記コードを書きましたが、名前が空でもメッセージが出ません。
何が間違っているのでしょうか…？

Private Sub cboグループ_Click()
    If Me.cbo名前ID = "" Then
    MsgBox "先に名前を選択してください。"
    End If
End Sub
風
作成: 2021/02/02 (火) 22:09:18
通報 ...
1
hatena 2021/02/03 (水) 10:18:39

"" ではなく Null なのかもしれません。見た目では区別付かないので。
Nz関数を使えば Nullでも""でもチェックできます。

Private Sub cboグループ_Click()
    If Nz(Me.cbo名前ID) = "" Then
    MsgBox "先に名前を選択してください。"
    End If
End Sub
2
風 2021/02/03 (水) 22:05:16 9099b@e2de4 >> 1

ありがとうございます。やはりメッセージは表示されませんでした。
下記のコードと関係しますか・・？
わからなければこの件はあきらめようと思っています…
とりあえず、大きな問題が発生しているわけではないので

Private Sub cboグループ_Click()
    If Nz(Me.cbo名前ID) = "" Then
    MsgBox "先に名前を選択してください。"
    End If
End Sub

Private Sub cboグループ_Enter()
    Me.cboグループ.Requery
End Sub

Private Sub txtグループ_Enter()
    Me.cboグループ.SetFocus
End Sub