Skip to main content

#EvdeKal


Bir Kaç Kelime Ve Sayı Yazınca Yakın Olanları Göstermesi

Bir Kaç Kelime Ve Sayı Yazınca Yakın Olanları Göstermesi

Çözüldü #1
Merhaba arkadaşlar. Ekte kimlik bildirim programım var. Burada geçen yıllarda sağolsun ustalarla beraber yaptık. Bir kaç eksikliği kaldı. Onları tamamlayıp burada yayınlayacağım. Herkes faydalansın. En büyük eksiklik şu: DETAYLI ARAMA menüsünde TC kimlik veya ad soyad kısmını doldurmaya başlayınca altta sorgu detayları kısmında Ara bul butonuna basmadan doldurduğumuz yakın kayıtlar gözükmüyor. Mesela TC kimlik araması yaparken arama kısmına 124 yazdığımda 124 içeren ve yakın olan kişileri göstermiyor. İlla TC kimlik nosunu tam yazıp Ara bul butonuna basmamız gerekiyor. İsim-soyisim ve tc kimlik bölümünde olması yeterli. 

2. Bu Detaylı Arama kısmında bulduğumuz kaydın üzerine tıklayıp ana ekrana geldiğinde kayıtlar arası geçiş yapamıyorum. Yani 2019/2'yi bulup tıkladığımda ileri yapıp 2019/3 e veya geri yapıp 2019/1 e geçemiyorum kilitleniyor ve yeniden aç kapat yapmam gerekiyor.

3. sorun ise kaşe bas kısmında isim-soyisim girildiğinde word e şablon yapmıştık onun içine aktarıyordu çıktı alıyorduk. Office 2016 yükledikten sonra şablonun içinde isim soyisim çıkmıyor. Bu sorunları düzeltebilirsek çok sevinirim. Herkese faydalı bir program kazandırmış oluruz. Teşekkürler.
.rar KBStest.rar (Dosya Boyutu: 1,2 MB | İndirme Sayısı: 9)
Son Düzenleme: 12/04/2019, 15:35, Düzenleyen: prestij06.
Cevapla
#2
ilk sorunuz için hem  "SAYISI" metin kutusunun hem de "KONUNUN ÖZETİ" metin kutusunun değiştiğinde olayını aşağıdaki kodu yazıp dener misiniz?

Visual Basic Code
Sorgu_Altform.Form.RecordSource = "select * FROM DEFTER_KAYIT where (SAYISI like '*" & Me.SAYISI & "*') and [KONUNUN ÖZETİ] like '*" & Me.KONUNUN_ÖZETİ & "*') "

Cevapla
#3
bir tane parantez aç işaretini eklemeyi unutmuşum.

Visual Basic Code
Sorgu_Altform.Form.RecordSource = "select * FROM DEFTER_KAYIT where (SAYISI like '*" & Me.SAYISI & "*') and ([KONUNUN ÖZETİ] like '*" & Me.KONUNUN_ÖZETİ & "*') "

diğer sorular için yeni konu açmanız daha uygun olur.

Cevapla
#4
(12/04/2019 18:03)haliliyas Adlı Kullanıcıdan Alıntı: bir tane parantez aç işaretini eklemeyi unutmuşum.

Visual Basic Code
Sorgu_Altform.Form.RecordSource = "select * FROM DEFTER_KAYIT where (SAYISI like '*" & Me.SAYISI & "*') and ([KONUNUN ÖZETİ] like '*" & Me.KONUNUN_ÖZETİ & "*') "

diğer sorular için yeni konu açmanız daha uygun olur.



Hocam kod tam karşılamıyor hataları aşağıya yazıyorum:

1- İsmi veya TC yi kutucağa yazdığımda tüm kayıtlar gözüküyor. Ben yazdığım isim veya TC numarasının benzerlerinin çıkmasını istiyorum
Örneğin: İsim kutucuğuna "Mu" yazdığımda sadece isminin içinde Mu geçenleri göstersin Mustafa, Murat vb. gibi. Aynı şekilde Tc numarasında da

2- Çıkan isimlere tıklanmıyor ve Kayıt No kısmı #Ad? hatası veriyor kayıt no göstermiyor.

bu şekilde nasıl yapabiliriz. Emeğiniz için teşekkürler...
Cevapla
#5
aşağıdaki kodları dener misiniz
"KONUNUN_ÖZETİ" metin kutusunun değiştiğinde olayı

Visual Basic Code
Private Sub KONUNUN_ÖZETİ_Change()
Sorgu_Altform.Form.RecordSource = "select * FROM DEFTER_KAYIT where (SAYISI like '*" & Me.SAYISI & "*') and ([KONUNUN ÖZETİ] like '*" & Me.KONUNUN_ÖZETİ.Text & "*') "
'Me.Sorgu_Altform.Requery
End Sub

"SAYISI" metin kutusunun değiştiğinde olayı

Visual Basic Code
Private Sub SAYISI_Change()
Sorgu_Altform.Form.RecordSource = "select * FROM DEFTER_KAYIT where (SAYISI like '*" & Me.SAYISI.Text & "*') and ([KONUNUN ÖZETİ] like '*" & Me.KONUNUN_ÖZETİ & "*') "
'Me.Sorgu_Altform.Requery
End Sub

(12/04/2019 21:05)prestij06 Adlı Kullanıcıdan Alıntı: 2- Çıkan isimlere tıklanmıyor ve Kayıt No kısmı #Ad? hatası veriyor kayıt no göstermiyor.
yalnız o kısımlar sizin formunuzdan kaynaklanan sorunlar o kısımları sormadığınız için oralara bakmamıştım.

Not: Bir başlık altında soruların kümelenmesi üyelerin arama yaparken aradıklarını bulmasını zorlaştırdığından her soru için yeni konu açmanız gerekiyor.
Cevapla
#6
(12/04/2019 22:03)haliliyas Adlı Kullanıcıdan Alıntı: aşağıdaki kodları dener misiniz
"KONUNUN_ÖZETİ" metin kutusunun değiştiğinde olayı

Visual Basic Code
Private Sub KONUNUN_ÖZETİ_Change()
Sorgu_Altform.Form.RecordSource = "select * FROM DEFTER_KAYIT where (SAYISI like '*" & Me.SAYISI & "*') and ([KONUNUN ÖZETİ] like '*" & Me.KONUNUN_ÖZETİ.Text & "*') "
'Me.Sorgu_Altform.Requery
End Sub

"SAYISI" metin kutusunun değiştiğinde olayı

Visual Basic Code
Private Sub SAYISI_Change()
Sorgu_Altform.Form.RecordSource = "select * FROM DEFTER_KAYIT where (SAYISI like '*" & Me.SAYISI.Text & "*') and ([KONUNUN ÖZETİ] like '*" & Me.KONUNUN_ÖZETİ & "*') "
'Me.Sorgu_Altform.Requery
End Sub

(12/04/2019 21:05)prestij06 Adlı Kullanıcıdan Alıntı: 2- Çıkan isimlere tıklanmıyor ve Kayıt No kısmı #Ad? hatası veriyor kayıt no göstermiyor.
yalnız o kısımlar sizin formunuzdan kaynaklanan sorunlar o kısımları sormadığınız için oralara bakmamıştım.

Not: Bir başlık altında soruların kümelenmesi üyelerin arama yaparken aradıklarını bulmasını zorlaştırdığından her soru için yeni konu açmanız gerekiyor.

teşekkürler sorun çözüldü. elinize sağlık.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da