tømme indhold af en tabel

I dine kriterier for hhv. sletteforespørgsler og tilfæjelsesforespørgsler, kan du aktivere et variabelinput ved at indsætte dette [År:]

Dim y As Integer


    DoCmd.SetWarnings False

    DoCmd.RunSQL "DELETE * from T1"
   
    y = InputBox("Indast år", "År", 0)
   
    Do Until y = 0
   
    DoCmd.RunSQL "INSERT into T1 ([År]) VALUES (" & Year(Date) - y + 1 & ")"
        y = y - 1
    Loop
   
    DoCmd.SetWarnings True

docmd.runsql "DELETE * FROM T1"

M.h.t. indsættelse af år, skal du blot bruge "hele år" eller også dato?

mugs: det er bare årstallet, men den virker nu

tak Terry

selv tak