(30-09-2021, 18:11)hegu demiş ki: Teslim tarihini ([Ode_Ta]) önce girersem günü gelse bile araç hala kirada görünüyor. Fakat araç teslim edildiği gün girersem sorun çıkmıyor. Bu nedenle nasıl bir güncelleme yapayım ki önceden teslim tarihini girsem de günü gelince araç galeride görünmesini nasıl sağlıyabilirim.

(01-10-2021, 16:22)hegu demiş ki: Sayın dsezgin,

Aslında bana göre de araç galeriye gelince teslim tarihi yazmak doğru olanı. Fakat bu şekilde yazıldığında teslim tarihi gelince araç galeride görünmesine rağmen gelmediğini de tespit edilebilir sanırım. Ama en doğrusu araç teslim edildiğinde girilmesi.

Private Sub Ode_Ta_AfterUpdate()
If CLng(Nz(Me.Ode_Ta, #1/1/1800#)) >= CLng(Date) Then CurrentDb.Execute " UPDATE [Arac_Bilgisi] SET Drm = 'KİRADA' WHERE [Arc_Plaka]='" & Forms![Kisi_Bilgisi]![Arc_Plaka] & "'"
Me.Ode_Ta.Requery
End Sub
Private Sub Bit_Km_AfterUpdate()
If Me.Bas_Km >= Me.Bit_Km Then Me.Bit_Km = ""
If Ode_Ta <> "" Then CurrentDb.Execute " UPDATE [Arac_Bilgisi] SET Drm = '" & IIf(Bit_Km > 0, "GALERİDE", "KİRADA") & "' WHERE [Arc_Plaka]='" & Forms![Kisi_Bilgisi]![Arc_Plaka] & "'" Else Me.Bit_Km = "": Me.Ode_Ta.SetFocus
End Sub