Hej
Jag har ett problem med datum. Tanken är att man skall lägga in ett start datum och ett slutdatum där efter så får man välja hur många schema perioder man ska lägga in . Sen tar det även hänsyn till hur många som ligger i den beredskapsgången..

Så här ser koden ut

Antal = Antal -1
Do while not Antal = 0
Datum_ON = DateAdd("ww", Period, Datum_OFF)
Datum_OFF= DateAdd("d", 7 ,Datum_ON )

objCommand.CommandText = " INSERT INTO tblSchema1 (PersonID,Datum_ON,Datum_OFF,Timme_ON,Timme_OFF,Schema_Info) " &_
VALUES ('" & PersonID & "','" & Datum_ON & "','" & Datum_OFF & "','" & Timme_ON & "','" & Timme_OFF & "','" & Schema_Info & "')" objCommand.Execute intNoOfRecords
Antal=Antal -1
Loop

Antal motsvarar hur många scheman man ska lägga in.
Period motsvarar antalet personer den skall räkna på.

Men det som är fel är att den tar och lägger in schemat men den hoppar över en vecka.
Exempel
det är 3 pers den lägger in de 3 första veckorna ok sen hoppar den over en vecka sen börjar den om igen och gör rätt med 3 pers och sen igen hoppar över en vecka..

Tacksam för hjälp.

//Frazz

Kan det ha att göra med:
Antal = Antal -1 <---Detta
Do while not Antal = 0
Datum_ON = DateAdd("ww", Period, Datum_OFF)
Datum_OFF= DateAdd("d", 7 ,Datum_ON )

objCommand.CommandText = " INSERT INTO tblSchema1 (PersonID,Datum_ON,Datum_OFF,Timme_ON,Timme_OFF,Schema_Info) " &_
VALUES ('" & PersonID & "','" & Datum_ON & "','" & Datum_OFF & "','" & Timme_ON & "','" & Timme_OFF & "','" & Schema_Info & "')" objCommand.Execute intNoOfRecords
Antal=Antal -1 <---Och sen igen!