Fra Access-tabel til dokument i Word

Eksempel sendt

Hej Mugs

Kan jeg få dig til at sende filen i en *.rar eller *.zip-fil?
Jeg kan ikke åbne databasen pga. virusscanner :-D
Hilsen Lasse

Sendt som zip

Hej igen

Tak for det -- jeg ser lige på det (det ser lovende ud).

Det kan godt være der er et par spørgsmål, der vil komme frem senere hen...

Men tak for det...

Selv tak - det er normalt, at et svar først honoreres med point, når svaret er afprøvet og implementeret i din egen database. Men du vender bare tilbage hvis du får problemer.

Må jeg se løsningen? :o) mlhave@mlh.dk

sendt til mlhave

må jeg også være med -- janma@post4.tele.dk

Sendt til janma

Hej igen...
Nu er jeg kommet så "langt" at jeg kan indskrænke mit problem.
Jeg er droppet ideen med at udskrive i Word eftersom det (tror jeg) kan lade sig gøre med en rapport.

I en formular er der indtastet nogle oplysninger, som skal udskrives ved klik på en knap. Knappen hedder "Udskriv diplom". Jeg har lavet en onclick-hændelse for knappen i Access's Visual Basic. Det ser sådan ud:

------------
Private Sub Udskriv22_Click()
On Error GoTo Err_Udskriv22_Click

    Dim stDocName As String

    stDocName = "Løbere"
    DoCmd.OpenReport stDocName, acNormal

Exit_Udskriv22_Click:
    Exit Sub

Err_Udskriv22_Click:
    MsgBox Err.Description
    Resume Exit_Udskriv22_Click
   
End Sub
---------------


Problemet er i, at når knappen trykkes udskrives ALLE posterne, og ikke den aktuelle post der er i formen! Kan det lade sig gøre at udskrive den aktuelle post?

Håber meget på et svar :-D

Venlig hilsen Lasse Quorning

Naturligvis kan det lade sig gøre.

Når du udskriver alle poster, er det fordi du mangler et kriterie. Dette kriterie skal indsættes i en forespørgsel. Så du bliver nødt til at lade din rapport basere sig på en forespørgsel.

I det felt i forespørgslen der indeholder en unik identifikation af posten, indsætter du dette:

=[Forms]![FORMULARNAVN]![FELTNAVN]

Det er så et krav, at rapporten får dine data fra denne forespørgsel, og du altid åbner rapporten fra formularen.

Okay...

Jeg har nu lavet en forespørgsel. Den ser sådan ud i SQL-visning:

---
SELECT Løbere.id
FROM Løbere
WHERE (((Løbere.id)=[Forms]![Mål]![id]));
---

Hvordan kædes denne sammen med rapporten? Skal den første linie ikke indeholde ALLE de felter i posten, som ønskes udskrevet?

Du laver din forespørgsel med alle felter du ønsker. Derefter indsætter du kriteriet. det er nu et krav, at du åbner rapporten fra formularen Mål, idet denne skal være aktiv, da forespørgslen ellers ikke kan "læse" kriteriet.

En lidt mere elegant løsning er, at du kan stå i din formular på en bestemt post, og så altid udskrive den aktuelle post.

Hvis du lægger din e-mail, kan jeg sende dig et eksempel.

Du må gerne sende mig et eksempel.

Min e-mail er mail@mdw.dk

Til den anden løsning: Der må være noget galt, for når jeg udkskriver kommer der 1 post og 5 blanke sider. Hvad kan det skyldes?

Jeg har gjort følgende for at bruge Forespørgslen til rapporten:
- Åbnet rapporten
- Valgt egenskaber
- Valgt egenskaber for rapport
- Valgt data
- Ændret postkilde fra database til "Forespørgsel 1"

Er det korrekt?

Det er korrekt.

Hvis den post der kommer er den korrekte, skyldes fejlen sandsynligvis, at rapporten er for stor. Forstået på den måde, at du har gjort den for bred til at den kan være på een side.

Åbn rapporten i designvis, og gør den smallere!

Hej igen...
Nu er det begyndt at blive lidt flovt for mig... :-D

Jeg får fejlen "Object Required" ved klik på knappen... Nedenfor er koden:


---
Private Sub Udskriv22_Click()
On Error GoTo Err_Udskriv22_Click

    Dim stDocName As String

    stDocName = "Løbere"
    DoCmd.OpenReport stDocName, , , txtId & " = " & Løbere.id
Exit_Udskriv22_Click:
    Exit Sub

Err_Udskriv22_Click:
    MsgBox Err.Description
    Resume Exit_Udskriv22_Click
   
End Sub
---

Nyt eksempel sendt, bl.a. med en bemærkning om, at feltet "Løbere.id" ikke må indeholde et punktum. Desuden indikerer feltnavnene, at brugeren prøver at sammenligne et alfanumerisk felt med et numerisk felt. Dette behøver dog ikke at være tilfældet.

Okay... Nu funker det.

Jeg havde byttet om på rækkenføljen i koden, deraf kom "Object Required"-fejlen.

Nu funker det! 1000 tak herfra :D

mugs: kigger lige forbi her et halvt år senere, kan du også sende din løsning til mig?

Tilsted? Kommer om lidt - Skal lige have den gravet frem.

Sendt.