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



  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: 14)



  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
  [FORM] Liste Kutusu Verisine Göre Grafik Oluşturma husem 12 226 11-10-2019, 00:14
Son Mesaj: husem
  [SORGU] Arama sorgusu ile ilgili mssmurat 31 6.013 11-09-2019, 13:24
Son Mesaj: mssmurat
access-sql-11 [FORM] STOK BAKİYE DEPOYA GÖRE SEÇİLEREK ARAMA YARDIM ahmetbal 7 411 07-05-2019, 08:50
Son Mesaj: ahmetbal
  [VBA] İlişkisiz Form Üzerinde Filtrelenen Liste Kutusunun alanını Metin Kutusu ile Güncelle ask200075 4 202 29-04-2019, 11:49
Son Mesaj: ask200075
  [FORM] isimleri listeleme ve arama özelliği hatası metocan 11 315 28-04-2019, 21:18
Son Mesaj: metocan
  metin kutusu okunur ve yazılması eraslan 1 122 27-04-2019, 17:07
Son Mesaj: kahraman7360
  [FORM] ilişkisiz metin kutusu kaydı tabloda görünmüyor anno55 6 316 27-02-2019, 16:36
Son Mesaj: anno55
access-sql-2 [VBA] Accessde Mail Gönderiminde Çıkan Mesaj Kutusu Hk. Yardım Mr.Midnight 1 199 20-02-2019, 00:46
Son Mesaj: dsezgin

Foruma Git:


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