Formular Filter overføres til raport

Hej

Jeg mener at du kan løse dit problem ved at eksporter de filtrerede data til en ny tabel, og basere din rapport på denne tabel.

Jeg har lavet et job (hentet fra forskellige tips på denne side), som udfører en sådan funktion.

Jeg opererer med 2 tabeller:

rst (Min oprindelige tabel) og rst2 (den nye tabel)

frm.Filter = en tekststreng der indeholder det aktuelle filter. Der skal blot fjerne  højre- og venstreparanteser.



********************

Dim frm As Form
Dim filt As String
filt = ""
mfilt = ""

Set frm = Forms("Vis alle poster - Formular")
filt = frm.Filter

  Dim db As Database
  Dim sqlSt, CustCode, CustName As String
  Dim rst, rst2 As Recordset
  Set db = CurrentDb()

filt = Replace(filt, ")", "")
filt = Replace(mfilt, "(", "")


If filt = "" Then ' Ingen søgekriterier
  sqlSt = "SELECT * from [Vis alle poster]"
Else
  sqlSt = "SELECT * from [Vis alle poster] WHERE " & filt
End If

Set rst = db.OpenRecordset(sqlSt)
Set rst2 = db.OpenRecordset("Flettetabel", DB_OPEN_DYNASET)

rst.MoveFirst
Do Until rst.EOF
    rst2.AddNew
      rst2![Firma] = rst![Firma]
      rst2![Adresse] = rst![Adresse]
    rst2.Update
    rst.MoveNext
  Loop

DoCmd.OpenReport "YourReport", acViewNormal, , Me.filter

If you are using the forms filter then you can just include this in the
Docmd.openreport as the WHERE parameter

Jeg har en del at lære endnu :-)

>>Terry
It applies the filter allright, but when I close the report, remove the filter on the form, and opens the report again, the filter stays there.
You know after I press the Remove Filter button, it stays in the form, and the reports filter.

I can remove the filter in the reports close function, but that is too much.
Maybee the user want's to increase the filter for next print.
The question is to get the Apply/Remove filter button in Access to do the job.

Have to go now, see you tomorrow :-)

It should only alter the reports filter as long as it is open. If you close the report and remove the filter on the form then the filter SHOULD be removed when you open the report again.

Try this: Open the form and then set the filter on the form. Now open the report directly from the database window. There should be NO filter set on the report, if there is then it is VERY likely because you have SAVED the report while the filter property has been set. Go into the reports properties and make sure there is no filter. If there is remove it and save the report.

Inden du åbner din rapport skal du kontrollere om filteret er aktiveret på formen.

If Me.Filteron Then
  Docmd.Openreport stDocName, acviewpreview,,Me.Filter
else
  Docmd.Openreport stDocName, acviewpreview
endif

Dette skyldes at Me.Filter stadig er den samme, når du fjerne filteret. Kun når du spørger på FilterOn ved du om der er filter på formularen.

/Thomas

>Thomas. s'følig. Jeg takker.
>Terry. The problem was not in the report, it was in the form. As Thomas mentioned, the filter was still in the form after you removed the filter, only not activated.

I thank you both. Hope you accept the split.

Didnt think of that Thomas, I thought it was obvious that if the filter was still applied to the form then would still be applied to the report. :o)

Thanks for the points too :o)