Notifikationer

Markér alle som læst Log ud

dla Praktikant

21. september 2007 - 09:09 Der er 4 kommentarer og
1 løsning

Knap til at udskrive liste i faneblade

Jeg har en formular med en underformular med flere faner indeholdende hver sin liste. Nu vil jeg gerne lave en knap på formularen der åbner en rapport med den aktuelle liste. Rapporterne har jeg lavet, men hvordan putter jeg ind i koden at den skal åbne Rapport0 hvis Side0 er fremme, Rapport1 hvis Side1 er fremme osv.

Jeg forestiller mig det skal se nogenlunde sådan ud, jeg mangler bare det rigtige udtryk i [er aktuel]

If Me.KtlFane0.Pages(0).[er aktuel] Then
stDocName = "Rapport0"
ElseIf Me.KtlFane0.Pages(1).[er aktuel] Then
stDocName = "Rapport1"
osv.

Håber nogen kan hjælpe.

Synes godt om

jesperfjoelner Nybegynder

21. september 2007 - 10:06 #1

Du kan tjekke hvilken fane der er valgt således:

Select case me!ktlfane0
Case 0
'første fane
stDocName="Rapport0"
case 1
'anden fane
stDocName="Rapport1"
case 2
'tredje fane
stDocName="Rapport2"

End select

Synes godt om

dla Praktikant

21. september 2007 - 10:41 #2

Det lyder rigtig nok, men jeg kan ikke få det til at virke.

Hvad skal jeg præcis skrive der hvor du har skrevet 'første fane?

Synes godt om

jesperfjoelner Nybegynder

21. september 2007 - 10:48 #3

Som jeg forstår dit spørgsmål skal kode ligge bag den knap du har på hovedformularen, som åbner rapporten.
Så din kode vil se ca. således ud:

Private sub minknap_click()

Dim stDocName

Select case me!ktlfane0
Case 0
'første fane
stDocName="Rapport0"
docmd.openreport
case 1
'anden fane
stDocName="Rapport1"

case 2
'tredje fane
stDocName="Rapport2"

End select

DoCmd.OpenReport stDocName, acViewPreview

End sub

Det skulle åbne den rigtige rapport

Synes godt om

dla Praktikant

21. september 2007 - 10:50 #4

Yes! Jeg forstår det nu! Også inden du skrev igen, men jeg var bare lidt langsom i opfattelsen.

Og det fungerer fint. Mange tak for hjælpen!

Synes godt om

jesperfjoelner Nybegynder

21. september 2007 - 10:54 #5

Det var så lidt. Held og lykke med det.

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Access kurser

Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Access database udskriver ikke rammer korrekt Af Uvanga i Access	8	18/11/202500:24	18/11/202510:25
Menu linie forsvundet i editoren Af per2edb i Access	10	13/11/202515:30	18/11/202518:09
Tekst format i Kodevinduet Af per2edb i Access	11	02/11/202517:28	04/11/202516:08
Tabstop, vba Af zuschlag i Access	8	05/10/202513:34	08/10/202512:48
Fejl i Dato = Format(Now(), "dd-mm-yyyy hh:mm:ss") Af per2edb i Access	6	26/09/202513:37	07/11/202507:47

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS