Sn.Ozanakkaya, arada bakmama rağmen son mesajını görmedim-Dikkatimden kaçmış.

Verdiğiniz kodu düzenleyip kullandım, refaransları ayarladım ancak, birincil anahtar hatası veriyor..Müsait bir vaktinizde kontrol ederseniz sevinirim, zira ben bu sistemi olumlu sonuç alamadığım için askıya almıştım.Tşk.

YAzdır butonunun tıklandığında olayına aşağıdaki kodu ekle.

DoCmd.OpenReport "Ustyazi", acViewPreview, , kriter

DoCmd.PrintOut acPrintAll, , , acHigh, 2

DoCmd.SetWarnings False

DoCmd.OpenQuery ("srg_ekleme")

DoCmd.SetWarnings True

aşağıdaki kodu sorgunun Sql kısmına yapıştır, sorguyu "srg_ekleme" adında kaydet.

UPDATE T_VERİ SET T_VERİ.YanıtTarıhı = Date()

WHERE (((DateAdd("m",Left([DONEMI],1),[YanıtTarıhı])) Between [Formlar]![F_RAPOR]![ilktarih] And [Formlar]![F_RAPOR]![sontarih]));

Sn Ozanakkaya, dedikleriniz yaptım..yanıttarihini güncellediğini gördüm, benim pc ve yazıcı havaya uçtuğu için yazıcılı bir pc de denemem lazım..Sanırım bu iş tamamdır.Tşk.