Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/04/2019 15:33
Konu Sahibi
prestij06
Yorumlar
5
Okunma
431
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
prestij06

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 06/08/2019,10:11
Çözüldü 
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.




berduş

berduş

Uzman
65596
ha....
 29
 1.401
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
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İ & "*') "



...........
berduş

berduş

Uzman
65596
ha....
 29
 1.401
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
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.



prestij06

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 06/08/2019,10:11
(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...




...........
berduş

berduş

Uzman
65596
ha....
 29
 1.401
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
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.



prestij06

prestij06

Aktif Üye
64826
 33
 17
 48
 11/06/2014
3
 -
 
 -
 06/08/2019,10:11
(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.



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü 4 Basamaklı artan sayı veya rastgele birbirinden farksız 4 basamaklı sayı oluşturma metbal 9 2.911 22/06/2019, 14:25
Son Yorum: leecooper2
Çözüldü Her Yeni Kayıta Bastığımızda Sayı Verme Sorunu. prestij06 7 371 15/06/2019, 21:24
Son Yorum: berduş
Çözüldü Access'te Otomatik Sayı Kontrolü dgnlrmehmet 3 248 26/04/2019, 12:17
Son Yorum: dgnlrmehmet
Çözüldü Aynı Tabloda İkitane Otomatik Sayı Alanı Verme respectful 13 893 22/04/2019, 23:36
Son Yorum: berduş
Çözüldü Otomatik sayı yıllara göre vermesi Fatih34 16 986 06/04/2019, 22:34
Son Yorum: berduş

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.