CMD.Executeの結果をメッセージボックスで表示したい

質問

Public Sub SQLActionCmd()
　　　 Dim CN As ADODB.Connection
　　　 Dim CMD As ADODB.Command
　　　 Dim MYSQL As String

　　　 '接続
　　　 Set CN = CurrentProject.Connection

　　　 '更新
　　　 MYSQL = "SELECT * FROM 名簿 WEHRE 性別 = "男" ;"
　　　 Set CMD = New ADODB.Command
　　　 CMD.ActiveConnection = CN
　　　 CMD.CommandText = MYSQL
　　　 CMD.Execute

　　　'終了
　　　 Set CMD = Nothing
　　　 RS.Close: Set RS = Nothing
　　　 CN.Close: Set CN = Nothing
　　　End Sub

と言う感じで実際にはAccessのフォームのボタンをクリックしたタイミングでコードをかいているのですが、このCMD.EXECUTEを実行した結果、テーブルに該当データがなければない旨のメッセージボックスを出したいのです。
そういうことは可能でしょうか？

回答No.1

nicotinism · ベストアンサー

Dcount("*","名簿","[性別] = '男'") = 0
とか
レコードセットを開いて、BOF と EOF がTrueの場合
で条件分岐させて
クエリを開いては？

お礼

dcountをつかって挑戦してみます！
勉強したてでうまくいくか自信がないのですが、がんばります。ありがとうございました。