MSアクセスで抽出した結果が何もなかった場合

質問

こんにちは。コンボボックスに入力した言葉でフィルターをかけるため下記のように記載しました。
ヒットした場合は問題ないのですが、ヒットしなかった場合、エラーが出ます。ヒットしなくてもエラーとせず、”ありません”のようにメッセージを出すにはどのようにすればよいのでしょうか？

宜しくお願いします。

Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
Dim DETA1(1 To 10)
i = 1

Set cn = CurrentProject.Connection
Set rs = New ADODB.Recordset

DBnm = Me.CYUSYUTSU.Value
KI = Me.KeyWord2.Value

rs.Open DBnm, cn, adOpenKeyset, adLockOptimistic
'**********************************************
rs.Filter = "Tget='" & KI & "'"

TI = rs!管理番号
NM = rs!名前

Do Until rs.EOF

DETA1(i) = rs!地域

i = i + 1
rs.MoveNext
Loop

回答No.1

o_chi_chi · ベストアンサー

エラーがでるのは

TI = rs!管理番号
NM = rs!名前

上記ですよね。

If Not rs.EOF then
TI = rs!管理番号
NM = rs!名前
Else
Msgbox "ありません。"
'後始末処理
Exit Sub
End If

とすればいいのでは。

お礼

o_chi_chi さん　こんにちは。

確かにエラーが出るのは、o_chi_chi さんがおっしゃられている箇所です。
無事エラーが出なくなり、スムーズに処理が出来るようになりました。

ありがとうございました。