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]));