Udskrivning af en rapport for en nyoprettet post.

Prøv at checke disse spms:

http://www.eksperten.dk/spm/18469
http://www.eksperten.dk/spm/11485
http://www.eksperten.dk/spm/7067

Har fundet ud af flg., men rapporten printes ud med alle poster, og jeg ønsker kun en bestemt  post!!

Nedenstående kommandoer bruges i \"knappen\":

Private Sub Udskrivkort_Click()
On Error GoTo Err_Udskrivkort_Click

    Dim stDocName, StWhere As String

    stDocName = \"Udskriv kort\"
    StWhere = \"medlemsnr = \" & Medlemsnr
   
    DoCmd.OpenReport stDocName, acViewPreview, StWhere

Exit_Udskrivkort_Click:
    Exit Sub

Err_Udskrivkort_Click:
    MsgBox Err.Description
    Resume Exit_Udskrivkort_Click
   
End Sub
------
Hvad går der galt??  - \"Medlemsnr\" er navnet på feltet i min formular og samme navn anvendes i min rapport der hedder \"Udskriv kort\".

Det er fordi Medlemsnr er tom (eller ikke udfyldt)

Lav det sådan at funktionen medtager en var med et nummer og brug det i kaldet. Eks.:

Private Sub Udskrivkort_Click(Mnr)
On Error GoTo Err_Udskrivkort_Click

    Dim stDocName, StWhere As String

    stDocName = \"Udskriv kort\"
    StWhere = \"medlemsnr = \" & Mnr
   
    DoCmd.OpenReport stDocName, acViewPreview, StWhere

Exit_Udskrivkort_Click:
    Exit Sub

Err_Udskrivkort_Click:
    MsgBox Err.Description
    Resume Exit_Udskrivkort_Click
   
og kald funktionen med:

udskrivkort_Click(MedlemsNr)

Nu er jeg lidt usikker på, hvad du mener..... (jeg får nemlig en fejlmeddelelse)

Flg. programlinier er indsat:

Private Sub Udskrivkort_Click(Mnr)
On Error GoTo Err_Udskrivkort_Click

    Dim stDocName, StWhere As String

    stDocName = \"Udskriv kort\"
    StWhere = \"medlemsnr = \" & Mnr
   
    DoCmd.OpenReport stDocName, acViewPreview, StWhere


Exit_Udskrivkort_Click:
    Exit Sub

Err_Udskrivkort_Click:
    MsgBox Err.Description
    Resume Exit_Udskrivkort_Click
   
End Sub
--------------
Spg.

1. Hvad skal jeg gøre, når jeg skal kalde funktionen med: udskrivkort_Click(MedlemsNr)?

2. Hvad skal jeg ellers gøre for at får det til at fungere med en variabel, skal den defineres, eller skal der oprettes et felt...? eller er den allerede i orden....

Skær det grne ud i pap - jeg er ikke så stærk til VB.

Løsning der virker ser således ud:

Private Sub Udskriv_kort_Click()
   
    Dim stDocName As String
    Dim StWhere As String
   
    stDocName = \"Udskriv kort\"
    StrCriteria = \"[medlemsnr]=\" & Me![Medlemsnr] & \" \"
    DoCmd.OpenReport stDocName, acViewPreview, , StrCriteria
   
       
End Sub

-----
Til Sjensen, hvis du laver et indlæg, så sørger for du får min point, som tak for hjælpen....

Hilsen

MSS

ok,jeg takker og er glad for at du har fået det til at virke