Udskriv denne side

Hej Eksperter

Håber en af jer gider hjælpe med dette. (Access-database)

Fra en åben formular, ønsker jeg at udskrive denne side(rapport). Rapporten er bygget på en forespørgsel, som består af 2 tabeller.

Koden ser således ud:

Private Sub ctl_Noeglekvitt_Click()
On Error GoTo Err_ctl_Noeglekvitt_Click

    Dim stDocName As String

    stDocName = "rptNoeglekvittering"
    stLinkCriteria = "[NoegleId]=" & Me![NoegleId]
    DoCmd.OpenReport stDocName, acPreview

Exit_ctl_Noeglekvitt_Click:
    Exit Sub

Err_ctl_Noeglekvitt_Click:
    MsgBox Err.Description
    Resume Exit_ctl_Noeglekvitt_Click
   
End Sub

Jeg forstår simpelthen ikke hvorfor jeg ikke kan få det til at virke. Den skriver bare alle rapporter ud!

Mvh
erf