[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: 82)



  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
  [RAPOR] Raporda Kolon Gizleme Veya Sorgudan Excel' E Aktarırken Boş Kolonları Aktarmasın Samih KARSLI 2 64 15-03-2024, 15:39
Son Mesaj: Samih KARSLI
  [FORM] Aktif Saati Tablodaki Saat Arasına Göre Bulup Forma Yazdırma yahyamacit 5 105 14-03-2024, 11:07
Son Mesaj: yahyamacit
  [FORM] Butonlara Yetkiye Göre Aktif Pasif Olsun Ahmet51 5 142 15-01-2024, 15:49
Son Mesaj: Ahmet51
  [TABLO] Seçilen Projeye Göre Tablolara Veri Ekleme webtenoyna 4 119 24-12-2023, 16:47
Son Mesaj: webtenoyna
  Açılır Kutu Değerine Göre Tablo2'ye Değer Yazsın Veya Satır Eklesin. ŞabanTR 11 285 24-12-2023, 14:38
Son Mesaj: dsezgin
  Seçime Göre Raporlama 2 halil.tefci 9 228 22-12-2023, 23:08
Son Mesaj: halil.tefci
  [FORM] Metin Kutusundaki Değere Göre Altforma Kayıt Eklensin Yada Eklenmesin ŞabanTR 4 159 17-12-2023, 17:40
Son Mesaj: ŞabanTR
  Veri çekme toros333 1 110 25-11-2023, 01:26
Son Mesaj: dsezgin

Foruma Git:


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