Lineær nedskrivning af saldo

Sub Nedskrivning()
  Dim B As Single
  Dim P As Integer
  Dim N As Single
 
  Debug.Print "---------"
  B = 26000
  N = B
  For P = 1 To 26
    Debug.Print Format((P * 2 - 1), "00"), N
    DoCmd.RunSQL "INSERT INTO MinTabel (Periode, Beløb) SELECT " & Format((P * 2 - 1), "00"), N
    N = B - (B / 26 * P)
  Next P
End Sub

Det virker ikke :o(

Number of query values and destination fields are not the same

My mistake. Her er den korrekte:

Sub Nedskrivning()
  Dim B As Single
  Dim P As Integer
  Dim N As Single
 
  Debug.Print "---------"
  B = 26000
  N = B
  DoCmd.SetWarnings False
  For P = 1 To 26
    Debug.Print Format((P * 2 - 1), "00"), N
    DoCmd.RunSQL "INSERT INTO PeriodeTabel (Periode, Beløb) SELECT '" & Format((P * 2 - 1), "00") & "', " & N
    N = B - (B / 26 * P)
  Next P
  DoCmd.SetWarnings True
End Sub

Øhhhh er det kun 26.000 kr. den virker med ... dette fejler også ?

Function Nedskrivning()
Dim Message, Title, Default, MyValue

  Dim B As Single
  Dim P As Integer
  Dim N As Single
 
  Message = "Indtast primosaldo for budgetkunden"    ' Set prompt.
  Title = "Generer budgetkunde"    ' Set title.
  Default = "100.000"    ' Set default.

  MyValue = InputBox(Message, Title, Default)
 
 
  Debug.Print "---------"
  B = MyValue
  N = B
  DoCmd.SetWarnings False
  For P = 1 To 26
    Debug.Print Format((P * 2 - 1), "00"), N
    DoCmd.RunSQL "INSERT INTO tmpTabel (Periode, Beløb) SELECT '" & Format((P * 2 - 1), "00") & "', " & N
    N = B - (B / 26 * P)
  Next P
  DoCmd.SetWarnings True

End Function

Den accepterer alle værdier som er delelige med 26 !!!!

Det er jo det sædvanige format-fnidder. Her er en testet version (nu har jeg startet Access):

Function Nedskrivning()
  Dim Message, Title, Default, MyValue

  Dim B As Single
  Dim P As Integer
  Dim n As Single
 
  Message = "Indtast primosaldo for budgetkunden"    ' Set prompt.
  Title = "Generer budgetkunde"    ' Set title.
  Default = "100.000"    ' Set default.

  MyValue = InputBox(Message, Title, Default)
 
 
  Debug.Print "---------"
  B = MyValue
  n = B
  DoCmd.SetWarnings False
  For P = 1 To 26
    Debug.Print Format((P * 2 - 1), "00"), n
    DoCmd.RunSQL "INSERT INTO tmpTabel (Periode, Beløb) SELECT '" & Format((P * 2 - 1), "00") & "', " & Replace(Str(Format(n, "Standard")), ",", ".")
    n = B - (B / 26 * P)
  Next P
  DoCmd.SetWarnings True

End Function

Det virker ... tak for indsatsen

Velbekomme. Tak for point  ;o)