Nicotto Town



【Access】VBAにてレコード件数検索


Private Sub Form_Load()

If Me.Recordset.RecordCount = 0 Then
MsgBox "1件もデータが検索されませんでした。", vbOKOnly

End If

End Sub


--------------------------------------------------
フォーム起動時、レコードが1件も検出されなかった場合。
フォームレコードソースをクエリにしておくことが前提。




Copyright © 2025 SMILE-LAB Co., Ltd. All Rights Reserved.