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