izninizle bir önceki örnekten yine devam edecek şekilde devam etmek istiyorum.siz,uygun düzenlemeleri yine yapabilirsiniz.
METİN20 adlı olay yordamının içini yine
Kod:
Me.sonraki_geleceği_tarih = DateAdd("m", Me.Metin20, Me.yapıldığı_tarih)ardından,alt form üzerindeki KAYDET ifadeli Komut18 adlı denetimin TIKLANDIĞINDA olay yordamındaki makro ifadesini iptal edip yerine OLAY YORDAMI ifadesini seçip,ilgili olayın içerisine geçiniz.
Kod:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE 1_işlem SET [sonraki geleceği tarih]= #" & Format(DateAdd("m", Me.Metin20, Me.yapıldığı_tarih), "mm\/dd\/yyyy") & "# WHERE sırano=" & Me.sırano
DoCmd.SetWarnings True
Forms![0_kişi_t].Requerybilginize...iyi çalışmalar,saygılar.
