running report according to many condtions

**sherif** · 11-09-2011, 10:56 AM

hi all
i have form used to run report called final ,it contains many fields
i set text boxes to set my condition's through it ,it works perfectly
but
when i thought to collect all the conditions together i failed because i am not experience enough with coding .

so i am looking for your help .
that is my codes i used in my form :

the following corrupted character is not english words ,so no problem with them at all

Private Sub cmdop999_Click()
 DoCmd.OpenReport "final", acViewPreview, , "[Çáßáãå ÈÏæä ÊÔßíá]='" & Me.cbo981 & "'"
End Sub

Private Sub cmdopsuraname_Click()
 DoCmd.OpenReport "final", acViewPreview, , "[sura_name]='" & Me.cbosura_name & "'"
End Sub

Private Sub cmdopsurano_Click()
DoCmd.OpenReport "final", acViewPreview, , "[sura_no]=" & Me.cbosura_no
End Sub

Private Sub Command40_Click()
DoCmd.OpenReport "final", acViewPreview, , "[root]='" & Me.Combo37 & "'"
End Sub

Private Sub Command45_Click()
DoCmd.OpenReport "final", acViewPreview, , "[Çáßáãå ÇáãÔßáå]='" & Me.Combo42 & "'"
End Sub

and that what i am trying to do :

Private Sub Command1000_Click()
DoCmd.OpenReport "final", acViewPreview, , "[Çáßáãå ÈÏæä ÊÔßíá]='" & Me.cbo981 & "'"
DoCmd.OpenReport "final", acViewPreview, , "[sura_name]='" & Me.cbosura_name & "'"
DoCmd.OpenReport "final", acViewPreview, , "[sura_no]=" & Me.cbosura_no
DoCmd.OpenReport "final", acViewPreview, , "[root]='" & Me.Combo37 & "'"
DoCmd.OpenReport "final", acViewPreview, , "[Çáßáãå ÇáãÔßáå]='" & Me.Combo42 & "'"

End Sub

i know that this sentence (DoCmd.OpenReport "final", acViewPreview) should be removed and put some thing like & or and or what ever code need .
i don't know exactly how to write this code
so your help will be appropriated
regards,
sherif

**davegugg** · 11-09-2011, 11:04 AM

You should be able to do this:

DoCmd.OpenReport "final", acViewPreview, , "[Çáßáãå ÈÏæä ÊÔßíá]='" & Me.cbo981 & "'" & " AND " & "[sura_name]='" & Me.cbosura_name & "'" & " AND " & "[sura_no]=" & Me.cbosura_no & " AND " & "[root]='" & Me.Combo37 & "'" & " AND " & "[Çáßáãå ÇáãÔßáå]='" & Me.Combo42 & "'"

**sherif** · 11-09-2011, 11:46 AM

so i have to put
& " AND " &
between every one ?

**davegugg** · 11-09-2011, 11:48 AM

That part of the OpenReport function is basically the WHERE clause of a SQL statement without the WHERE keyword. So you'd set it up like you are building a SQL statement. When you want to use more than one condition in the WHERE clause, you AND them together.

**sherif** · 11-09-2011, 10:38 PM

it gives message " run time error " some thing wrong ,but i don't know what
any advise ?

**davegugg** · 11-15-2011, 11:52 AM

Run Time Error is a generic error label. I won't know unless you provide more info. What line is it on?

**sherif** · 11-16-2011, 11:51 AM

i found another way to achieve my target ,
thanks for you

**davegugg** · 11-16-2011, 12:31 PM

It would be helpful for others who may run into the same issue if you could post your solution. This forum is read by many people, and there could be others trying to find a way to do what you did.

**sherif** · 11-18-2011, 05:26 AM

sure with my pleasure
i found a sample to generate the report you want easily building on amazing query
hope that help all of you
please check the attached file , and tell me if you like it
kind regards
sherif