Opret records via VBA i en form og indsæt i tabel via SQL

Public Function OpdelIRater(Beløb as single, Antal as long)
Dim cn as ADODB.connection
Dim rs as ADODB.Recordset
Dim n as long
Set cn = Currentproject.Connection
Set rs = New ADODB.Recordset
rs.Open "tblRater", cn, adOpenKeyset,adLockOptimistic
For n = 1 to Antal
  rs.Addnew
  rs!Ratenr = "Rate " & n
  rs!Beløb = Beløb/Antal
  rs.Update
Next n
rs.close
set rs = nothing
cn.close
set cn = Nothing
end function


Kald funktionen således fra formularen (f.eks. en knap):
OpdelIRater Me!Beløb, Me![Antal Rater]

Hej Thomas!
Lige i øjet! Jeg har også brug for at kunne datere raterne, men jeg opretter et nyt spørgsmål til den (hvis ikke jeg finder noget på sitet her...) 1000 Tak mvh Thomas

anytime :o)

Du kan altid lægge en dato ind sammen med de andre felter. F.eks. således:

...
Startdato = Date+30
For n = 1 to Antal
  rs.Addnew
  rs!Ratenr = "Rate " & n
  rs!Beløb = Beløb/Antal
  rs!dato = Startdato + n*7
  rs.Update
Next n
...

Dette lægger ratedatoer ind med 7 dages mellemrum, startende 30 dage fra nu. (blot et eksempel)

Det var PRÆCIS det jeg var ude efter! Det kører for dig! Hvis min Startdato fx. er '10-01-2004', hvordan rammer jeg så den 10 dag i hver af de efterfølgende måneder (alle rater betales fx. på dag 10 ...)????? / håber det går an / Thomas

Måske sådan:
For n = 1 to Antal
  rs.Addnew
  rs!Ratenr = "Rate " & n
  rs!Beløb = Beløb/Antal
  rs!dato = dateadd("m", n, Startdato)
  rs.Update
Next n

Yepper! Hvordan får du nu point for alt det?? / Thomas

det er ok...send lidt venlige tanker en anden gang, så går det nok :o)