A.S.C Filtre, Grafik ve Raporlama Eklentisi

Liste Kutusunda Veri Güncelleme.
#1
Arkadaşlar sizlerin büyük katkılarıyla bir program hazırladım. Lakin bir konuyu açamadım.Yardım edebilir misiniz?

Evci giriş formunda gidiş tarihi dönüş tarihinden küçük olmamalı
* Çift tıkladığımda kişiler karşıya geçmeli. Bazen geçiyor. Bazende geçmiyor.

Evci_hy formunda çif tıklama olayında numaralar metin kutusuna geliyor. Lakin listaralık liste kutusu tarihlere göre kişileri güncellenmiyor.


Eklenti Dosyaları
.rar   PANSİYON YÖNETİM PROGRAMI.rar (Boyut: 2,3 MB / İndirilme: 30)



  Alıntı
Bu mesajı beğenenler:
#2
Visual Basic
  1. Option Compare Database
  2. Dim DonusT As Date
  3. Private Sub donus_AfterUpdate()
  4. '****Gidis-Donus *** Buyuk-Kucuk kontrolu *********
  5. If CLng(CDate(Me.donus)) < CLng(CDate(Me.gidis)) Then Me.donus = vbNullString: MsgBox "gidiş tarihi dönüş tarihinden küçük olmamalı", vbCritical, "HATA": Exit Sub
  6. '****Donus Tarihi guncellemesi ile LstAralik odakli kisinin donus tarihi degistirilir. *********
  7. If Me.LstAralik.ItemsSelected.Count > 0 Then
  8.    If CLng(CDate(DonusT)) <> CLng(CDate(Me.donus)) Then
  9.        CurrentDb.Execute "UPDATE TblEvciTakip SET TblEvciTakip.evcidonustarihi = " & CDate(Me.donus) & " WHERE (((TblEvciTakip.tblono)=" & LstAralik.Column(0) & "))"
  10.    End If
  11. End If
  12. Me.LstAralik = ""
  13. Me.LstAralik.Requery
  14. End Sub
  15. Private Sub donus_Enter()
  16. If Me.donus = "" Or IsNull(Me.donus) Then DonusT = Date Else DonusT = Me.donus
  17. End Sub



Donus tarihi guncellendiginde Buyuk-Kucuk kontrolu ve LstAralik odakli kisinin donus tarihi degistirilir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Sorgu Sonucu Oluşan Bir Değeri Formda Metin Kutusunda Görüntülemek ctnerdal 14 308 11-08-2020, 16:21
Son Mesaj: halily
  [VBA] Liste Kutusuna Vba Kodu Ile Veri çekmek footprinting 5 246 09-08-2020, 13:06
Son Mesaj: halily
access-sql-9 [FORM] Form Veri Girişi Ve Güncelleme ginzu- 2 146 07-08-2020, 20:29
Son Mesaj: ginzu-
  [SORGU] Metin Kutusunda Ki Verileri Yan Yana Görüntüleme hedefkaya 2 226 05-05-2020, 13:16
Son Mesaj: hedefkaya
  Liste Kutusunda Ileri-geri Access70 3 178 30-04-2020, 16:59
Son Mesaj: dsezgin
  [VBA] Ağdaki Projeleri Güncelleme benuva 9 536 20-04-2020, 02:27
Son Mesaj: dsezgin
  [FORM] Güncelleme Sonrası Yazdırma Işlemi Ahmet51 14 516 13-04-2020, 14:46
Son Mesaj: Ahmet51
  [SORGU] Liste Kutusu Arama Filtresi - Ilişkili Tablolardan Veri Alma Sorunu mgunes 2 277 21-03-2020, 00:23
Son Mesaj: mgunes

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi