Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] tc'ye göre veya ad soyada göre veri çekme

[FORM] tc'ye göre veya ad soyada göre veri çekme
ozer71
Yeni Üye 1-15

*
Kayıt Tarihi: 05.06.2014
Toplam 3 konu açtı.
Toplam 5 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2007 TR,
Beğeniler: 0 / 0
#1
20-05-2015, 12:37
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: 103)



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 27 konu açtı.
Toplam 9.087 yorum yaptı.
Toplam 1.089 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 57 / 239
#2
20-05-2015, 14:03
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
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [SORGU] Kelime Içinde Geçen 2 3 4 Harfe Göre Veri Doldurma toros333 1 199 16-02-2026, 02:12
Son Mesaj: dsezgin
  Tabloya Göre Veri Doldurma toros333 2 143 15-02-2026, 01:48
Son Mesaj: toros333
  Randevu Tarihine Göre Uyarı Vermesi Ve Renklendirme hegu 4 227 11-02-2026, 23:31
Son Mesaj: hegu
  Açılan Kutudan Kritere Göre Veriyi Başka Alana Yazdırma osman06 8 460 23-11-2025, 11:33
Son Mesaj: dsezgin
  [FORM] Seçili Tarihe Göre Filtreleme husem 3 310 25-09-2025, 00:25
Son Mesaj: halily
  Müşteri Kategorisine Göre Sipariş No Verdirme husem 8 620 25-08-2025, 11:42
Son Mesaj: husem
  Siteden Accese Vb Veri çekme Hakkında sertac75 2 451 26-05-2025, 11:08
Son Mesaj: sertac75
  [SORGU] Soldan 3 Değere Göre Toplam Alma karacahil 2 347 14-05-2025, 17:03
Son Mesaj: karacahil

Foruma Git:


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