Lægge måneder til dato flere gange

Og forresten feltet på den dato det skal lægges til, er me.startdato

noget i denne retning, i formularens modul

Dim Dato As Date, I As Integer
Dato = Me.startdato
For I = 1 To Val(Me.forekomster)
DoCmd.RunSQL "insert into opgaver datofelt values( #" & Dato & "#)"
Dato = Dato + DateSerial(0, Val(Me.hyppighed), 0)
Next

denne burde virke, men regner forkert ved mig, kan du eller andre bage videre på den.

  Dim Dato As Date, I As Integer
    Dato = DateValue(Me.Startdato)
    For I = 1 To Val(Me.forekomster)
        DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt )SELECT  #" & Dato & "#"
        Dato = Dato + DateSerial(0, Val(Me.hyppighed), 0)
    Next

Try altering
Dato = Dato + DateSerial(0, Val(Me.hyppighed), 0)

To
Dato = DateAdd("m", Val(me.hyppighed), Dato)

selvfølgelig terry, jeg byttede om på DateSeria og DateAdd

well it was rather early you placed your answer, so maybe you werent fully awake :o)

Have a good sunday everyone

i ligemåde terry ;-))

Tak for alle indlæggene

Men det der sker er at hvis jeg vælger startdato 1/1-2007 og hyppighed 2 hver anden måned, så bliver startdato for de 2 næste records 3/1-2007 og 5/1-2007.
Så den lægger det til dagen istedet for måned.

depend on th edate format
5/1-2007 is mm/dd/yyyy i would think

formattet i dato er dd-mm-yy. Hvordan skal koden så se ud?

DateAdd("m", Val(me.hyppighed), Dato) is adding 2 months to what ever date is in dato

after this line

Dato = DateValue(Me.Startdato)

put this line o fcode so we can see what date you are actually getting

Msgbox Format(dato, "yyyy/mm/dd")

dato 1/1-2008, kommer til at hedde 2008-01-01

det skal så lige siges at 1/2-2007 bliver til 2007-02-01

ret sql linien til denne


DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt )SELECT  #" & format(Dato,"dd-mm-yyyy") & "#"

Du skal også se på datofeltet i tabellen, om den er sat op til denne format

Kabbak: det gør at alle records får startdato = startdato, dvs. der bliver ikke lagt noget til. Koden ser sådan ud nu:

Private Sub CreateNewIssue_Click()
Dim Dato As Date, I As Integer
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord
    Dato = DateValue(Me.Startdato)
    MsgBox Format(Dato, "yyyy/mm/dd")
    For I = 1 To Val(Me.Forekomster)
        DoCmd.RunSQL "INSERT INTO [Opgaver totalt] ( startdato )SELECT  #" & Format(Dato, "dd-mm-yyyy") & "#"
        Startdato = DateAdd("m", Val(Me.Hyppighed), Startdato)
    Next
DoCmd.SetWarnings True
End Sub

startdato i formularen og feltet startdato i tabellen, har samme format. Kort datoformat

11/02-2007 12:29:42
try another date than 1/1/2007 you cant see what is month or day

13/01/2007 for example

Dato = DateAdd("m", Val(Me.Hyppighed), Startdato)

we need to make sure that the date being entered is getting converetd to a date in the correct format.

13/01/2007 bliver til 2007-01-13

Private Sub Kommandoknap6_Click()
    Dim Dato As Date, I As Integer
    Dato = Format(Me.Startdato, "dd-mm-yyyy", vbMonday, vbFirstFourDays)
    For I = 1 To Val(Me.forekomster)
        DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "'"
      Dato = DateAdd("m", Val(Me.hyppighed), Dato)
    Next
End Sub

har du sat Me.Startdato, til at væte et datofelt

Private Sub CreateNewIssue_Click()
Dim Dato As Date, I As Integer
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdSaveRecord
    Dato = Format(Me.Startdato, "dd-mm-yyyy", vbMonday, vbFirstFourDays)
  ' MsgBox Format(Dato, "yyyy/mm/dd")
    For I = 1 To Val(Me.Forekomster)
          DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "'"
        Startdato = DateAdd("m", Val(Me.Hyppighed), Startdato)
    Next
