arnoderuig
Gebruiker
- Lid geworden
- 8 sep 2000
- Berichten
- 577
Ik heb een rapport gemaakt waarmee een reeks facturen wordt afgedrukt. Binnen het rapport worden berekeningen gemaakt zoals btw en eindbedrag. Tijdens het afdrukken wil van elke geprinte factuur enkele gegevens in een tabel opnemen. Ik heb daarvoor onderstaande sub gemaakt:
Private Sub Details_Print(Cancel As Integer, PrintCount As Integer)
Dim hDatum As Date
hDatum = Now()
Dim vFactuur As Recordset
Set vFactuur = CurrentDb.OpenRecordset("tblFactuurVoorlopig")
With vFactuur
.AddNew
!KlantNr = Me.KlantID
!FactuurID = Me.txtFactuurnummer
!FactuurDatum = Me.FactuurDatum
!FactuurBedrag = Me.FactuurBedrag
!AanmaanTeller = 0
!FactuurMutatieDatum = hDatum
.Update
End With
vFactuur.Close
End Sub
Nu blijkt echter dat alleen van de eerste factuur een record wordt aangemaakt. Van de overige facturen worden geen records aangemaakt. Wat doe ik fout?
Private Sub Details_Print(Cancel As Integer, PrintCount As Integer)
Dim hDatum As Date
hDatum = Now()
Dim vFactuur As Recordset
Set vFactuur = CurrentDb.OpenRecordset("tblFactuurVoorlopig")
With vFactuur
.AddNew
!KlantNr = Me.KlantID
!FactuurID = Me.txtFactuurnummer
!FactuurDatum = Me.FactuurDatum
!FactuurBedrag = Me.FactuurBedrag
!AanmaanTeller = 0
!FactuurMutatieDatum = hDatum
.Update
End With
vFactuur.Close
End Sub
Nu blijkt echter dat alleen van de eerste factuur een record wordt aangemaakt. Van de overige facturen worden geen records aangemaakt. Wat doe ik fout?