A.S.C Filtre, Grafik ve Raporlama Eklentisi

[VBA] Büyüyen Liste Kutusu Ile Arama çalışması
#1
siz değerli üstatlarımızın yaptığı güzel bir seçenek ile arama örneği var. 
bu örnekte iki liste kutusu kullanırsak ve aramadaki kayıt sayısına bağlı olarak liste kutuları tek kayıt is tek kayıt kadar büyüklüğe sahip olsa
2 kayıt ise iki kayıt kadar büyüklüğe sahit olsa ......
max 10 kayıt ile büyüklük sınırlı olsa.

İkinci liste kutusu ise birincinin bitiminden başlayıp ikincinin kayıt sayısı kadar kendini aşağı doğru kaydırsa max 10 kayıta ulaşınca oda sabit kalsa gibi bir örnek yapmak istedim. ama bilgim yetmedi.

iki listede aynı anda dinamik arama yaptırıyorum. çokta hızlı çalışıyor. ama birazda görsellik olsa güzel olur diye düşünüyorum.


Eklenti Dosyaları
.rar   Arama.rar (Boyut: 23,13 KB / İndirilme: 14)



  Alıntı
Bu mesajı beğenenler:
#2
sayın @serdem48 temel mantığı aşağıdaki gibidir 
Visual Basic
  1. Dim intBoy1,intBoy2 As Integer
  2. Dim intTop As Long
  3. intTop = Me.Liste2.Top
  4. intBoy1 = Me.Liste2.ListCount - 1
  5. intBoy2 = Me.Liste4.ListCount - 1
  6. If intBoy1 > 10 Then intBoy1 = 10
  7. If intBoy2 > 10 Then intBoy2 = 10
  8. Me.Liste2.Height = 300 * Abs(intBoy1) + 310
  9. Me.Liste4.Height = 300 * Abs(intBoy1) + 310
  10. Me.Liste4.Top = intTop + 300 * Abs(intBoy1) + 500





  Alıntı
Bu mesajı beğenenler: serdem48
#3
Elinize sağlık. biraz değişiklik ile ekteki halini aldı. güzel oldu. şöyle bir durum var mesela isim ile aratırken kelimenin her harfinde yazdıkça dinamik arama yapmıyor. sizce ne eksiği var.


Eklenti Dosyaları
.rar   Arama.rar (Boyut: 503,69 KB / İndirilme: 26)



  Alıntı
Bu mesajı beğenenler:
#4
ben bir sorun göremedim, eklenen yada silinen her harften sonra arama güncellendi.
hangi adımları uygulayınca belirttiğiniz hata oluştu?



  Alıntı
Bu mesajı beğenenler:
#5
Arama dinamik olarak oluyor. Küçülme dinamik olmuyor. böylede güzel ve kullanışlı bir örnek oldu sayenizde teşekkür ediyorum.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [TABLO] Form üzerinden Liste Kutusu Içinde Sorgu aktepes 4 104 22-04-2020, 00:02
Son Mesaj: aktepes
  [FORM] Otomatik Metin Kutusu alienerji 2 180 05-04-2020, 03:47
Son Mesaj: dsezgin
  Metin Kutusu Içinde Değeri Bulma h2001 16 284 26-03-2020, 10:14
Son Mesaj: h2001
  Form üzerinden Kayıt Arama Işlemi H@Y@L-ET 10 346 25-03-2020, 21:18
Son Mesaj: H@Y@L-ET
  [SORGU] Liste Kutusu Arama Filtresi - Ilişkili Tablolardan Veri Alma Sorunu mgunes 2 153 21-03-2020, 00:23
Son Mesaj: mgunes
  Açılan Kutu Ile Gelişmiş Arama mgunes 7 224 07-03-2020, 21:11
Son Mesaj: halily
  Arama Olay Yordamında Kayıt çakışması mgunes 2 60 13-02-2020, 15:03
Son Mesaj: mgunes
access-sql-9 [SORGU] Excel Vba Access Arama Sorgusu Yavuzmumcu 1 187 01-02-2020, 14:10
Son Mesaj: userx53

Foruma Git:


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