Gruppeboks til valg af rapport.

På gruppeboksens EfterOpdatering-hændelse lægger du nedenstående kode.(du finder den ved at klikke på RAMMEN af gruppeboksen - dvs du skal IKKE lægge kode på de enkelte alternativknapper)

Select Case Me!Gruppeboks
  Case 1
    docmd.Openreport "Rapport1", acviewpreview
  Case 2
    docmd.Openreport "Rapport2", acviewpreview
end select

NB: husk at give gruppeboksen (rammen) navnet "Gruppeboks"

/Thomas

Med udtrykket "gruppeboks" forstår jeg en alternativboks, der kun kan have een indstilling eller værdi. I gruppeboksen har du 2 alternativknapper / til- eller fra knapper. Når du trykke på een af disse knapper får gruppeboksen en bestemt værdi.

Lad os kalde knapperne for "rapport1" og "rapport2". når du trykker på "rapport1" får gruppeboksen værdien 1 og når du trykker på "rapport2" får den værdien 2. koden er nu i gruppeboksen:

If Gruppeboks = 1 Then
åben rapport1 et eller andet
Else.
Åben rapport2
End If

Gos aften Hr. Jepsen - sølle 6 sekunder, jeg må være blevet gammel og lide af slidgigt i mine tastaturfingre :o)

hehe, jeg tror nu også at du har et par bogstaver mere i dit svar (selvom jeg vil mene at mit svar er mere præcist :o)

Men det var nu helt tilfældigt at jeg lige er 'på' i aften.

Hvad skal jeg tilføje til knappen udskriv

Ahh, hvis du har en Udkriv-knap, kan du bare lægge denne kode på:

Select Case Me!Gruppeboks
  Case 1
    docmd.Openreport "Rapport1", acviewpreview
  Case 2
    docmd.Openreport "Rapport2", acviewpreview
end select

Ja - jeg har et par bogstaver mere - Når jeg skal være helt ærlig er grunden til de 6 sekunder, at jeg opdagede en stavefejl og afbrød afsendelsen af mit svar:

Jeg havde stavet "slidgigt" som "skidgigt", og det ville jeg dog ikke lade passere.

Virker!
Takker mange gange for hjælpen.