اعلام خالی بودن نتیجه جستجو در فرم

[alinoori76]

با سلام
اول بگم که جستجو کردم ولی به نتیجه ای نرسیدم
میخوام نتیجه یک جستجو که بصورت فرم نمایش داده میشود در صورت خالی بودن نتیجه جستجو یک پیغام ظاهر شود

پیشاپیش متشکرم

[Abbas Amiri]

نتیجه یک جستجو یا بصورت کوئری ذخیره شده است ویا بصورت کد سیکیوال است در هردوحالت میتوانید فرم موردنظر را به آن بایند کنید و آنرا نمایش دهید . در هر قسمت از برنامه که می خواهید فرم را صدابزنید قبل ازآن با تابع DCount تعدادرکوردهای کوئری راچک کرده ودر صورت عدم وجود پیغام مناسب را نمایش دهید

[royasaz_bam]

با تشکر از استاد دستور dcount راه حل بسیار مناسبی برای این موضوع میباشد و از آن هم میتوانی برای اعلام تعداد جستجوها نیز استفاده کنی به عکسهای ذیل توجه کن
82948

در اینجا دستور مورد نظر تعدا اقلام جستجو شده را که 3 قلم میباشند را اعلام میکند

و در عکس ذیل
82949

در صورتی که موردی یافت نشود پیام مورد نظر داده میشود که در این عکسها از دستور Dcount استفاده شده بدین ترتیب

ابتدا در قسمت فرمت تکست مربوطه عبارت ذیل را میگزاریم

#" قلم";#;"موجود نیست";"موجود نیست"

سپس یک دستور ذیل را به تکست مربوطه نسبت میدهیم بهتر است آن را در on Change تکست جستجو بگزاریم

Me.Text1 = DCount("[id_kala]", "query1")

توضیح اینکه text1 همان تکست اعلام تعداد جستجو و query1 همان کوری است که نتیجه جستجو در آن نمایش داده می شود

[alinoori76]

با تشکر فراوان از شما استاد عزیز اگر ممکنه یه نمونه بگذارید تا پاسخگوی تمام سوالات باشه . با تشکر

[royasaz_bam]

یافت می نشود
83306
دوست من اینم از نمونه ولی انصافاٌ توضیحات کامل و روان بودند

از بابت تشکرهایی که اساتید برایم گذاشتند هم ممنون و هم متعجبم زیرا که راه حل من همان روشی بود که در پست قبلی اعلام شده بود و تفاوت چندانی نداشت

[Abbas Amiri]

دوست عزیز رویاساز ، همه میدانند که جواب دادن آنهم بصورت کاربردی و مصور زحمت ووقت می برد . اول بایستی بادقت صورت مسئله را فهمید ( که واقعا گاهی اوقات بعضی از دوستان مسئله را به بدترین وجه عنوان می سازند) وسپس راه حل مناسب رابصورت تئوری ودر صورت نیاز عملی بیان کرد. که اگر آنهم بصورت غیرمسقیم باشد به کاربران جهت خودکفایی کمک شایانی می کند ، و شما آخری را خوب انجام می دهید و البته بنده هم بعضا اولی را بد .

[alinoori76]

مرسی از همکاریتون

[ARData]

Private Sub Report_NoData(Cancel As Integer)
On Error Resume Next
Cancel = True
MsgBox ". هيچ ديتايي جهت نمايش گزارش موجود نمي باشد", vbInformation, "خطا"
End Sub