جستجوی بین دو تاریخ

[baran_m]

سلام دوستان
من یک برنامه دارم که میخوام در قسمت جستجو دو تاریخ رو از کاربر بگیره( از تاریخ ...... تا تاریخ ......) و بر مبنای تاریخ ها گزارش رو تهیه کنه مباحث قبلی رو گشتم اما جستجو برای تاریخ پیدا نکردم لطفا راهنمایی کنید یا اگه نمونه دارید ممنون میشم. :لبخندساده:

[wolfstander]

شما باید یک فرم درست کنید و توش دو تا تکست باکس بندازید
بعدش در قسمت Criteria مربوط به کوئری خودتون ؛ کد زیر رو وارد کنید

between form1!.text1 and Form1.Text2

این همون موردیه که شما میخواید

[baran_m]

شما باید یک فرم درست کنید و توش دو تا تکست باکس بندازید
بعدش در قسمت Criteria مربوط به کوئری خودتون ؛ کد زیر رو وارد کنید

between form1!.text1 and Form1.Text2

این همون موردیه که شما میخواید

مرسی اما این دستور و که نوشتم پیغام زیرو میده
The expression you entered has an invalid.(dot) or ! operator or invalid parentheses.
you may have entered an invalid identifier or typed parentheses following the Null constant.

میشه یه نمونه بذارید؟

[wolfstander]

دوست عزیز
فکر کنم شما باید یه نمونه بذاری، که ما هم بتونیم کمکت کنیم
وگرنه من بشینم یه جدول درست کنم
یه ریپورت درست کنم
یه فرم درست کنم
یه کوئری درست کنم
کد هم بنویسم
فکر نمیکنی این میشه یه پروژه کامل؟
شما نمونه ات رو درست کن و بذار، من برات تکمیلش میکنم

[stabesh]

با اجازه
دستورتون به این صورت اصلاح کنید


between Forms!Form1!Text1 and Forms!Form1!Text2

[c4soft]

یا سلام و احترام به پاسخ دوستان عزیز

لطفا بدین ترتیب عمل کنید :

1 - یک Query بسازید و در قسمت Criteria فیلد مورد نظرتون اینو بنویسید :
>=[forms]![Form_name]![Text1] And <=[forms]![Form_name]![Text2]
در قسمت Form_name نام فرمی که میخواهید جستجو از اونجا صورت بگیره رو تایپ کنید و Text1 یعنی از تاریخ و Text2 یعنی تا تاریخ .

2 - یک باتون با نام cmdReport بعلاوه ی دو Textbox به فرمتون با نام های Text1 و Text2 با توجه به توضیحات بالا اضافه کنید.

3 - در رویداد onclik باتون دستور زیر رو بنویسید:

On Error GoTo Err_cmdReport_Click

Dim stDocName As String

stDocName = "Report_name"


If Len(Me.Text1 & vbNullString) = 0 Or Len(Me.Text2 & vbNullString) = 0 Then
MsgBox "Your Msg", _
vbInformation, "Your Title"
Exit Sub
Else
DoCmd.OpenReport stDocName, acPreview
End If
Exit_cmdReport_Click:
Exit Sub

Err_cmdReport_Click:
MsgBox Err.Description
Resume Exit_cmdReport_Click

در قسمت Report_name نام صفحه ی گزارشتون رو تایپ کنید.
در قسمت Your Msg پیام مورد نظرتون رو در صورت خالی موندن یکی از Textbox ها تایپ کنید.
در قمست Your Title تیتر پنجره پیامتون رو تایپ کنید.

در ضمن در قسمت Input Mask هر کدوم از Text ها فرمت تاریخ رو ایجاد کنید.

با تشکر

[payman_xxp]

سلام دوستان
من یک برنامه دارم که میخوام در قسمت جستجو دو تاریخ رو از کاربر بگیره( از تاریخ ...... تا تاریخ ......) و بر مبنای تاریخ ها گزارش رو تهیه کنه مباحث قبلی رو گشتم اما جستجو برای تاریخ پیدا نکردم لطفا راهنمایی کنید یا اگه نمونه دارید ممنون میشم. :لبخندساده:

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

[abi_hf]

سلام
من هم يه مشكل مثل همين دارم
اما يه تفاوت داره
من بجز تاريخ ها يه پارامتر ديگه هم كه تكست باشه دارم كه اونم ملاكه، يعني مثلاً بگه از تاريخ فلان تا تاريخ فلان به مقصد فلان رو نمايش بده.
ميشه يه راهنمايي بكنين؟

[payman_xxp]

سلام
من هم يه مشكل مثل همين دارم
اما يه تفاوت داره
من بجز تاريخ ها يه پارامتر ديگه هم كه تكست باشه دارم كه اونم ملاكه، يعني مثلاً بگه از تاريخ فلان تا تاريخ فلان به مقصد فلان رو نمايش بده.
ميشه يه راهنمايي بكنين؟

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

[abi_hf]

سلام پيمان جان
من اين كومبو رو اضافه كردم اما نميشه ازش استفاده كرد.
ميشه يه نمونه برام بزاري لطفاً؟

[payman_xxp]

سلام پيمان جان
من اين كومبو رو اضافه كردم اما نميشه ازش استفاده كرد.
ميشه يه نمونه برام بزاري لطفاً؟

سلام
نمونه را ببینید.
موفق باشید.

[payman_xxp]

سلام پيمان جان
من اين كومبو رو اضافه كردم اما نميشه ازش استفاده كرد.
ميشه يه نمونه برام بزاري لطفاً؟

سلام abi_hf جان

مشکل حل شد!؟
تغییرات دیگه ای لازمه؟
موفق باشید.