Koddaki ilk sorgu;

DoCmd.RunSQL "UPDATE DEVIR_GELIR_TOPLAM SET TOPLAM = '" & Metin23 & "' WHERE TARIH = #" & Format(Me.TARIH2, "mm\/dd\/yyyy") & "#;"

ikinci sorgu;

DoCmd.RunSQL "INSERT INTO DEVIR_GELIR_TOPLAM ( TARIH, TOPLAM ) values('" & TARIH2 & "', '" & Metin23 & "')"