Opdatering af tabellerne med "Timerinterval"

Jeg opdater mine tabeller med nedenstående kode:
 
  Dim rs
  Dim tmpID As Long
  tmpID = Me!ID
  Me.Requery
  Set rs = Me.RecordsetClone
  rs.FindFirst "ID = " & tmpID
  Me.Bookmark = rs.Bookmark

Men her bliver fokus sat tilbage til feltet med Tabulatorindex 1.

Jeg forestiller mig noget i stil med, at jeg tilføje noget i stil med nedenstående:
varFelt = Screen.”nuværendeflet.navn”
…
…
…
varFelt.Set

Men kan ikke få dette til, at virke, da den så sætter varFelt lig værdien i feltet og ikke feltets navn.

Nogen der kan hjælpe.

//Oergaard