مشکل در اجرای کوئری با چندین شرط

[linktaz]

با سلام
دوستان،در فرم گزارش فایل پیوست من چند تا شرط گذاشتم که در صورتی که در صورتی که کمبوباکس ها انتخاب شوند یا خالی باشند اطلاعات توسط کوئری از جدول استخراج بشه ،اما یکی از شرط ها اصلا جواب نمیده و من هیچج ایرادی توی اون نمیبینم.

Untitled.png
شرط واحد متقاضی رو انتخاب میکنم نتیجه کوئری خالیه!
ایراد از کجا میتونه باشه؟

[linktaz]

اساتید کسی کمک نمیکنه؟

[mazoolagh]

طراحی کوئری rep نادرست هست.
باید بصورت پارامتریک طراحی کنین. برای پاس کردن مقدار پارامتر نول هم قبلا نمونه گذاشته بودم.
بعنوان راهنما چند فیلد رو براتون درست کردم. با همین روش بقیه کوئری رو تکمیل کنین.

در ضمن:

• فیلد تاریخ باید بصورت عدد ذخیره بشه
• در اسامی جداول و فرمها و ... علامت - استفاده نکنین
• از کلمات کلیدی مثل date بعنوان اسم فیلد و ... استفاده نکنین

1.png

3.png

2.png

[mazoolagh]

روش ارسال پارامتر به کوئری

Option Compare Database

Option Explicit

Function F1() As Long

Dim qd As QueryDef

Set qd = CurrentDb.QueryDefs("rep_new")

qd.Parameters("@D1") = 910101

qd.Parameters("@D2") = 961230

qd.Parameters("@RunnerID") = 1

qd.Parameters("@Code") = Null

Dim rs As Recordset

Set rs = qd.OpenRecordset

rs.MoveLast

rs.MoveFirst

F1 = rs.RecordCount

rs.Close

Set rs = Nothing

End Function

[mazoolagh]

و برنامه نمونه

[linktaz]

روش ارسال پارامتر به کوئری

Option Compare Database

Option Explicit

Function F1() As Long

Dim qd As QueryDef

Set qd = CurrentDb.QueryDefs("rep_new")

qd.Parameters("@D1") = 910101

qd.Parameters("@D2") = 961230

qd.Parameters("@RunnerID") = 1

qd.Parameters("@Code") = Null

Dim rs As Recordset

Set rs = qd.OpenRecordset

rs.MoveLast

rs.MoveFirst

F1 = rs.RecordCount

rs.Close

Set rs = Nothing

End Function

سلام
جناب mazoolagh من متوجه منظورتون از ارسال پارامتر به کوئری نشدم.میشه بیشتر توضیح بفرمائید

[mazoolagh]

نمونه پیوست میکنم تا نکات تاریک روشن بشه.

بسته به اینکه بخواین نتایج جستجو در فرم یا گزارش بیاد، روشهای مختلفی هست که من برای چند تای اونها نمونه گذاشتم:

4.png

[mazoolagh]

DoCmd.OpenForm "Search_Results_Unbound"

.....
.....

Private Sub Form_Open(Cancel As Integer)

Dim qd As QueryDef

Set qd = CurrentDb.QueryDefs("rep_new")

qd.Parameters("@D1") = Forms!Search!D1

qd.Parameters("@D2") = Forms!Search!D2

qd.Parameters("@RunnerID") = Forms!Search!RunnerID

qd.Parameters("@Code") = Forms!Search!CodeID

Set Me.Recordset = qd.OpenRecordset

End Sub

[mazoolagh]

DoCmd.OpenForm "Search_Results_Unbound_2", , , , , , WHERE

.....
.....

Private Sub Form_Open(Cancel As Integer)

Me.RecordSource = "SELECT * FROM main_tr WHERE " & Me.OpenArgs

End Sub

[mazoolagh]

DoCmd.OpenReport "Search_Results_Unbound", acViewReport, , , , WHERE

.....
.....

Private Sub Report_Open(Cancel As Integer)

Me.RecordSource = "SELECT * FROM main_tr WHERE " & Me.OpenArgs

End Sub

[mazoolagh]

برنامه نمونه