Microsoft Access 掲示板

Microsoft Access 掲示板

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

2 コメント
views
4 フォロー
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