Beste lezers
Ik heb een probleem met het afdrukken van een rapport uit een formulier. Formulier is opgebouwd uit 3 tabellen met elke tabel een formulier. Het hoofd formulier is dus opgebouwd uit formulier + sub formulier, het sub formulier is opgebouwd uit formulier + sub formulier.
Opbouw van de tabellen:
Tabel 1:
IdKlant
NaamKlant
AdresKlant
?
?
?
Tabel 2
IdOrder
IdKlant
OrderNr
?
?
?
Tabel 3
IdWerk
IdOrder
Werkzaamheden
?
?
?
Tabel 1 en 2 gekoppeld door IdKlant, tabel 2 en 3 gekoppeld door IdOrder (relaties, 1 op veel)
Nu wil ik een rapport afdrukken van het formulier met de records die dan in beeld zijn (huidig formulier) Hiervoor heb ik een opdracht knop gemaakt op het formulier voor het afdrukken van een rapport, en deze via een gebeurtenis procedure aangepast. Deze ziet er dan als volgt uit.
Private Sub K_OBAfdrukken_Click()
On Error GoTo Err_K_OBAfdrukken_Click
Dim stDocName As String
Dim stlinkCriteria As String
stDocName = “R_Orderbevestiging”
stlinkCriteria = "=Forms!!!!"
DoCmd.OpenReport stDocName, acPreview
Exit_K_OBAfdrukken_Click:
Exit Sub
Err_K_OBAfdrukken_Click:
MsgBox Err.Description
Resume Exit_K_OBAfdrukken_Click
End Sub
Met deze gebeurtenis worden alsnog alle record afgedrukt dus niet het formulier wat ik op mijn scherm heb staan. Ik heb deze al meerdere keren aangepast maar het lukt me nog steeds niet. Ik weet dat het ook op een andere mannier kan, maar niet precies hoe, Wie kan me helpen, wat heb ik fout gedaan?
Mac