+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Pratik filtreleme (/konu-pratik-filtreleme.html)
Pratik filtreleme - cuneyt - 28/06/2009
Merhaba,
Bir cümlelik kod ile pratik filtreleme örneğini ilişikte sunuyorum.
Burada herhangi Sql kodlamalar veya sorgulamalar yapmadan bulunduğunuz formdan anında filtreleme yapabiliyorsunuz.
Olayımız şöyle oluyor;
Activex denetimlerden Microsoft Forms 2.00 textbox ekliyoruz. Bu ekleme filtreleme sırasında tuşa basar basmaz güncelleme olayını yapabilmemize olanak sağlıyor. istersek normal bir metin kutusu ile de yapabiliriz. ilişikte de görüleceği üzere textboxa harf girilir girilmez o harf ile başlayan tüm veriler listelenmektedir. bu olay Sql kodlamalarda gerektirmiyor. Bunu DoCmd.ApplyFilter ile sağlıyoruz.
Burada like işlevinin vb ortamında çalışma şeklinide görmüş oluyoruz. Yani filtreleme için tek gerekli olan bir metin kutusu ve bir de örneğin DoCmd.ApplyFilter , "[Adi] like [Forms]![filtre]![filtre1] &'*'" gibi bir cümlelik kod.
Saygılar.
Cvp: Pratik filtreleme - benremix - 28/06/2009
Sn Hocam günaydın elinize sağlık, güzel bir çalışma. Formu açtığımda VIDTC3.OCX sürüm 1.0 eksik veya hatalı mesajı verdi. Fakat formu açtı. Ne yapmalıyım? Saygılar..
Cvp: Pratik filtreleme - hakanuss - 28/06/2009
Sayın Cüneyt örnek için teşekkürler
Sayın benremix ekteki rar içindeki VIDTC3.OCX i System32 nin içine yapıştır.
Cvp: Pratik filtreleme - okileturc - 28/06/2009
Cüneyt hocam eline sağlık. Geçmişte Apllyfilter i subform üzerinde
çalıştıramadığım için terk etmiştim, bunu çözebiliyor muyuz ?
(Ana form ve üzerinde bir sürekli formumuz var, ana formdan komut vererek
alt formdaki kayıtları süzdürmek için applyfilter kullanımı )
Teşekkürler
Cvp: Pratik filtreleme - cuneyt - 28/06/2009
merhaba,
Başka bir uygulama yaparken (activex denetimlerden birini indirirken gerekmişti)vidtc3.ocx gerek duyulmuştu. Bu uygulamada vidtc3.ocx 'e ihtiyaç yok. Silmeyi unutmuşum. Referanslardan seçili işareti kaldırabilirsiniz. Referanslardan kaldırılmış hali ile programı tekrar ekledim.
Sayın Okileturc alt formda denemelerimi yapıp sonucu bildiririm.
saygılar
-----------------------------
Merhaba,
Sanırım alt formda yine çok kod kullanmayı gerektiriyor. çünkü mantıken zaten ilgili bulunduğu form için filtrelemeyi yapıyor, yani verilerin bulunduğu form... Alt formlar için de yapılıyor ama bizim şimdiki ilişik örnekte kullandığımız kod kadar kod kullanılıyor (incelediğim kadarıyla).... Alt form için biraz ado kullanarak yine kısa kodlarla başka şekilde yapıyoruz.
Örnek:
Kod:
Dim scn As ADODB.Connection 'burada bağlantı elemanı oluşturuyoruz
Dim srs As ADODB.Recordset 'kayıt kümesi elemanı oluşturuyoruz
Set scn = CurrentProject.AccessConnection 'burada bulunduğumuz veritabanı ile bağlantıyı sağlıyoruz
Set srs = New ADODB.Recordset 'kayıt kümesi oluşumu için oluşturduğumuz srs 'ye tanıtıyoruz.
With srs
Set .ActiveConnection = scn 'srs kayıt kümesi için bağlantımız açmış olduğumuz scn bağlantısı
.Source = "SELECT * FROM tablo1 where sirano like '" & filtre & "%'" 'tablo1 den verileri al ama formdaki filtreden kriter al.
.LockType = adLockOptimistic 'kayıtları eklemek, güncelemek veya silmek için adlockoptimistic kullanıyoruz.
.CursorType = adOpenKeyset ' adopenkeyset ile başkalarını kayıt değiştirdiyse onu görebilmek için kullanıyoruz.
.Open 've srs kayıt kümesi bağlantısını açıyoruz.
End With
Set Me.AltForm.Form.Recordset = srs 'alt formdaki verilerimiz srs 'ye tanıtmış olduğumuz kayıt kümesidir.
Set srs = Nothing
Set scn = NothingCvp: Pratik filtreleme - benremix - 28/06/2009
Sn Hakanuss ilginiz için teşekkür ederim. Saygılar..