Opret poster direkte i tabel

Hvis det altid er dags dato, der skal indsættes i tabel2 er det nemmeste blot at sætte datofeltet til: default værdi: =date()
Det gør du i tabeldesign.

Dim db as dao.database
Dim SQL as string

set db = currentdb

SQL = "INSERT INTO tabel2 (PersonID,timer) SELECT ID,timer FROM tabel1"

db.execute SQL,dbFailOnError

To små kommentarer:
Der er vist smuttet et felt for meget med ind. Der er ingen Timer i Tabel 1. Det bør være:
  INSERT INTO Tabel2 (PersonID) SELECT Tabel1.Id FROM Tabel1;

... og så er det ikke altid helt smart at kalde et felt for "Navn", idet det er et "½-reserveret navn" i Access. Før i tiden var det sådan, at hvis du f.eks. prøvede at printe feltet på en rapport, ville Access vise rapportens navn i stedet for personens navn. Lækkert, ikke?
Den ser ud til at være rettet nu; men der kunne være andre - og der jo ingen garantier fra Microsofts side. Jeg ville ikke udfordre skæbnen.

Timer er nok heller ikke så god som feltnavn.

Det virker lige efter hensigten, tak.

Med hensyn til navngivningen er jeg helt enig, og det er kun en dummy-base til at afprøve nogle ting til andre baser.