DoCmd.SetWarnings True
End Sub

denne linie
DoCmd.RunCommand acCmdSaveRecord
mener jeg ikke du behøver

Der var lige noget der ikke var retter, skulle være i orden nu

Private Sub CreateNewIssue_Click()
Dim Dato As Date, I As Integer
DoCmd.SetWarnings False
    Dato = Format(Me.Startdato, "dd-mm-yyyy", vbMonday, vbFirstFourDays)
  ' MsgBox Format(Dato, "yyyy/mm/dd")
    For I = 1 To Val(Me.Forekomster)
          DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "'"
      Dato  = DateAdd("m", Val(Me.Hyppighed),Dato )
    Next
DoCmd.SetWarnings True
End Sub

Da Startdato = DateAdd("m", Val(Me.Hyppighed), Startdato) blev lavet om til
Dato = DateAdd("m", Val(Me.Hyppighed), Startdato), skete der det at den første record korrekt blev 13/3/2007 (startdato 13/1/2007, forekomster 5), men de øvrige 4 records blev også 13/3/2007.

Nu begynder det at ligne noget

Hvis jeg f.eks. skal have overført me.emne til de records der bliver dannet, hvordan skal det så se ud?

DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt, EmmeFelt )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "'," & me.emmne

Ang. emne. Når jeg trykker på kommandoknappen, får jeg besked om at jeg skal indtaste parameterværdi. Lige ovenover det jeg skal skrive, står der det jeg har skrevet i emnefeltet i formularen. Koden:

Dim Dato As Date, I As Integer
DoCmd.SetWarnings False
    Dato = Format(Me.Startdato, "dd-mm-yyyy", vbMonday, vbFirstFourDays)
    MsgBox Format(Dato, "yyyy/mm/dd")
    For I = 1 To Val(Me.Forekomster)
          DoCmd.RunSQL "INSERT INTO [Opgaver totalt] ( startdato, Emne )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "'," & Me.Emne
      Dato = DateAdd("m", Val(Me.Hyppighed), Dato)
    Next
DoCmd.SetWarnings True

eller måske sådan

DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt, EmmeFelt )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "','" & me.emmne & "'"

denne virker her

Dim Dato As Date, I As Integer
DoCmd.SetWarnings False
    Dato = Format(Me.Startdato, "dd-mm-yyyy", vbMonday, vbFirstFourDays)
    For I = 1 To Val(Me.forekomster)
DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt, EmmeFelt )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "','" & Me.emmne & "'"
Dato = DateAdd("m", Val(Me.hyppighed), Dato)
    Next
DoCmd.SetWarnings True

Nu får jeg at vide at der er en syntaksfejl, med løsningen 13:16:25

For mig at se, ser koderne ens ud, på nær lige at nogle af felterne har et andet navn hos dig

Dim Dato As Date, I As Integer
    DoCmd.SetWarnings False
    Dato = Format(Me.Startdato, "dd-mm-yyyy", vbMonday, vbFirstFourDays)
    For I = 1 To Val(Me.forekomster)
        DoCmd.RunSQL "INSERT INTO Opgaver ( Datofelt, Emne )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "','" & Me.emmne & "'"
        Dato = DateAdd("m", Val(Me.hyppighed), Dato)
    Next
    DoCmd.SetWarnings True



Nu skulle felterne være ens
Feltet Emne, skal være et tekstfelt

Dim Dato As Date, I As Integer
    DoCmd.SetWarnings False
    Dato = Format(Me.Startdato, "dd-mm-yyyy", vbMonday, vbFirstFourDays)
    For I = 1 To Val(Me.forekomster)
        DoCmd.RunSQL "INSERT INTO Opgaver ( StartDato, Emne )SELECT  '" & Format(Dato, "dd-mm-yyyy") & "','" & Me.emne & "'"
        Dato = DateAdd("m", Val(Me.hyppighed), Dato)
    Next
    DoCmd.SetWarnings True

På en eller anden måde gjorde det forskellen, jeg kan bare ikke lige få øje på hvad det var, men det er måske heller ikke så vigtig. ak for hjælpen begge, i må gerne smide et svar

et svar ;-))