Lav rapport ud fra formular med kritier

Formularen må have en forespørgsel som postkilde. Rapporten har sandsynligvis samme postkilde. Du bliver nødt til i rapportens postkilde at indsætte et felt der bestemmer kriterierne for de poster, forespørgslen skal vise. Noget lignende dette:

=Forms!Formularnavn!Combo

Kriteriet i forespørgslen skal indsættes i combo\'s kriteriefelt og se ud som:
[Forms]![formular2]![felt1]

Desuden skal du åbne rapporten fra formularen med en kommandoknap med flg. kode:
DoCmd.OpenReport \"rapport2\", acPreview, \"\", \"\"

Det er nødvendigt at åbne rapprten fra formularen, idet disse objekter har samme postkilde.derved fastholder du, at forespørgslen forbliver åben og beholder kriteriet mens rapporten åbnes.

Ovennævnt er lige afprøvet i Access97, og det virker.

Man kan også bruge rapportens filter:

DoCmd.OpenReport strRpt, acViewPreview
Reports(\"rptNavn\").Filter = \"felt = \" & combo
Reports(\"rptNavn\").FilterOn = True

Niels

DoCmd.OpenReport(\"rptNavn\"), acViewPreview
Reports(\"rptNavn\").Filter = \"felt = \" & combo
Reports(\"rptNavn\").FilterOn = True

Jeg kan ikke rigtig få jeres forslag til at virke (måske gøre jeg et eller andet forkert !!)
Jeg har i min forespørgels i rækkekilden indsat følgende:

select distinct Bruger from tbl_PNRegistrer

I Efteropdatering har jeg følgende indsat:

Private Sub Kombinationsboks14_AfterUpdate()
If Me!Kombinationsboks14 = \"\" Then
  Me.FilterOn = False
Else
  Me.Filter = \"Bruger = \'\" & Me!Kombinationsboks14 & \"\'\"
  Me.FilterOn = True
End If
End Sub

Jeg er ikke den største haj til at det der foregår \"bagved\" access, så I må gerne være lidt præcise i jeres forklaring. TAK PÅ FORHÅND !!

Du bruger tilsyneladende en kombination af et af dine tidligere spørgsmål med vores svar. Som udgangspunkt mener jeg, du bør vælge om du vil arbejde med det tidligere spørgsmål eller dette.

Jeg kan kun gentage mit svar, at det er afprøvet i Access97, og det virker.

I mit svar kan du i forespørgslen evt. benytte udtryksgeneratoren:

Vælg Formularer > alle Formularer > vælg den korrekte formular.

Derefter vælger du hvilket felt (kombinationsboksen) forespørgslen skal arbejde med. Tryk derefter på indsæt. Udtryksgeneratoren har nu indsat et kriterie i forespørgslen, der refererer til formularen.

Hvis du nu lukker forespørgslen og åbner rapporten, vil du ike få nogle poster vist, fordi formularen ikke er åben og forespørgslen ikke midtager data fra formularen. Det er derfor et krav, at du åbner formularen, vælger din post i kombinationsboksen og ved en kommandoknap åbner rapporten samtidig med, at formularen kører i baggrunden. Så vil forespørgslen beholde kriterierne og dermed overføres til rapporten.   

Private Sub Kombinationsboks14_AfterUpdate()
If Me!Kombinationsboks14 = \"\" Then
  Me.FilterOn = False
Else
  Me.Filter = \"Bruger = \'\" & Me!Kombinationsboks14 & \"\'\"
  Me.FilterOn = True
  DoCmd.OpenReport(\"rptNavn\"), acViewPreview
  Reports(\"rptNavn\").Filter = me.filter
  Reports(\"rptNavn\").FilterOn = True
End If
End Sub

Prøv at indsætte disse linjer i din kode og se om ikke det virker - \"rptNavn\" skal selvfølgelig udskiftes med det rigtige navn på din rapport.

koden skal nok have sin egen knap, men princippet er det samme som at sætte filter på din form.

Niels

tak - men fi kdu den hjælp du havde brug for ???

Hvis de 3 linjers kode virker, kan du lave en knap med flg. kode i vedklik hændelsen.

  DoCmd.OpenReport(\"rptNavn\"), acViewPreview
  Reports(\"rptNavn\").Filter = me.filter
  Reports(\"rptNavn\").FilterOn = me.filterOn

den åbener din rapport og sætter rapportens filter egnskaber lig med formens.

Niels