Afdrukvoorbeeld huidig recod

[Benny10]

Hallo,
Ik heb een knop op mijn formulier gemaakt voor afdrukvoorbeeld van rapport te zien
maar krijg altijd het eerste record te zien,weet iemand hoe ik mijn VBA code moet aanpassen om huidig record te zien

Private Sub Knop70_Click()
On Error GoTo Err_afdrukvoorbeeld_factuur_Click

Dim stDocName As String

stDocName = "Factuur"
DoCmd.OpenReport stDocName, acViewPreview

Exit_afdrukvoorbeeld_factuur_Click:
Exit Sub

Err_afdrukvoorbeeld_factuur_Click:
MsgBox Err.Description
Resume Exit_afdrukvoorbeeld_factuur_Click
End Sub

mvg Benny

 

[OctaFish]

Zoals je de code nu gebruikt, zal hij het rapport openen met alle records die in de onderliggende Recordset horen. Als je het rapport dus baseert op de tabel Facturen, dan zie je alle facturen. Gebruik je een gefilterde query, dan zie je alleen de gefilterde records. Dus ofwel de bron aanpassen, zodat het juiste record getoond wordt, ofwel een parameter meegeven die het rapport verder filtert. Dat laatste ziet er dan zo uit:

    DoCmd.OpenReport strDocName, acViewPreview, , "[OrderID] = " & Me.OrderID

En zou je (liefst uiteraard met terugwerkende kracht) code kunnen opmaken met de CODE knop? Wordt-ie een stuk leesbaarder van.

 

[Benny10]

Bedankt

het werkt

 

[OctaFish]

Prima! Nu nog je code netjes opmaken