Udskriv denne side (rapport)

Der er et par forskellige metoder der virker, bla. indsættelse af sideskift i detailsektionen på din rapport

Har testet sideskift. Så udskriver den ganske rigtigt een side ad gangen. Dog ikke den jeg peger på i min formular!-

can you show some code which you use for printing the code. So we can see how you are trying to "filter" a single user

Ok, så er det fordi du skal bygge din rapport på en forespørgsel, hvor du i kriteriefeltet henviser/linker til dit valg i din formular

Jeg har bygget min formular på en forespørgsel.

Mener du jeg skal lave [MedarbejderId] i kriteriefeltet? Så skal man jo skrive ID'et, selvom brugeren kan se medarbejderen på skærmen!!

mpå vi se din kode?

mpå  = må :o)

SELECT DinTabel.MandskabsId, DinTabel.Navne
FROM DinTabel
WHERE (((DinTabel.MandskabsId)=[Forms]![DinForm]![MandskabsId]));

Der er to tabeller. En med brandvæsner [tblBeredskab], en med mandskab [tblMandskab].



Koden ser således ud:

Private Sub Kommandoknap24_Click()
On Error GoTo Err_Kommandoknap24_Click

    Dim stDocName As String

    stDocName = "rptUddannelseStogBevis"
    DoCmd.OpenReport stDocName, acPreview
    stLinkCriteria = "[MandskabsId]=" & Me![MandskabsId]

Exit_Kommandoknap24_Click:
    Exit Sub

Err_Kommandoknap24_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap24_Click
   
End Sub

Nøglen i tblMandskab hedder MandskabsId. Nøglen i Beredskab hedder BeredskabId.

Alt er lavet via forespørgsler. Beredskab er siden lavet som en overformular. Mandskab en underformular.

Jeg kan godt vælge ét beredskab med mandskab.

Jeg har lavet en query udelukkende bygget på tblMandskab. Man bør da kunne udskrive en bestemt post ad gangen.

here is your problem

stDocName = "rptUddannelseStogBevis"
stLinkCriteria = "[MandskabsId]=" & Me![MandskabsId]

DoCmd.OpenReport stDocName, acPreview,,stLinkCriteria

an answer

you dont need to use a query

Hi terry

Jeg har indsat koden:

Private Sub Kommandoknap24_Click()
On Error GoTo Err_Kommandoknap24_Click

    Dim stDocName As String

    stDocName = "rptUddannelseStogBevis"
    stLinkCriteria = "[MandskabsId]=" & Me![MandskabsId]
   
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Exit_Kommandoknap24_Click:
    Exit Sub

Err_Kommandoknap24_Click:
    MsgBox Err.Description
    Resume Exit_Kommandoknap24_Click
   
End Sub

Svar: BerdskabsDatabase kan ikke finde feltet MandskabsId!!

Hi Terry

Jeg havde en stavefejl. Kan tilsyneladende godt finde MandskabId!

Men er nu vendt tilbage til at vise alle poster/rapporter.
Please help me!
I'm lost.

Har prøvet at lave knappen igen. Koden ser sådan ud:

Private Sub ctluddannelsesStogBevis_Click()
On Error GoTo Err_ctluddannelsesStogBevis_Click

    Dim stDocName As String

    stDocName = "rptUddannelseStogBevis"
   
    stLinkCriteria = "[MandskabId]=" & Me![MandskabId]
   
    DoCmd.OpenReport stDocName, acPreview

Exit_ctluddannelsesStogBevis_Click:
    Exit Sub

Err_ctluddannelsesStogBevis_Click:
    MsgBox Err.Description
    Resume Exit_ctluddannelsesStogBevis_Click
   
End Sub

you need to include the stLinkCriteria when you open the report


DoCmd.OpenReport stDocName, acPreview,,stLinkCriteria

status please?

Hi Terry

Sorry for being such a long time to answer your request. I have been on vacation!
You have helped me before, -- with good results. I know you are a true expert!!

No it didn't help. I cant get it to write the specific report. I have done it many times before.

I could send you the database??

If I'm not answering immidiatly on your reply this time it's because my vacation isn't over yet!

Regards
erf

No problem, enjoy your vacation. Mine start first next weekend :o)

Send your dB when youget time.

ekspertenATsanthell.dk
AT=@