03/10/2021, 18:37
userx
Sayın hegu
Öncelikle yeni bir modül oluşturup alttaki kodu ekleyin.
Daha sonra Odeme_Alt_Formu'ndaki
Private Sub Ode_Ta_AfterUpdate() altındaki komutu alttaki komutla değiştirin.
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?
Ö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?