docmd.setwarnings false
DoCmd.RunSQL "UPDATE Tablo1 SET DM = '1' WHERE (((DM)=-1))"
docmd.setwarnings true

komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
ustalar konuşunca çıraklar keser sesi.