Ö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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için
Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.