Microsoft Access 掲示板

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

2 コメント
views
4 フォロー
2

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

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
通報 ...