Link mellem formular og rapport

Til det skal du have et unikt felt der indentificerer fakturaen. Hvis dette felt er alfanumerisk kan du bruge denne:

DoCmd.OpenReport "DIN RAPPORT", acViewPreview, , "[DIN TABEL]![KRITERIEFELT] = '" & Me!KRITERIEFELT & "'"

Hvis kriteriefeltet er numerisk så er det denne:

DoCmd.OpenReport "DIN RAPPORT", acViewPreview, , "[DIN TABEL]![KRITERIEFELT] = " & Me!KRITERIEFELT & ""

Hej mugs.
Mange tak for dit hurtige svar. Jeg tror jeg behøver en lille uddybning. Den kode du nævner skal indsættes i rapporten i feltet "kontrolelementkilde" under egenskaber, er det rigtigt forstået?

Min formular er opbygget af tre elementer herunder, fakturanummer og fakturalinienummer. Er det korrekt at jeg putter tabellen faktura ind i den du kalder tabel og fakturanummer ind i kriteriefeltet?... ved den så godt at det er formularen den skal se i?

Koden skal indsættes i en kommandoknap i formularen. Da jeg ikke ved hvad dine objekter hedder har jeg navngivet således, og du skal erstatte dem med:

DIN RAPPORT > navnet på rapporten du vil udskrive

DIN TABEL > Navnet på tabellen der indeholder dit kriteriefelt

KRITERIEFELT > det felt i formularen / tabellen der indeholder et unikt ID for den enkelte post. Normalt bruger man tabellens primære nøgle. Jeg vil tro, at dit fakturanummer er unikt, og derfor kan du bruge det.

ME.KRITERIEFELT >  Er det samme felt, som ovenfor, altså kriteriefeltet. Det reserverede ord Me. henviser til den altid aktuelle formular efterfulgt at navnet på et felt, derfor vil du altid udskrive efter KRITERIEFELTET og ikke andre fakturaer, idet der jo ikke eksisterer flere fakturaer med samme nummer. 

I "pseudokode" betyder min kode:

Udskriv "Din RAPPORT" til skærm der hvor DIN TABEL's KRITERIEFELT er det samme som FORMULARENS KRITERIEFELT.

DoCmd.OpenReport "DIN RAPPORT", acViewPreview, , "[DIN TABEL]![KRITERIEFELT] = '" & Me!KRITERIEFELT & "'"

Håber det gav lidt klarhed i problematikken.

Jeg ser nu, at du 690 point ude. Skulle du ikke lukke nogle af de gamle spørgsmål, der er ikke sandsynlighed for, at der kommer brugbare svar.

Hej igen.
Tak for svaret, jeg vil prøve det så snart jeg kommer hjem.

Jo jeg skal have lukket mine spørgsmål.. men jeg må være ærlig at sige at jeg ikke kan se hvordan jeg gør når de er blevet grå.

Tak for point.

Får du problemer vender du blot tilbage. Men det er en god gammel kode, deer er brugt i mange spørgsmål her på e.

En grå farve på et spørgsmål indikerer, at der ikke er lagt et svar. Hvis du ikke har fået et brugbart svar, kan du selv lægge et svar og acceptere dette. Du bør dog i givet fald lige forklere hvorfor.

Hej mugs.
Jeg har et lille problem med at få macroen til at fungere. Jeg har sat den op således:

DoCmd.OpenReport "Fakturaudskrift", acViewPreview, , "Faktura Underformular!Faktura no = " & Me!Faktura no & ""

Den kommer med følgende fejl:

Compile error
Expected end of statement (når den skriver dette er no i Faktura no til sidst i sætningen makeret.

Håber du kan hjælpe.

Prøv først at sætte fokus på din underformular.

undskyld det kan godt være jeg er lidt tung at danse med, men hvordan mener du?

Skal der byttes om på fakturaudskrift og "" hvor faktura underformular indgår?

Problemet er jo, at du benytter en underformular og derfor er nødt til at hente din værdi herfra. Desuden har du mellemrum i feltnavnet, og det kan kun give yderligere problemer. Prøv evt, denne:

Dim VARa As String
VARa = Me.subform!faktura_no
DoCmd.OpenReport "Fakturaudskrift", acViewPreview, , "[Tabel1]![faktura_no] = '" & VARa & "'"

Hej Mugs.

Jeg får stadig en fejlmeddelse:

Methode or datamember not found

Det er .subform der er markeret.

Hvad hedder din subform?
Kontroller navnet og ret det eventuelt.

Faktura underformular

Har du indsat dette navn i koden?

Du skal bruge en underscore mellem ordene Faktura od underformular. Det er en uskik at have mellemrum i objektnavnene og kan kun give anledning til problemer.