AccessTr.neT

Bul · 28/06/2009, 03:54

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.

Bul · 28/06/2009, 08:42

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

Bul · 28/06/2009, 11:36

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.

Bul · 28/06/2009, 11:59

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

Bul · 28/06/2009, 15:21

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 = Nothing

saygılar.

Bul · 28/06/2009, 21:15

Sn Hakanuss ilginiz için teşekkür ederim. Saygılar..

AccessTr.neT

Pratik filtreleme

Pratik filtreleme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri