Udfyld felter via løkke

Public Sub IndsaetData()
Dim dbs As DAO.Database, rst As DAO.Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("TalTabel")
      With rst
      .AddNew
          For t = 0 To 9
          .Fields(t) = t
          Next
      .Update              ' Gem ændringer.
    End With
    dbs.Close

End Sub

Det havde jeg ikke formuleret ret godt: Felterne er tekstfelter på form og jeg har benævnt 0, 1, 2, 3 ... 9 for at kunne indsætte værdier fra en løkke. :o)

.Fields(t) , er ikke navnet på feltet, det er feltets kolonne nummer.

hvis det ikke er det du vil, så må du uddybe det lidt mere.

Har en testdb - kan jeg sende den?

kabbak@tiscali.dk

Når det kun er på formularen, hvis den altid skal have disse værdier ved opstart er det nemmere at gå i feltegenskaber og sæt standardværdien der.

Desværre skal værdierne ændres af og til. Nogen gange skal værdier være fra 0 til 9 andre gange 17 til 25 o.s.v.

Private Sub Form_Load()
Dim T As Integer
T = 100
  [0] = T
  [1] = T + 1
  [2] = T + 2
  [3] = T + 3
  [4] = T + 4
  [5] = T + 5
  [6] = T + 6
  [7] = T + 7
  [8] = T + 8
  [9] = T + 9
   
End Sub

Jeg har desværre mange af den slags felter i forskellige formularer. Måske nogen med enumerate, men jeg har ikke erfaring med den slags.
Tænkte om ikke en løkke på en eller anden måde, kunne forenkle/lette dette omstændenlige arbejde.

Lav et nyt tekstfelt i formularen, du kan kalde det T, det har jeg gjort i dette tilfælde og sæt så denne kode ind

Private Sub Form_Load()
  [T] = 1
  [0] = [T]
  [1] = [T] + 1
  [2] = [T] + 2
  [3] = [T] + 3
  [4] = [T] + 4
  [5] = [T] + 5
  [6] = [T] + 6
  [7] = [T] + 7
  [8] = [T] + 8
  [9] = [T] + 9
   
End Sub

Private Sub T_Exit(Cancel As Integer)
  [0] = [T]
  [1] = [T] + 1
  [2] = [T] + 2
  [3] = [T] + 3
  [4] = [T] + 4
  [5] = [T] + 5
  [6] = [T] + 6
  [7] = [T] + 7
  [8] = [T] + 8
  [9] = [T] + 9
  Me.Refresh
End Sub

Virker fint, men hvad bruger du T_Exit proceduren til, da det tilsyneladende fungerer uden?

Private Sub T_Exit(Cancel As Integer)
bruges når du har ændrer værdi i feltet T,
mens formen er aktiv

Private Sub Form_Load()
Standardværdi ved åbning

hmm - har oprettet en procedure, der via parameter ændrer indholdet i felterne og uden refresh fra knapper.