Liste kutusunda arama yapma ile ilgili sitede birçok örnek bulunmakta, başvuru kaynağı olması açısından benim bildiğim en iyi yöntemi açıklayıcı olarak anlatacağım.
Form üzerine;
- tablodaki alanları içeren metin kutularını,
- 1 adet liste kutusu,
- Arama işleminde kullanılmak üzere 2 adet metin kutusu ekliyoruz, birinin adı arama, diğeri gecici (bkz. Resim-1)
Daha sonra eklediğimiz Liste Kutusunun özelliklerinden "Satır Kaynağı" kısmındaki "..." tıklayıp sorgu oluşturucuyu açıyoruz.(Bkz.Resim-2)
Sorgu oluşturucu açıldığında "Tablo Göster" açılır, açılmaz ise boş bir alana sağ tıklayıp "Tablo gösteri" tıklıyoruz. "Tablo Göster"deki listeden form ile ilişkili tablomuzu seçiyoruz ve ekle butonunu tıklayıp "Tablo Göster"i kapatıyoruz. (Bkz.Resim3)
Tablodan Arama yapmak istediğimiz alanları Sorgu Oluşturucudaki sütunlara ekliyoruz. (Bkz.Resim-4)
Daha sonra sorgu oluşturucudaki boş sütuna "Arama: [alan1] & "* " & [alan2] şeklinde alanları ekliyoruz.
Bizim örneğimizde arama yapmak istediğiniz alanları
Arama: [ADI] & "* " & [SOYADI] & "*" & [ANAADI] & "*" & [BABAADI] & "*" & [TCKIMLIKNO]
şeklinde ekledik. Bu sütunun altındaki ölçüt alanına da
Like "*" & [Forms]![formadı]![aramakutusuadı] & "*"Daha sonra sorgu oluşturucuyu kaydedip kapatıyoruz. Liste Kutusunun özelliklerinden Sütun sayısına sorguya kaç tane alan eklediysek sayısını, Sütun genişliklerinede listede görünmesini istediğiniz genişlikleri yazıyoruz. Bizim örneğimize göre sorguda 7 adet sütun var.
Liste kutusunda görünmesini istemediğimiz SNUM ve Arama isimli sütunlar için genişlik değerine 0cm yazıyoruz. Sonuç olarak "Sütun Genişlikleri" özelliğine "0cm;2cm;2cm;2cm;2cm;2cm;0cm" yazıyoruz. (Bkz. Resim-6)
Form üzerinde bulunan arama isimli metin kutusunun Değiştiğinde olayına;
Me.gecici = Me.arama.Text
Me.Liste1.Requerygecici adındaki metin kutusunun Güncelleştirme Sonrasında olayına da
Me.Liste1.Requeryyazıyoruz.
gecici isimli metin kutusunun Görünür özelliğini "Hayır" olarak değiştiriyoruz.
Formu kaydedip form görünümünde açıyoruz. Arama Alanına 01 yazdığımızda Kamil ile Süleyman'ı (Tc kimlik numaralarında 01 geçtiği için), Ay yazdığımızda Kamil ile Alper'i (anne isimlerinde "ay" geçiyor,) ü yazdığımızda da Alper ile Süleyman'ı (birinin soyadında, diğerinin adında ü var) buluyor.
Son olarak liste kutusunun tıklandığında olayına aşağıdaki kodu yazın.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SNUM] = " & Str(Nz(Me![Liste1], 0))
If Not rs.EOF Then Me.Bookmark = rs.BookmarkDediğim gibi, bu benim bildiğim en iyi yöntem, bildiğim kadarıyla anlatmaya çalıştım. Anlatımımda bir kusurum veya unuttuğum bir şey oldu ise başta sn furens olmak üzere özür dilerim. Basit bir örnek ektedir.
