Skip to main content

AccessTr.neT


Alt Form Ve Alt Formda Bir Alanı Güncelleme

Alt Form Ve Alt Formda Bir Alanı Güncelleme

#7
Kişi_Bilgisi formundaki Odeme Alt Form unda Teslim tarihi([Ode_Ta])
#8
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.
#9
sayın atoykan hocam,
örnek üzerinde yapma imkanınız var mı veya update yordamını yazarmısınız. teşekkür ederim.
Son Düzenleme: 03/10/2021, 09:21, Düzenleyen: hegu.
#10
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.
#11
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.
#12
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.

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task