A.S.C Filtre, Grafik ve Raporlama Eklentisi

[FORM] tc'ye göre veya ad soyada göre veri çekme
#1
ARKADAŞLAR KOLAY GELSİN. EKTEKİ DOSYADAKİ TABLO1 DEKİ ALANLARDAN KARAR TARİHİ ALANINA TEDBİR SÜRESİ ALANINDAKİ GÜN SAYISINI EKLEYEREK KARAR BİTİŞ TARİHİ ALANINA BİTİŞ TARİHİ EKLENSİN. AYRICA DURUM ALANINA KARAR BİTİŞ TARİHİ BUGÜN VEYA BUGÜN TARİHİ GELMEMİŞ İSE GÜNCEL, BUGÜN TARİHİ GEÇMİŞ İSE SÜRE BİTTİ YAZSIN.

BİR DE FORMDA TC VEYA AD SOYAD YAZILINCA O KİŞİLERLE İLGİLİ NE KADAR KAYIT VARSA GELSİN. YARDIMCI OLURSANIZ SEVİNİRİM.


Eklenti Dosyaları
.rar   Database51.rar (Boyut: 23,17 KB / İndirilme: 61)



  Alıntı
Bu mesajı beğenenler:
#2
Sn ozer71;
1. TEDBİR SÜRESİ ALANINDAKİ GÜN SAYISINI EKLEYEREK KARAR BİTİŞ TARİHİ ALANINA BİTİŞ TARİHİ EKLENSİN.
Alt formda
Visual Basic
  1. Private Sub TEDBİR_SÜRESİ_AfterUpdate()
  2. Me.KARAR_BİTİŞ_TARİHİ = DateAdd("d", Me.TEDBİR_SÜRESİ, Me.MAHKEME_KARAR_TARİHİ)
  3. End Sub



2. DURUM ALANINA KARAR BİTİŞ TARİHİ BUGÜN VEYA BUGÜN TARİHİ GELMEMİŞ İSE GÜNCEL, BUGÜN TARİHİ GEÇMİŞ İSE SÜRE BİTTİ YAZSIN.
Ana form gecerlı oldugu olay yordamına
Visual Basic
  1. Private Sub Form_Load()
  2. Dim Kyt As Recordset
  3. Set Kyt = Me.RecordsetClone
  4. Do Until Kyt.EOF
  5. If Not IsNull(Kyt![KARAR_BİTİŞ_TARİHİ]) Then
  6. Kyt.Edit
  7. Kyt!DURUMU = IIf(Kyt![KARAR_BİTİŞ_TARİHİ] <= Date, "GÜNCEL", "BİTTİ")
  8. Kyt.Update
  9. End If
  10. Kyt.MoveNext
  11. Loop
  12. Kyt.Close: Set Kyt = Nothing
  13. End Sub




3. TC VEYA AD SOYAD YAZILINCA O KİŞİLERLE İLGİLİ NE KADAR KAYIT VARSA GELSİN.
Aa forma ARAMA metin kutusu olusturun.
Visual Basic
  1. Privare sub ARAMA_Afterupdate()
  2. Me.filter=iif(isnumeric(Mid(me.ARAMA,1,1)),"[MAĞDUR TC]","[MAĞDUR ADI]") & " Like '* " & me.ARAMA & "*'"
  3. me.filteron=true
  4. end sub


ile yapilabilir



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-18 Seçilen Kritere Göre Tarih Hesaplama evidi 5 104 Dün, 14:30
Son Mesaj: metınaycıcek
  Kriterlerine Göre Rapor Oluşturma irfans 4 211 08-07-2021, 15:54
Son Mesaj: dsezgin
  [FORM] Altformda Seçili Değere Göre Kayıtların Hepsinin Gözükmesi charisma1907 4 165 10-06-2021, 14:45
Son Mesaj: charisma1907
  Koşula Göre Kod calief 6 236 09-06-2021, 16:21
Son Mesaj: dsezgin
  Rastgele Sayıya Göre Rapor Açma dmn815 12 386 08-06-2021, 11:34
Son Mesaj: dmn815
  Listbox çift Tıklama Olayında Kayda Göre Pencere Açma Hk. volki3301 1 126 01-06-2021, 15:00
Son Mesaj: onur_can
  [FORM] Listbox'da Satır Genişlemesi Veya Büyümesi M_Kemal_Askeri 2 157 14-05-2021, 20:49
Son Mesaj: M_Kemal_Askeri
  Alt Formdaki Alana Göre Veri Kısıtlanması sensu 0 102 04-04-2021, 21:13
Son Mesaj: sensu

Foruma Git:


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