Beste mensen,
Onder staande gebruik ik om de rekening te printen.
Nu wil ik de rekening op het scherm zien.
Wat moet ik aanpassen?
B.v.d. Geert
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
Onder staande gebruik ik om de rekening te printen.
Nu wil ik de rekening op het scherm zien.
Wat moet ik aanpassen?
B.v.d. Geert
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