OpenReport function

[grad2009]

hello all,
i wrote this function in a click event of a boutton

DoCmd.OpenReport "customer_account", acViewPreview, , "[nam]='" & Me.Combo4 & "'"

can i add another condition beside the one in the function. In other words, the last partion of the OpenReport function (condition) could be more than one.



Regards with thanks

[pbaldy]

Sure; just separate them with "And". Make sure that in your quoting, only the form references are outside the quotes.

DoCmd.OpenReport "customer_account", acViewPreview, , "[nam]='" & Me.Combo4 & "' AND OtherNumericField = " & Me.Textbox

[grad2009]

Thank you very much pbaldy, i am sorry for being late i was in a trip.

i tried (And) in the condition but there are still errors

the code i wrote is

DoCmd.OpenReport "customer_account", acViewPreview, , "[nam]='" & Me.Combo4 & "' AND Cdate(fdate) < Cdate(dat) AND Cdate(ldate) > Cdate(dat)"

fdate, and ldate the names of two textboxes in a form, dat the date which is in customer_account report.

when i click the boutton, it prompts to enter fdate, and ldate but i already entered them in the textboxes in the form.
could you please find the reason of that problem ?
thank you again

[pbaldy]

The textbox values need to be concatenated into the string, just as you did with Combo4. Note that date/time values need to be surrounded by #, similar to how the text value is surrounded by single quotes.

[grad2009]

i wrote the folloing

DoCmd.OpenReport "customer_account", acViewPreview, , "[nam]='" & Me.Combo4 & "' AND #&Cdate(fdate)&# < #Cdate(dat)# AND #&Cdate(ldate)&# > #Cdate(dat)#"

an error occur as in the attachment

[pbaldy]

Well, I said "just as you did Combo4". Try this:

"[nam]='" & Me.Combo4 & "' AND Cdate(dat) > #" & Cdate(Me.fdate) & "# AND Cdate(dat) < #" & Cdate(Me.ldate) & "#"

[Datagopherdan]

Here's another route you can take. This allows the user to select no criteria, some criteria, or all criteria. It offers more flexibility Below is the basic syntax that you would use.

Dim strDesc As String
Dim strCity As String
Dim strSalesDate As String
Dim strPropSize As String
strSQL = ""
If Len(Me.cmbLandBldgProp) > 0 Then
    If Len(strSQL) > 0 Then
        strSQL = strSQL & " AND " & "[Land_Bldg_Desc] in (""" & Me.cmbLandBldgProp & """) "
    Else
        strSQL = "[Land_Bldg_Desc] in (""" & Me.cmbLandBldgProp & """) "
    End If
End If
If Len(Me.cmbCityCat) > 0 Then
    If Len(strSQL) > 0 Then
        strSQL = strSQL & " AND " & "[City] in (""" & Me.cmbCityCat & """) "
    Else
        strSQL = "[City] in (""" & Me.cmbCityCat & """) "
    End If
End If
If Len(Me.txtDateFrom) > 0 Then
    If Len(strSQL) > 0 Then
        strSQL = strSQL & " AND " & "[Sales_Date] Between #" & Me.txtDateFrom & "# and #" & Me.txtDateTo & "# "
    Else
    strSQL = "[Sales_Date] Between #" & "[Sales_Date] Between #" & Me.txtDateFrom & "# and #" & Me.txtDateTo & "# "
    End If
End If
If Len(Me.txtAcFrom) > 0 Then
    If Len(strSQL) > 0 Then
        strSQL = strSQL & " AND " & "[Prop_Size_Ac] Between " & Me.txtAcFrom & " and " & Me.txtAcTo & " "
    Else
        strSQL = "[Prop_Size_Ac] Between " & Me.txtAcFrom & " and " & Me.txtAcTo & " "
    End If
End If
If Len(strSQL) > 0 Then
    strSQL = Left(strSQL, Len(strSQL) - 1)
    DoCmd.OpenReport "MyReport", acPreview, , strSQL
Else
    DoCmd.OpenReport "MyReport", acPreview
End If

i wrote the folloing

DoCmd.OpenReport "customer_account", acViewPreview, , "[nam]='" & Me.Combo4 & "' AND #&Cdate(fdate)&# < #Cdate(dat)# AND #&Cdate(ldate)&# > #Cdate(dat)#"

an error occur as in the attachment

[grad2009]

Thank you very much pbaldy. now it is doing well. there is no error

thank you very much for all.

[pbaldy]

Happy to help.