Kişi_Bilgisi formundaki Odeme Alt Form unda Teslim tarihi([Ode_Ta])

Vakit darlığından detaylı inceleyemedim ama şunu önerebilirim. İlk açılan formunuza otomatik tarih ekleyip yüklendiğinde olayına bir update sorgusu ekleyin ve kirada görünen araçların teslim tarihi bu tarihe eşit ise galeride olarak update edin.

sayın atoykan hocam,
örnek üzerinde yapma imkanınız var mı veya update yordamını yazarmısınız. teşekkür ederim.

Private Sub Ode_Ta_AfterUpdate()

If Nz(DLast("CLng(Ode_Ta)", "Arac_Bilgisi", "Srn='" & Forms![Kisi_Bilgisi]![Odeme Alt Form]![Srn] & "'"), 0) >= CLng(Now()) Then

CurrentDb.Execute " UPDATE [Arac_Bilgisi] SET Drm = 'KİRADA' WHERE [Arc_Plaka]='" & Forms![Kisi_Bilgisi]![Arc_Plaka] & "'"

Else

CurrentDb.Execute " UPDATE [Arac_Bilgisi] SET Drm = 'GALERİDE' WHERE [Arc_Plaka]='" & Forms![Kisi_Bilgisi]![Arc_Plaka] & "'"

End If



End Sub

Bu yordamı yazdığımız zaman sıkıntı sadece önceden yazılması. Eğer günü geldiğinde yazarsam yordam çalışıyor. Fakat teslim tarihi "[Ode_Ta]" önceden yazılırsa günü gelse bile yordam görev yapmıyor. Tekrar teslim tarihini girersem sorun olmuyor. Önceden yazıldığında neden yordam görev yapmıyor.

Yazdığınız kod güncelleştirme sonrasında çalışır. Yani yazdınız yordam çalıştı ve bitti, sonra yeniden yazdığınızda güncelleme yapmış olduğunuz için yordam yeniden çalışıyor.

Sayın atoykan hocam,
Peki tarih gelince nasıl bir güncelleme yapmamız lazım. Bu konuda yardımcı olabilir misiniz. Teşekkür ederim.