De Vrije Vogel
Gebruiker
- Lid geworden
- 8 apr 2006
- Berichten
- 95
Wie o wie kan mij helpen.
Ik ben al weken op zoek naar een oplossing om records in een formulier afzonderlijk te kunnen printen. Helaas wordt alleen het 1ste geselecteerde record geprint.
Even iets meer uitleg.
Ik vraag met het [SprayID] een bepaald record op. [SprayID] is een Primary Key in de hoofdtabel en een numeriek veld in enkele andere velden.
Als je de gegevens in het formulier [frmPrintMoreApplicatorsPrt]hebt staan kun je met de next en prev toets door de verschillende records lopen.
Echter ga ik de gegevens afdrukken [rptPesticideAP_TSYes], dan wordt steeds het 1ste record afgedrukt.
Wat mis ik.
Ik ben al weken op zoek naar een oplossing om records in een formulier afzonderlijk te kunnen printen. Helaas wordt alleen het 1ste geselecteerde record geprint.
Even iets meer uitleg.
Ik vraag met het [SprayID] een bepaald record op. [SprayID] is een Primary Key in de hoofdtabel en een numeriek veld in enkele andere velden.
Als je de gegevens in het formulier [frmPrintMoreApplicatorsPrt]hebt staan kun je met de next en prev toets door de verschillende records lopen.
Echter ga ik de gegevens afdrukken [rptPesticideAP_TSYes], dan wordt steeds het 1ste record afgedrukt.
Wat mis ik.
Alvast bedankt.Private Sub PrtApplicationReport_label_Click()
Dim strWhere As String
If Me.Dirty Then 'Save any edits.
Me.Dirty = False
End If
If Me.NewRecord Then 'Check there is a record to print
MsgBox "Select a record to print"
Else
strWhere = "[SprayID] = " & Me.[SprayID]
DoCmd.OpenReport "rptPesticideAP_TSYes", acViewPreview, , strWhere
End If
End Sub