I've included a "where condition" in my report and it works !! What
I'd like to know is that if the "where condition" is NOT satisfied,
I've set the "where condition" to an "empty string". So far it is
working but I was just wondering if there are any caveats and/or if
there are any conditions under which it may fail. Just checking before
I put it into usage.

Here's the code:

Private Sub Cmd_Print_Click()
On Error GoTo Err_Cmd_Print_Click

Dim stDocName As String, where_condition As String

stDocName = "AGE_Cr"
If Me.FilterOn = True Then
where_condition = "NET_BAL <> 0"
Else
where_condition = ""
End If

With DoCmd
.OpenReport stDocName, acPreview, , where_condition
.Maximize
.RunCommand acCmdFitToWindow
End With
Reports(stDocName).ZoomControl = 0 'allows an integer from 0 = to
2500(%) ... 0 = ZoomToFit

Exit_Cmd_Print_Click:
Exit Sub

Err_Cmd_Print_Click:
MsgBox Err.Description
Resume Exit_Cmd_Print_Click

End Sub


I'd greatly appreciate ANY advice.

Thx & Best Rgds,
Prakash.

<prakashwadhwani (AT) gmail (DOT) com> wrote

Seems perfectly reasonable to me.

Keith.
www.keithwilby.co.uk