verwijderen gegevens uit tabel

[tepke]

beste

ik gebruik nu onderstaande code om een hele tabel leeg te gooien

DoCmd.RunSQL "DELETE * FROM PROD_Acc"

Nu wil ik niet de hele tabel leeg gooien maar alles na een bepaalde datum in veld [TRNDATUM]

DoCmd.RunSQL "DELETE [TRNDATUM] >"31-12-2016" FROM PROD_Acc"

??

kan iemand me helpen met de code

alvast bedankt

 

[OctaFish]

Als je de query eerst zelf zou maken in de Query builder, dan had je al een aardig idee gehad; dan had je query er zo uitgezien:

DoCmd.RunSQL "DELETE FROM PROD_Acc WHERE TRNDATUM>#12/31/2016#;"

Zoals je ziet is de datum een beetje tricky; als je queries uitvoert in VBA moet je rekening houden met een Amerikaanse datumnotatie. Om dat te omzeilen (nu gaat het goed; er zijn geen 31 maanden dus Access krijgt hem wel uitgevoerd, maar bij 1-8-2016 gaat het wél fout) converteer ik een datum eerst. En dan krijg je dit:

        CurrentDb.Execute "DELETE FROM PROD_Acc WHERE TRNDATUM> CDate(" & DateSerial(2016, 12, 31) & ");", dbFailOnError

Ik gebruik ook liever Execute dan RunSQL, zoals je ziet .