Filter on 1

[villica]

Hi everyone

I have an access database that does not longer work in access 2007
I think the problem is here. It does not apply the filter
Reports("rpt sample").Filter = "ID=" & lstCFAMS.Value


villica

 

[randy700]

You are giving us very little (practically nothing) to work with here.
1. What do you mean by "does not work"?
2. Why do you think the statement you provided is causing the problem? perhaps Reports("[rpt sample]).Filter...



Randy

 

[PHV]

Furthermore, why not using the 4th parameter of the DoCmd.OpenReport instead ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[villica]

When the report opens up, it has a query as a record source which has every record. Also when the report opens up another little form opens up and with list of names. When I click on any of the names the report used to display only that name and the transaction for that name only instead of every record.


Now when I click on any of the names it does not do anything at all. I apologize for not been more specific before

villica

 

[lameid]

villica from duplicate thread (thanks dhookom):

When the report opens up, it has a query as a record source which has every record. Also when the report opens up another little form opens up and with list of names. When I click on any of the names the report used to display only that name and the transaction for that name only instead of every record. At this point the report is already open. I am applying a filter on already open report


Now when I click on any of the names it does not do anything at all. I apologize for not been more specific before.



Lameid, I have already put space and set the filter on. It seems that the filter on works but it also closes the little form


Reports("sample").Filter = "ID = " & lstCFAMS.Value
Reports("sample").FilterOn = True


I will look up how to use the where clause

Instead of opening the report AND the form just open the form.

Where the form changes the filter now, run the report with a filter.

docmd.OpenReport "sample", acViewPreview,,"ID = " & lstCFAMS.Value

 

[dhookom]

As per a reply in another thread, please post in one thread only. I use the method suggested by PH. Open the report from a form using the Where Condition of the DoCmd.OpenReport method.

Dim strWhere as String
Dim strRptName as String
strRptName = "rptWhatever"
strWhere = "1=1 "
If not IsNull(Me.lstCFAMS) Then
   strWhere = strWhere & " AND ID=" & lstCFAMS
End If
DoCmd.OpenReport strRptName, acViewPreview, , strWhere

This assumes ID is numeric. If it is text, change the code to:

Dim strWhere as String
Dim strRptName as String
strRptName = "rptWhatever"
strWhere = "1=1 "
If not IsNull(Me.lstCFAMS) Then
   strWhere = strWhere & " AND ID=""" & lstCFAMS & """ "
End If
DoCmd.OpenReport strRptName, acViewPreview, , strWhere

Duane
Hook'D on Access
MS Access MVP

 

[lameid]

Use my advice and Duane's code. His is more robust and versatile . Mine is just quick and dirty.