Skip to main content

AccessTr.neT


Alt Form Ve Alt Formda Bir Alanı Güncelleme

Alt Form Ve Alt Formda Bir Alanı Güncelleme

#13
Sayın hegu
Öncelikle yeni bir modül oluşturup alttaki kodu ekleyin. 
PHP Kod:
Sub oto_durum()
On Error Resume Next
If Nz(DLast("CLng(Forms![Kisi_Bilgisi]![Odeme Alt Form]![Ode_Ta])""Arac_Bilgisi""Forms![Kisi_Bilgisi]!musteriid=" 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 
Daha sonra Odeme_Alt_Formu'ndaki
Private Sub Ode_Ta_AfterUpdate() altındaki komutu alttaki komutla değiştirin.
PHP Kod:
Private Sub Ode_Ta_AfterUpdate()
oto_durum
Me
.Ode_Ta.Requery
End Sub 
Ayrıca ileri ve geri tuşlarınındaki komuta
oto_durum
komutunu ekleyin (İleri ve geri tuşuna basıldığında otonun durumunu kontrol etmek için)
Kontrol edip durum bildirir misiniz?
"Dünyayı fazla düşünme."

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Alt Form Ve Alt Formda Bir Alanı Güncelleme - Yazar: userx - 03/10/2021, 18:37
Task