Form Üzerinden Veri Arama

1 2 3 4 5 6 7 8 9 10 11 12 13 14
23/03/2009, 13:00

ozanakkaya

Öncelikle, anlatımda anlaşılmayan, kafanıza takılan bir yer var ise mutlaka cevap olarak yazınız. Sizin anlamadığınız yeri başka bir arkadaşda anlamamış olabilir. Anlamadığınız yeri belirtirseniz konuyu anlaşılacak şekilde güncelleyebiliriz.

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ı] & "*"
şeklinde ölçüt yazıyoruz. Bizim Örneğimize göre formadı: Form1, aramakutusu adı: gecici(Bkz.Resim-5 )


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.Requery
yazıyoruz.

gecici adındaki metin kutusunun Güncelleştirme Sonrasında olayına da

Me.Liste1.Requery

yazı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.Bookmark

Dediğ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.
23/03/2009, 14:44

zeytin

(23/03/2009, 13:00)ozanakkaya yazdı: Öncelikle, anlatımda anlaşılmayan, kafanıza takılan bir yer var ise mutlaka cevap olarak yazınız. Sizin anlamadığınız yeri başka bir arkadaşda anlamamış olabilir. Anlamadığınız yeri belirtirseniz konuyu anlaşılacak şekilde güncelleyebiliriz.

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ı] & "*"
şeklinde ölçüt yazıyoruz. Bizim Örneğimize göre formadı: Form1, aramakutusu adı: gecici(Bkz.Resim-5 )


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.Requery
yazıyoruz.

gecici adındaki metin kutusunun Güncelleştirme Sonrasında olayına da

Me.Liste1.Requery

yazı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.Bookmark

Dediğ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.





Sayın Seledgeab bu güzel anlatımınız için teşekkürler.
23/03/2009, 19:21

Puletin

Paylaşım İçin Teşekkürler Sayın Sledgeab Hocam .
Ellerine sağlık....
23/03/2009, 19:31

assenucler

Sayın sledgeab hocam;

Her zamanki gibi, sade ve güzel anlatımınızla olayı, bizim anlayabileceğimiz yalın duruma getirdiniz.

Başarılar ve iyi çalışmalar.

Teşekkürler. Selam ve sevgiler.
23/03/2009, 20:43

mesudi

üstat teşekürler, çok faydalı bir örnek bence.
23/03/2009, 23:43

firdevs

Sayın hocam "form üzerinden veriyi süzerek alma" başlığı daha uygun olmaz mı?
1 2 3 4 5 6 7 8 9 10 11 12 13 14