Knop in formulier "print"

[FLorijn]

Hallo allemaal,

In een formulier heb ik een printknopje gemaakt, waarna access een rapport print. In het rapport heb ik een criteria gebruikt, referentienummer = formulieren!offerte!referentienummer
Helaas pikt hij dit niet, en vraagt hij om een waarde. Ik had gehoopt dat hij nu het huidige record in het formulier zou printen.

Iemand suggesties?

 

[paul.jacobs]

[Forms]![offerte]![referentienummer]:thumb:

 

[FLorijn]

Helaas, werkt ook niet. Het lijkt er op dat het rapport niet door krijgt wlk record het huidige record is.

 

[Bartuls]

Je moet bij de aanroep van het rapport een WHERE-clausule meegeven.

Private Sub Knop1_Click()
On Error GoTo Err_Knop1_Click

Dim stDocName As String

stDocName = "Rapport1"
DoCmd.OpenReport stDocName, acNormal, , referentienummer = forms.[offerte]![referentienummer]

Exit_Knop1_Click:
Exit Sub

Err_Knop1_Click:
MsgBox Err.Description
Resume Exit_Knop1_Click

End Sub

 

[paul.jacobs]

Ok , ik dacht dat het rapport gekoppeld was aan een query

 

[FLorijn]

Het was dus inderdaad de WHERE clausule.

Ik heb hem met het volgende opgelost:

Private Sub Knop1_Click()
On Error GoTo Err_Knop1_Click

Dim stDocName As String
Dim strFilter
Dim strReferentie

strReferentie = [Referentienummer]
stDocName = "Offerte"

strFilter = "Referentienummer = " & strReferentie

DoCmd.OpenReport stDocName, acPreview, , strFilter

Exit_Knop1_Click:
Exit Sub

Err_Knop1_Click:
MsgBox Err.Description
Resume Exit_Knop1_Click

End Sub