لدي استعلام تحديد وبه معيار للبحث عن أسماء معينة ( مثلا )ولكن فى بعض الأحيان قد تكون البيانات غير موجودة أي غير مطابقة للمعيار الموضوع ونتيجة ذلك ظهور الاستعلام أو النموذج فارغ
المطلوب : بدلاً من ظهور النموذج الفارغ ظهور رسالة كمثال : للأسف لا توجد بيانات !!!
هل من طريقة غير الكود
أعانكم الله علينا
أشرف
الأخ أشرف السلام عليكم
أكتب هذا الأجراء عند الفتح ( فتح النموذج المبني على الأستعلام )
Dim tmprs As Recordset
Set tmprs = Me.RecordsetClone
If tmprs.RecordCount = 0 Then
MsgBox "عفواً لا يوجد شيء من البيانات .. حاول مرة أخرى"
Cancel = True
End If
آمل أن يكون واضح ..
AMOTAIB@HOTMAIL.COM
للتواصل عبر المسنجر
الأخ العزيز فتى الوادي
يبدو أنك فتى صحيح
أولا: أعتذر عن تأخري بالرد لسفري خارج مديني لبعض العمل
ثانيا : شكرا على الرد فكان شافيا ولكن تظهر رسالة وهي
تم إلغاء الإجراء open form فهل لأنه لم يتم فتح النموذج والأفضل ألا تظهر هذه الرسالة
أشرف
السلام عليكم ورحمة الله وبركاته
في هذي الوصله يوجد مثال على ذلك
http://arabteam.nicmatic.com/vb/showthread...3?threadid=3397
وتقبل تحياتي / مسافر
هذا الموضوع مغلق.