Arama butonu ile sayfa temizleme e formdan arama

1 2 3
23/12/2010, 13:01

rom_35

evet hocam doğrudur soru daha açık ve net aynı formda kayıt bulma nasıl olur yada bi örneği varsa süzmeye çalışayım teşekkürler..
23/12/2010, 13:24

alpeki99

Siz örnek uygulamanızı ekleyin onu düzenleyelim nasıl yaptığımızıda özetle anlatırız.
23/12/2010, 13:40

rom_35

ektedir gönderdim hocam...
23/12/2010, 21:09

alpeki99

Önceki eklediğiniz dosyaları sildim. Lütfen Site Kurallarını dikkatlice okuyunuz. Eklenilen dosyalarda hiç bir şekilde kişisel bilgiler yer almamalıdır. Dosyanızı göndermeden önce içindeki tüm gerçek bilgiler silinmeli ve yerine rastgele içerikli bilgi girilmelidir.

İstediğiniz duruma göre formunuzu ayarladım. Siz gerekli uyarlamaları kendinize göre yapabilirsiniz.
24/12/2010, 10:41

rom_35

Hocam özür dilerim formda yeniyim gözden kaçırmışım dikkat ederi.Bu arada gönderdiğiniz dosya yapmak istediğim elinize sağlık.Bunu banada anlatmanız mümkünmüdür acaba hocam ? tekrar ilginiz için teşekkür ederim
24/12/2010, 12:38

alpeki99

Öncelikle formunuz tasarım halinde iken nasıl buton, metin kutusu vs. ekliyorsanız aynen bunun gibi bir kontrol olan çerçeveyi formunuza ekleyin. Daha sonra seçenek düğmesi diye adlandırılan yuvarlak seçim kontrollerinden üç tanesini çerçeve içinde oluşturun. Her eklenilen seçenek düğmesine bir değer verilir. Bunu görmek/değiştirmek için seçenek düğmesinin özelliklerinde Veri sekmesinde ilk sıradaki Seçenek Değeri'ne bakabilirsiniz. Siz her seçenek düğmesi ekledikçe bu değer 1,2,3... diye devam eder. Siz isterseniz farklı bir değerde verebilirsiniz elbette. Metin kutusu ve buton ekledikten sonra butonun tıklanma olayına gerekli kodlar yazılır.

3 farklı arama kriteriniz olduğu için her seçenek değerinde farklı kriter belirttik. Mesela


kriter = "[takip no] = '" & Nz(txt_arama_kelimesi, "") & "'"

ile tablonuzda --> takip no diye adlandırdığınız alanda arama yaptırıyoruz. Neyi arıyoruz --> Formda arama metin kutusuna yazılanı yani txt_arama_kelimesi. NZ komutu ise hiç bir değer olmaması halinde hata vermesini önlemek diyebiliriz. En son kriterleri belirledikten sonra


Set ks = Me.Recordset.Clone
ks.FindFirst kriter
If Not ks.EOF Then Me.Bookmark = ks.Bookmark

ile yazdığımız arama kelimesine uyan ilk kaydı buluyoruz.
1 2 3