اخوي
بما انك تستخدم استعلام
قم بنسخ الكود التالي وضعه في حدث عند النقر للزر بحث
كود
If DCount("*", "Basic data") = 0 Then
MsgBox "No Data Found..., Please try again", vbOKOnly, "Search Results"
End If
الصراحه لم استطع تنفيذه على المثال المرفق لوجود كائنات لها اسم باللغه العربيه
ولم استطع تحديد اذا كان البحث عن طريق مربع النص او عن طريق مربعات الحوار التي تظهر عند استعراض النموذج
بامكانك تغيير النص الذي سوف يظهر الموجود في الاعلى الى اللغه العربيه