Please help changing the way this report is filtered and opened...

  • Thread starter Thread starter allie357
  • Start date Start date
A

allie357

I am new to the filtering the report from a form concept. In my current
code the report must be open to apply the filter. I would like to
change it so that it runs the filter while the report is closed and
then opens the report. Can someone please explain how I should modify
the code?

Here is the current code:

Private Sub Apply_Filter1_Click()

Dim strRCName As String
Dim strDeptName As String
Dim strDate As String
Dim strWhere As String
Dim strNumber As String
' Check that the report is open
If SysCmd(acSysCmdGetObjectState, acReport, "rpt_Violations_by_RC_x
Violations") <> acObjStateOpen Then
MsgBox "You must open the report first."
Exit Sub
End If
' Build criteria string for RCName field
If IsNull(Me.CboRCName.Value) Then
strRCName = "Like '*'"
Else
strRCName = "='" & Me.CboRCName.Value & "'"
End If
' Build criteria string for DeptName field
If IsNull(Me.cboDeptName.Value) Then
strDeptName = "Like '*'"
Else
strDeptName = "='" & Me.cboDeptName.Value & "'"
End If
' Build the WHERE clause.
strDate = "[DateEntered] Between #" & Me!txtStartDate & _
"# And #" & Me!txtEndDate & "#"

strNumber = " >= " & Val(Nz(Me.txtnumber, 0))


' Combine criteria strings into a WHERE clause for the filter
strWhere = "[RCName] " & strRCName & " AND [DeptName] " &
strDeptName & " AND " & strDate
' Apply the filter and switch it on

With Reports![rpt_Violations_by_RC_x Violations]
.Filter = strWhere
.FilterOn = True
End With


End Sub
 
I am new to the filtering the report from a form concept. In my current
code the report must be open to apply the filter. I would like to
change it so that it runs the filter while the report is closed and
then opens the report. Can someone please explain how I should modify
the code?
Click to expand...

' Build the WHERE clause.
strDate = "[DateEntered] Between #" & Me!txtStartDate & _
"# And #" & Me!txtEndDate & "#"
DoCmd.OpenReport "nameofyourreport", WhereCondition:=strDate

Two lines is all it takes.

John W. Vinson[MVP]
 
I am new to the filtering the report from a form concept. In my current
code the report must be open to apply the filter. I would like to
change it so that it runs the filter while the report is closed and
then opens the report. Can someone please explain how I should modify
the code?
Click to expand...

' Build the WHERE clause.
strDate = "[DateEntered] Between #" & Me!txtStartDate & _
"# And #" & Me!txtEndDate & "#"
DoCmd.OpenReport "nameofyourreport", WhereCondition:=strDate

Two lines is all it takes.
Click to expand...

rereading: build your entire WHERE condition clause, and use *it* as
the WhereCondition.

John W. Vinson[MVP]
 
Back
Top