Ik heb jaren geleden een programma gemaakt voor het printen van een rekening van gasten van een camping.
Met veel moeite en hulp van het forum is dat mij als leek gelukt.
Nu doet zich het volgende voor na het printen van de rekening met een kopie komt er een 2de serie uit wanneer de muis bewogen wordt.
Heeft iemand een idee wat de oorzaak is en hoe dit opgelost kan worden.
Private Sub cmdAdfrNota_Click()
DoCmd.Save acForm, "frmadres"
If Me.Dirty Then
Me.Dirty = False
End If
DoCmd.OpenReport "rptRekening", , , "Id_naam = " & ID_Naam
DoCmd.OpenReport "rptRekeningkopie", , , "Id_naam = " & ID_Naam
End Sub
Met veel moeite en hulp van het forum is dat mij als leek gelukt.
Nu doet zich het volgende voor na het printen van de rekening met een kopie komt er een 2de serie uit wanneer de muis bewogen wordt.
Heeft iemand een idee wat de oorzaak is en hoe dit opgelost kan worden.
Private Sub cmdAdfrNota_Click()
DoCmd.Save acForm, "frmadres"
If Me.Dirty Then
Me.Dirty = False
End If
DoCmd.OpenReport "rptRekening", , , "Id_naam = " & ID_Naam
DoCmd.OpenReport "rptRekeningkopie", , , "Id_naam = " & ID_Naam
End Sub