AccessTr.neT
Form Üzerinden Veri Arama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Dersleri (https://accesstr.net/forum-access-dersleri.html)
+--- Konu Başlığı: Form Üzerinden Veri Arama (/konu-form-uzerinden-veri-arama.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14


Form Üzerinden Veri Arama - ozanakkaya - 23/03/2009

Ö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)

[Resim: do.php?img=5332]


Daha sonra eklediğimiz Liste Kutusunun özelliklerinden "Satır Kaynağı" kısmındaki "..." tıklayıp sorgu oluşturucuyu açıyoruz.(Bkz.Resim-2)

[Resim: do.php?img=5333]


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)

[Resim: do.php?img=5331]

Tablodan Arama yapmak istediğimiz alanları Sorgu Oluşturucudaki sütunlara ekliyoruz. (Bkz.Resim-4)
[Resim: do.php?img=5334]

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 )
[Resim: do.php?img=5335]

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)
[Resim: do.php?img=5336]

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.


Cvp: Form Üzerinden Veri Arama - zeytin - 23/03/2009

(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)

[Resim: do.php?img=5332]


Daha sonra eklediğimiz Liste Kutusunun özelliklerinden "Satır Kaynağı" kısmındaki "..." tıklayıp sorgu oluşturucuyu açıyoruz.(Bkz.Resim-2)

[Resim: do.php?img=5333]


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)

[Resim: do.php?img=5331]

Tablodan Arama yapmak istediğimiz alanları Sorgu Oluşturucudaki sütunlara ekliyoruz. (Bkz.Resim-4)
[Resim: do.php?img=5334]

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 )
[Resim: do.php?img=5335]

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)
[Resim: do.php?img=5336]

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.


Cvp: Form Üzerinden Veri Arama - Puletin - 23/03/2009

Paylaşım İçin Teşekkürler Sayın Sledgeab Hocam .
Ellerine sağlık....


Cvp: Form Üzerinden Veri Arama - assenucler - 23/03/2009

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.


Cvp: Form Üzerinden Veri Arama - mesudi - 23/03/2009

üstat teşekürler, çok faydalı bir örnek bence.


Cvp: Form Üzerinden Veri Arama - firdevs - 23/03/2009

Sayın hocam "form üzerinden veriyi süzerek alma" başlığı daha uygun olmaz mı?