title image


Smiley Re: Zeitraum in einzelne Datensätze umsetzen
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: