جستجو بر اساس چند گزینه

[saeed1234n]

سلام به دوستان مشتاق برنامه نویسی:تشویق:
دوستان خوبم همانطور که در فایل ضمیمه می بینید می خواهم با قرار دادن چند تکس باکس و کمبو باکس
عملیات جستجو را انجام دهم به صورت زیر :
1- عملیات جستجو با پرکردن یک تکس باکس یا چند تکس باکس و کمبو باکس صورت بگیرد :متفکر:
2- با پاک کردن محتویات بعضی تکسی باکس یا کمبو باکس ها این شرط ها هم اعمال نشود .:متفکر:
نمی دانم تونستم مطلب را برسانم یا نه ! ببخشید آماتوری بد دردی است .:گریه:

[Younestalebi]

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

[saeed1234n]

سلام ، دوستان لینک سالم است . با اکسس 2010 طراحی کردم . خواهشا جوابم را بدهید .

[saeed1234n]

خواهشاً یکی جواب بدهد.

[Younestalebi]

حداقل به 2007 تبدیل کن بعد مجداً پیوست کن

[saeed1234n]

با سلام
می خواهم جستجو به طریق زیر صورت بگیرد :
1- اگر در کمبو نام تیم ، تیمی را انتخاب کردیم جستجو بر این اساس صورت بگیرد .
2- اگر در کمبو نام تیم ، تیمی را وارد کردیم و در تکست تاریخ تحویل زمان شروع و پایان را مقدار دهی کردیم جستجو بر این اساس صورت بگیرد .
3- اگر در کمبو نام تیم ، تیمی را مشخص کردیم و در تکست نام شرکت ، شرکتی را مشخص کردیم ، جستجو بر این اساس صورت بگیرد .
کلاً اگر کمبو یا تکستی را مقدار دهی کردیم یا مجموع یا چند تا از این گزینه ها را دقیقاً جستجو بر آن اساس صورت بگیرد .
از تمامی دوستانی که وقت می گذارند و من وقتشان را می گیرم و محبت می کنند و پاسخ من را می دهند نهایت تشکر را دارم .
فایل تصویری را ضمیمه کردم .

[Abbas Amiri]

فایلتان اصلاح شد . فقط در فرم اصلی ازنامهای بامسما استفاده نکرده بودید.

[saeed1234n]

با تشکر از جناب امیری که مثل همیشه مشکلات ما را پاسخگو هستند .
جناب امیری اگر می شود دستور زیر را توضیح دهید
"(strFilter = "(1
در ضمن یک مقدار در مورد استفاده از " بیشتر توضیح دهید چون من اصلاً چیزی سر در نمی آورم .
خیلی خیلی تشکر .

[saeed1234n]

سلام
بیصبرانه منتظر پاسختان هستم.

[Abbas Amiri]

در دستورات سیکیوال برای مقادیر رشته ای(Memo , Text) بایستی آن مقداریا متغیر بین کوتیشن ویا دابل کوتیشن باشد وبرای تاریخ(Date/Time) بین #تاریخ# باشد ودرغیراینصورت درحین اجرای آن خطا میگیرد
درمورد (1) : درجملاتی که مابین OR و یا AND قرار میگیرند مقدار یک دقیقا مانند عملگرهای منطقی عمل میکند وبا AND شدن هیچ تغییری در بقیه جمله ایجاد نمیکند

[saeed1234n]

فایلتان اصلاح شد . فقط در فرم اصلی ازنامهای بامسما استفاده نکرده بودید.
با سلام خدمت جناب امیری
با عرض معذرت فراوان جناب امیر ی در صورت امکان دستورات ذیل را خط به خط توضیح دهید . خیلی خیلی از بذل توجه شما سپاسگذارم .
Private Function DoFilter()
Dim strFilter As String
If Nz(Combo3, "") <> "" Then
strFilter = "team='" & Combo3 & "'"
Else
strFilter = "(1)"
End If
If Nz(Combo5, "") <> "" Then
strFilter = strFilter & " AND name_sar_team='" & Combo5 & "'"
Else
strFilter = strFilter & " AND (1)"
End If
If Nz(Text11, "") <> "" Then
strFilter = strFilter & " AND date_tahvil>='" & Text11 & "'"
Else
strFilter = strFilter & " AND (1)"
End If
If Nz(Text13, "") <> "" Then
strFilter = strFilter & " AND date_tahvil<='" & Text13 & "'"
Else
strFilter = strFilter & " AND (1)"
End If
If Nz(Text17, "") <> "" Then
strFilter = strFilter & " AND name_sherkat='" & Text17 & "'"
End If

[saeed1234n]

سلام بدوستان خوب برنامه نویس
دوستان پاسخی نیامد ؟

[saeed1234n]

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

[Abbas Amiri]

مثال بالا را میتوانید بصورت زیر خلاصه نمایید .


Private Function DoFilter()
Dim strFilter As String
If Nz(Combo3, "") <> "" Then
strFilter = "team='" & Combo3 & "'"
Else
strFilter = "(1)" ' براي اولين مورد مقدار بي تاثير(1) درصورت نول بودن کنترل فوق قرار داده ميشود تا رشته فيلتر با (اند)شروع نشود
End If
If Nz(Combo5, "") <> "" Then
strFilter = strFilter & " AND name_sar_team='" & Combo5 & "'"
End If
If Nz(Text11, "") <> "" Then 'اگر مقدار تکست 11 غير ازرشته خالي ونول باشد
strFilter = strFilter & " AND date_tahvil>='" & Text11 & "'" ' شرط جديد به رشته فيلتر افزوده شود
End If
If Nz(Text13, "") <> "" Then
strFilter = strFilter & " AND date_tahvil<='" & Text13 & "'"
End If
If Nz(Text17, "") <> "" Then
strFilter = strFilter & " AND name_sherkat='" & Text17 & "'"
End If
Me![qur1 subform].Form.Filter = strFilter
Me![qur1 subform].Form.FilterOn = True
End Function