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.
