title image


Smiley Re: Werte werden doppelt in Tabelle geschrieben
Hallo Wolfgang,Mach im Bericht eine "berichtsglobale" Variable unmittelbarnach Option Compare Database:Dim DruckZ As ByteSolltest Du keinen Berichtskopf haben, mach einen (Menü Ansicht unten), die Höhe sollte > 0 sein und schreib beim Ereignis - Beim Formatieren - rein:Private Sub Berichtskopf_Format(Cancel As Integer, FormatCount As Integer) DruckZ = DruckZ + 1End SubPrivate Sub Detail1_Print(Cancel As Integer, PrintCount As Integer) 'unterdrückt die Fälle, in denen das Anordnungssoll 0,-- DM beträgt If Me!Anordnungssoll = 0 Then Cancel = True If DruckZ > 1 Then Dim DB As Database Dim RS As Recordset Set DB = CurrentDb Set RS = DB.OpenRecordset("tblTempAbrechnungLK", bOpenDynaset) With RS .AddNew !PersonenID = Me!PersonenID !Veränderung = Me!Anordnungssoll !ab = Me!FälligkeitAb !Gesamtbetrag = 0 !Betrag = (Me!Sonderöffnungsgebühr + Me!Verpfleg + Me!Gebühr) !KitaID = Me!KitaID !GruppenID = Me!GruppenID !Grund = "Jahressoll 1. Halbjahr" !Halbjahr_Datum = Me!Halbjahr_Datum !Fälligkeit = Me!FälligkeitAb .Update End With db.close Set RS = Nothing End IfEnd SubSo longWalter Griesser

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: