Hallo zusammen
ich erstelle Verträge mit Hilfe einer Access Datenbank.
ich habe in einem Formular ein Unterformular erstellt.
In diesem Unterformular gibt man die Zahlungskonditionen ein.
Jetzt muss man für jeden Vertrag immer in das Unterformular die Jahre eingeben.
Also
2012 2500€
2013 2800€
2014 3000€
usw.
Die Zahlungen können immer komplett unterschiedlich sein. Die Laufzeit kann auch immer unterschiedlich sein.
Kann ich aber wenn ich im Hauptformular ein Feld Laufzeit mache, das er mir die Jahre in die Tabelle(Unterfomular) immer schon automatisch schreibt.
Grüße
Hallo,
ja...., und wenn es denn unbedingt sein soll.
Anhand der spärlichen Infos und im Hauptform:
Sub btnSchreibeJahre_Click()
Dim db as Database, i as Long
For i=Year(Me!Vertragsdatum) to Year(Me!Vertragsdatum) + Me!Laufzeit 'wenn die Einheit von "Laufzeit" "Jahre" ist
db.Execute "Insert into tblKonditionen (Kond_VertragsID, Konditionsjahr) Values (" & Me!VertragsID & "," & i & ")", dbFailonError
Next
Me!Unterform.Form.Requery
Set db=Nothing
End Sub
Sinnvollerweise wird über "Kond_VertragsID" und "Konditionsjahr" ein eindeutiger Index gelegt, um Mehrfacheinträge eines bestimmten Jahres zu vermeiden.
Danke