udskriv rapport på baggrund af en bestemt post.

DoCmd.OpenReport "RAPPORTNAVN", acViewPreview, , "TEKSTFELT = '" & Me.TERKSTFELT & "'", acNormal

Ja hvis du bygger en foreseporgsel, eller som du naevner staar i en formular med en aktual post. Hvis du tilfoejer en knap i formularen burde du kunne goere det ved at laegge noget i retning af flg paa on click:

docmd.openreport "rapportnavn", acNormal, Filter (hvor filteret eks kan vaere  "[ID] =" & me.ID

Paa den maade peger idfeltet paa den aktuelle vaerdi i formularen

Ovennævnte gølder for et alfanumerisk felt. Er feltet numerisk er syntaksen lidt anderledes:

DoCmd.OpenReport "RAPPORTNAVN", acViewPreview, , "NUMERISKFELT = " & Me.NUMMERISKFELT & "", acNormal

Koden refererer til den aktuelle post i en formular, og rapporten skal derfor udskrives fra formularen.

jeg har skrevet

    Dim stDocName As String

    stDocName = "oplysninger"
DoCmd.OpenReport "oplysninger", acViewPreview, , "ID = " & Me.ID & "", acNormal

rapporten hedder oplysninger og det samme hedder den tabel som ligger til grund for formularen.

men jeg får en fejl som siger "databasemotoren kan ikke låse tabellen "oplysninger", fordi den allerede bruges af en anden person eller process."

knappen jeg har lavet som skulle aktiviere rapproten ligger også i formularen

DoCmd.OpenReport "oplysninger", acViewPreview, , "ID = " & Me.ID & "", acNormal

Jeg vil antage, at fejlen fremkommer ved at tabellen er åben fordi formularen er åben, og når du prøver at åbne rapporten får du fejlen fordi formularen låser tabellen.

Lav en forespørgsel, der indeholder alle relevante felter fra tabellen. Derefter åbner du rapporten i Designvisning < Højreklik et sted udenfor sektionerne > Egenskaber > Fanen data og i linien Rækkekilde (eller postkilde) skifter du postkilden fra Tabellen til forespørgslen.

Linien stDocname behøver du ikke, idet du i selve koden angiver hvilken rapport du vil åbne. Kopier min kode direkte til knappen.

nop. samme fejl.

Prøv denne:
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "oplysninger", acViewPreview, , "ID = " & Me.ID & "", acNormal

Du er velkommen til at sende db:

mugs@mail.dk

Det er kun en banal fejl.

koden er afprøvet og fungerer. Kan sende dig en testdb. Blot læg din e-mail.

ralf@riders.dk

Sendt.

Hva' nu:

Recipient: <ralf@riders.dk>
    Reason:    Service unavailable; [195.41.46.133] blocked using bl.spamcop.net, reason: Blocked - see http://spamcop.net/bl.shtml?195.41.46.133

hmm godt spørgsmål - hvad fanden er det? underligt.

prøver at sende som zip

har du zippet db'en?

hehe cool.

Det samme. Kan du zippe din db og sende den?

ja. to sek. hvad sker der med den mailserver - fucked up.

sendt

kan du finde hoved og hale i det jeg har lavet?

Ja - Men indtil nu har jeg måtte melde pas. Den vil bare ikke. Men fejlen har ikke noget at gøre min kode, den fungerer.

Jeg har forsøgt:

- Lave en ny tom db og importeret alle objekter.
- Lave en autoformular og udskrive fra denne.

Uden held. Jeg vil se på det senere, hvis du ikke har fået svar.

cool. respekt.

Så lykkes det.

Fejlen ligger i rapporten, som har postkilde i en Select sætning. Denne sætning kan ikke komme til at læse i tabellen, fordi denne allerede er låst af formularen.

Lav en forespørgsel der indeholder alle relevante felter, og giv rapporten denne forespørgsel som postkilde.

Som et eksperiment, kan du lade din kommandoknap åbne rapporten "oplysninger forespørgsel". Brug denne kode, så kører det (i hvert fald her):

DoCmd.OpenReport "oplysninger forespørgsel", acViewPreview, , "ID = " & Me.ID & "", acNormal

perfekt. jeg prøver det senere idag. jeg vender tilbage med points. so long.