DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE Tablo1 SET tarih = Date() WHERE (((Kimlik)=" & Kimlik & "))"
DoCmd.SetWarnings True
Merhaba, kullanmanız gereken kod;