[Georgyboy]

Ciao,
prova così:

UPDATE Tab1 SET Periodo = DateSerial(Year(Tab1!Periodo),Month(tab1!Periodo),1)
WHERE Day([Periodo])<>1;