Const cdtA = #1/1/2006# 'hierfür nimmt man später besser Funktionsargumente

Const cdtB = #1/14/2006

Const clPN = 14

Const sKz = "SEM"



Dim i As Long



With CurrentDb().OpenRecordset("SELECT * FROM EinerTabelle WHERE 0 = 1", dbOpenDynaset)

Do While cdtA + i <= cdtB

.AddNew

.Fields("Personalnummer") = clPN

.Fields("Kürzel") = csKz

.Fields("Datum") = cdtA + 1

.Update

i = i + 1

Loop

.Close

End With
Gruß Nouba

geschrieben von Nouba , 03.04.2006, 23:54 Uhr , 13 mal gelesen