Kopier felt værdi over i en tabel

I afkrydsningsfeltets AfterUpdate kan du lægge følgende:

Private Sub Afkrydsningsfelt_AfterUpdate()
  if me.Afkrydsningsfelt=True then
    docmd.setwarnings false
    docmd.runsql("INSERT INTO DinTabel (DitFelt) SELECT " & me.id & ";"
    docmd.setwarnings true
  end if
End Sub

... men pas på: Hvis brugeren afkrydser feltet og derefter fjerner markeringen - og sætter den igen vil id-værdien jo blive indsat i tabellen to gange.

Takker for point ;O)