Excel VBA 質問スレッド №2007 (未解決)
レコードが無い場合
投稿者 : ちー 投稿日時 : 2024/09/04(Wed) 16:18:49 OS : 未指定 EXCEL : 未指定
AccessのVBAになりますが、対象のテーブルにレコードが無い場合は処理を終了するVBAの例を知りたいです。
以下の内容だとエラーになります。
If テーブル名.RecordCount = 0 Then '対象レコードが無い場合
Exit Sub '処理終了
Else
End If
AccessのVBAになりますが、対象のテーブルにレコードが無い場合は処理を終了するVBAの例を知りたいです。
以下の内容だとエラーになります。
If テーブル名.RecordCount = 0 Then '対象レコードが無い場合
Exit Sub '処理終了
Else
End If
スポンサーリンク
[返信 1] Re : レコードが無い場合
投稿者 : gekoTora 投稿日時 : 2024/09/06(Fri) 12:29:51
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("テーブル名")
If rs.EOF And rs.BOF Then
MsgBox "テーブルにレコードがありません。", vbInformation
rs.Close
Set rs = Nothing
Exit Sub
End If
' ここに処理を続ける
' ...
rs.Close
Set rs = Nothing
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("テーブル名")
If rs.EOF And rs.BOF Then
MsgBox "テーブルにレコードがありません。", vbInformation
rs.Close
Set rs = Nothing
Exit Sub
End If
' ここに処理を続ける
' ...
rs.Close
Set rs = Nothing
当掲示板について
- Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
- 記事内ではHTMLのタグは使用できません。
- 記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
- Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
- Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。
スポンサーリンク
返信入力フォーム
( 処理日時 : 2025-07-05 06:04:04 )