Automatische Anlage von Datensätzen (VB/VBA/Macro)

24/10/2007 - 14:17 von Heiko | Report spam
Hi NG!

(Projektdatenbank – A00)

Ich stelle mir folgende Funktion (VBA, Macro oder so) vor:

Wir haben zwei Tabellen die in Beziehung stehen. In der Tabelle 1 gibt es
ein Feld mit „Laufzeit“ und in Tabelle 2 die „Jahreszahlen“.

Nun möchte ich folgende Funktion dem Feld Laufzeit hinterlegen. Gibt jemand
die Zahl 8 ein soll er ausgehend von der aktuellen Jahreszahl (2007) in der
Tabelle 2 genau 9 Datensàtze anlegen und in das Feld „Jahreszahl“ mit 2007,
2008, 2009, usw. beschreiben.

Vielleicht hat jemand so was schon mal gemacht bzw. weis wie’s geht. Würde
mich über eine positive Nachricht freuen.

Heiko
 

Lesen sie die antworten

#1 Mark Doerbandt
24/10/2007 - 14:23 | Warnen spam
Hallo,

Heiko:

Ich stelle mir folgende Funktion (VBA, Macro oder so) vor:

Wir haben zwei Tabellen die in Beziehung stehen. In der Tabelle 1 gibt es
ein Feld mit „Laufzeit“ und in Tabelle 2 die „Jahreszahlen“.

Nun möchte ich folgende Funktion dem Feld Laufzeit hinterlegen. Gibt jemand
die Zahl 8 ein soll er ausgehend von der aktuellen Jahreszahl (2007) in der
Tabelle 2 genau 9 Datensàtze anlegen und in das Feld „Jahreszahl“ mit 2007,
2008, 2009, usw. beschreiben.



Dim Jahreszahl As Integer
Dim Laufzeit As Integer

Laufzeit = 8

For Jahreszahl = Year(Date) To Year(Date) + Laufzeit
CurrentDB.Execute "INSERT INTO Tab2 (Jahreszahl) VALUES (" & _
Format(Jahreszahl) & ")
Next Jahreszahl


Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen