مشکل در گزارشگیری پیشرفته

[rashidianc]

با سلام خدمت اساتید محترم من مدتیه با استفاده از مثالهای همین سایت یک گزارش را کاملترش کردم . ولی مشکلی دارم . در گزارشم هر بار که میخام تاریخ خاصی را فیلتر کنم حتمن باید تمام کمبوهای موجود در فرم گزارش رکوردش را براش انتخاب کنم در غیر اینصورت با پیغام زیر مواجه میشم . به علت سنگینی بانکم نتونستم رو سایت بزارمش ولی تمام کد مربوط به گزارش را گزاشتم . لطفن بگید در کد نویسی چه تغییراتی بدم که به این پیغام نرسم ؟ یعنی من با انتخاب تاریخ و انتخاب یکی از کمبوهام بتونم گزارش مربوطه را بگیرم . با تشکر فراوان
88679


Option Compare Database
Private Sub CBcoName_Enter()
CBcoName.RowSource = "SELECT DISTINCT coName FROM bank where (date between CBdate1 and CBdate2);"
End Sub
Private Sub btnDo_Click()
On Error GoTo Err_btnDo_Click
Dim stDocName As String
Dim stWhere As String


Report_rpt.FilterOn = True
stDocName = "rpt"
'stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and CBend = '" + cbEnd + "'"
If (Not IsNull(CBend.value)) Then
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and onvan = '" + CBend + "'"
Else
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "'"
End If
'stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and combo38 = '" + combo38 + "'"
If (Not IsNull(CBend.value)) Then
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and vazeyat = '" + Combo38 + "'"
Else
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "'"
End If
'stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and combo34 = '" + combo34 + "'"
If (Not IsNull(CBend.value)) Then
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and erja = '" + Combo34 + "'"
Else
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "'"
End If


'stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and combo36 = '" + combo36 + "'"
If (Not IsNull(CBend.value)) Then
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "' and sabt = '" + Combo36 + "'"
Else
stWhere = "date between '" + CBdate1 + "' and '" + CBdate2 + "'"
End If
DoCmd.OpenReport stDocName, acPreview, , stWhere


Exit_Ryarane_Click:
Exit Sub
Err_btnDo_Click:
MsgBox Err.Description
End Sub
Private Sub btnDo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
btnDo.SpecialEffect = 2
End Sub
Private Sub btnDo_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
btnDo.SpecialEffect = 1
End Sub


Private Sub CBend_Enter()
CBend.RowSource = "SELECT DISTINCT onvan FROM bank where (date between CBdate1 and CBdate2);"
End Sub
Private Sub Combo38_Enter()
CBend.RowSource = "SELECT DISTINCT vazeyat FROM bank where (date between CBdate1 and CBdate2);"
End Sub
Private Sub Combo34_Enter()
CBend.RowSource = "SELECT DISTINCT erja FROM bank where (date between CBdate1 and CBdate2);"
End Sub
Private Sub Combo36_Enter()
CBend.RowSource = "SELECT DISTINCT sabt FROM bank where (date between CBdate1 and CBdate2);"
End Sub

[rashidianc]

:متعجب:کسی نبود کمک کنه !

[Abbas Amiri]

درروال btnDo_Click چهار بار شرط پایین تکرار شده ومسلما آخرین مورد اجرا خواهدشد


If (Not IsNull(CBend.Value)) Then