ایجاد فرم جستجوی پیشرفته برای یک گزارش

[hafez313]

74494
سلام

در فایل پیوست من یک جدول،یک گزارش و یک فرم دارم.
طبیعی که گزارش از روی جدول ساخته میشه حالا من می خوام با انتخاب مقادیر در فرم جستجوی پیشرفته گزارشم فیلتر بشه.
چون تعداد فیلد ها زیاد حتما باید تو vb نوشته شه که من بلد نسیتم!
میخوام جوری باشه که اگه فیلدی هم خالی ماند به معنی انتخاب همه موارد باشه.

از اساتید جدا خواهش می کنم راهنمایی کنید.

[hafez313]

یعنی یک نفر پیدا نمیشه کمک کنه؟؟؟؟؟:ناراحت::ناراحت:
مشکلم برای فیلد های تکست تکی حل شد ام برای تاریخ به صورت بازه زمانی هر چه کردم نشد.

[hghb57]

74494




سلام


در فایل پیوست من یک جدول،یک گزارش و یک فرم دارم.
طبیعی که گزارش از روی جدول ساخته میشه حالا من می خوام با انتخاب مقادیر در فرم جستجوی پیشرفته گزارشم فیلتر بشه.
چون تعداد فیلد ها زیاد حتما باید تو vb نوشته شه که من بلد نسیتم!
میخوام جوری باشه که اگه فیلدی هم خالی ماند به معنی انتخاب همه موارد باشه.


از اساتید جدا خواهش می کنم راهنمایی کنید.



فايل را برات اصلاح كردم
فقط در زمان طراحي فرم به نام گذاري اشيا دقت كن تا نام اشيا مفهوم باشد

[hafez313]

جناب hghb57 دم شما گرم و ممنون از راهنمایی تون. اما دو سوال و یک اشکال.
توی سرچ بازه رمانی یقینا مشکل داره یعنی درست فیلتر نمی کنه.
کد:
n = Len(stLinkCriteria)
If n > 0 Then stLinkCriteria = Left(stLinkCriteria, n - 5)
برای چیه و چی کار میکنه؟
برای پاک کردن فرم جستجو از همهی نوشته باید از چه کدی استفاد کرد.

[hafez313]

یا مشکل ار خود اکسس است یا از کد وارد شده. چون در حالتی که در access options> advanced> use hijri calender تیک حورده باشه اصلا کار نمی کنه. واگر تیک نخوده باشه تو 80% موارد کار می نه اما تو 20% دیگه کار نمی کنه!!!:متعجب:

لطفا بررسی کنید.

[hghb57]

جناب hghb57 دم شما گرم و ممنون از راهنمایی تون. اما دو سوال و یک اشکال.
توی سرچ بازه رمانی یقینا مشکل داره یعنی درست فیلتر نمی کنه.
کد:
n = Len(stLinkCriteria)
If n > 0 Then stLinkCriteria = Left(stLinkCriteria, n - 5)
برای چیه و چی کار میکنه؟
برای پاک کردن فرم جستجو از همهی نوشته باید از چه کدی استفاد کرد.

1- من در جستجوي بازه زماني مشكلي نديدم (از Access 2007 استفاده مي كنم)
2- در زمان محاسبه فيلتر (stLinkCriteria) بعد از اضافه كردن هر عبارت كلمه " AND " را هم اضافه مي كند كه آخرين AND بايد پاك شود اما در زماني كه هيچ نوع فيلتري وجود ندارد عبارت " AND " هم وجود ندارد
عبارت " AND " پنج كاركتر دارد
براي پاك كردن فرم جستجو من كد خاصي بلد نيستم و مقدار همه موارد را برابر Null قرار مي دهم. اگر كسي كد خاصي بلد است به من هم ياد بدهد

[hafez313]

جناب hghb57 شما یک بار با تقویم میلادی بازه انتخاب کن و نتیجه رو ببین در همون حال در مسیرaccess options> advanced> use hijri calender تیک را بزن و دوباره نتیجه رو بررسی کن خواهی دید که هیچ چیز نشان نمی دهد.

[hghb57]

جناب hghb57 شما یک بار با تقویم میلادی بازه انتخاب کن و نتیجه رو ببین در همون حال در مسیرaccess options> advanced> use hijri calender تیک را بزن و دوباره نتیجه رو بررسی کن خواهی دید که هیچ چیز نشان نمی دهد.
در قسمت مربوط به تعريف محدوديت هاي تاريخي به جاي استفاده از # از تابع CDbl استفاده كنيد (از خط 18 تا 21) مثلا:

If Not IsNull(Text12) Then stLinkCriteria = stLinkCriteria & "([dateofsend]>= " & CDbl(Text12) & " ) AND "

[hafez313]

دوست من آقای hghb57 از لطف شما منونم توی اکسس کار می کنه اما توی اکسس پراجکت نه! نمی دوم شما با اکسس پراجکت و فرق کد هاش با اکسس آشنا هستید یا نه. خواهشا این رو هم بررسی نمایید.

چند تا تاپیک راجه به این موضوع دیدم اما چیز دستگیرم نشد شاید شما با دیدی که داری بدرت بخوره:

http://barnamenevis.org/showthread.php?t=62465
http://barnamenevis.org/showthread.php?t=59246
http://barnamenevis.org/showthread.php?t=59123
http://barnamenevis.org/showthread.php?t=54135

پانوشت______________________________________ ______________________________________
برای کار با اکسس پروجکت نیاز به SQL server (فرقی نمی کنه 2000 تا 2008) دارید و باید فایل رو با فرمت ADP ذخیره کنید.(موقعی که اتدا می خوایید فایل رو ایجاد کنید این فرمت رو انتخاب کنید.)

[hghb57]

متاسفم
من اطلاعي از اكسس پراجكت ندارم