rapporter fra samme forespørgsel

Det kommer lidt an paa...

Hvis det feks er det samme felt men forskellige kriterier kan du skrive [] i kriteriet i forespoergslen hvorefter en inputbox dukker op og mna kan indskrive kriteriet. Denne foresporgslen kan saa vaere grundlaget for din rapport.
Hvis du har flere forskellige felter du vil lave forespoergsler paa skal du nok ud i at have flere forskellige. De kan via kode opbygges og slettes igen i runtime.
Det kommer selvf an paa hvor bekendt du er med koden (vba og lidt sql)

Det er ike nødvendigt at lave mere end een rapport. I stedet for at indsætte kriteriet i forespørgslen flytter du det til en kommandoknap i en formular.
Vender lige tilbage med et eksempel.

du kan evt anvende filtre

Vede et alfanumerisk felt kan du bruge flg:
DoCmd.OpenReport "rapport1", acViewPreview, "", "[Tabel1]![tekst]=""a""", acNormal
Der åbner rapport1 hvor Tabel1 feltet tekst er = a

Ved et numerisk felt skal det se således ud:
DoCmd.OpenReport "rapport1", acViewPreview, "", "[Tabel1]![tal]>3", acNormal
Der åbner samme rapport hvor feltet tal er > 3

Begge koder kan du indsætte i hver sin kommandoknap i en formular. I stedet for en tabel, kan du bruge en forespørgsel, syntaksen er den samme.

mugs has the right idea but not QUITE correct :o)

DoCmd.OpenReport "YourReport", acViewNormal, ,"[Tabel1]![tekst]= 'test'"
Or
DoCmd.OpenReport "YourReport", acViewNormal, ,"[Tabel1]![tal]= 1"

The last paramater is the same as a WHERE clause without "WHERE" !

and you can use more than one paramater

DoCmd.OpenReport "YourReport", acViewNormal, ,"[Tabel1]![tekst]= 'test' AND [Tabel1]![tal]= 1"

Hi terry > I must say that Your code is more elegant. My code is testet and works.

I Have to go to work now, so I don't have the time to find an example :o)

terry > Now You just to write the code, where You use the field in a form:

DoCmd.OpenReport "rapport1", acViewNormal, ,"tekst = & Me.tekst &

or something like that. I have to run. Have a nice day.

DoCmd.OpenReport "rapport1", acViewNormal, ,"tekst = '" & Me.tekst & "'"

You have a good day too :o)

Jeg kan godt bruger kriterieudvælgelsen. Men hvis jeg skal se alle kort, mangler jeg en eller anden kode.

Hvis du skal se alle poster, lader du blot være med at indtaste et kriterie.

VBA-koden til at udskrive alle poster ser således ud:

DoCmd.OpenReport "rapport1", acViewPreview

Hej mugs
Hvis jeg ikke indtaster noget i kriterieboksen som kommer frem vises der intet.
Jeg kunne godt tænke mig at hvis jeg f.eks. satte en * kunne jeg se alle kort i formularen

Det er fordi der ikke er nogen poster der matcher dit kriterie, altså er tom (Null). Du skal helt fjerne [] i forespørgslens kriterie linie. Alternativt kan du kopiere din forespørgsel og fjerne [] her, når du vil se alle poster.

Der skal nok være en funktion, hvor du kan se alle poster, selvom du har [].

Een af svaghederne ved dit valg af metode er, at der er risiko for stavefejl, og dermed forkerte data. Du vil udskrive kort kan jeg forstå. Hvis disse kort indeholder et navn, f.eks. Åge og Aage, så vil jeg mene at risikoen er stor for fejlagtige data. Jo længere ord du skal indtaste som kriterie, jo større er risikoen for fejl. Hvis dine kort indeholder bynavne, så er risikoen overordentlig stor. Tænk på byer som :

Haderslev i Sønderjylland og
Haverslev i Nordjylland.

Jeg vil på det kraftigste opfordre dig til at vælge en anden løsning som skitseret af terry og mig. Jeg skal gerne hjælpe dig videre, men skal på arbejde nu og er først hjemme ca 23:00.

lady > Hvordan går det her? Er dit problem løst?

Hej Mugs!
Jeg tror jeg er ved at det løst.

Hej Mugs
Du står ikke på listen så jeg kan acceptere dit svar/kommentar.

Det gør jeg nu. Hvilken løsning benytter du?

Mugs
løsningen fra kl. 13.24.40

Tak for point.