Pratik filtreleme
Tarih
28/06/2009 03:54
Konu Sahibi
cuneyt
Yorumlar
19
Okunma
5187
Konuyu Oyla:
  • Derecelendirme: 3.33/5 - 3 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 3.33/5 - 3 oy



cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
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.


Ek Dosyalar
.rar   filtreleme.rar (Dosya Boyutu: 27,82 KB / İndirme Sayısı: 430)
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
Dün,21:35
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..
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


hakanuss
Aktif Üye
Kullanici Avatari
Aktif Üye
H....
113
31/10/2008
0
Ankara
Ofis 2003
26/10/2016,07:51
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.


Ek Dosyalar
.rar   VIDTC3.rar (Dosya Boyutu: 97,46 KB / İndirme Sayısı: 116)
Cevapla


okileturc
Aktif Üye
Kullanici Avatari
Aktif Üye
O.... V....
966
18/03/2009
459
İzmir
Ofis 2003
23/05/2016,13:38
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
okileturc, 18-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


cuneyt

Kullanici Avatari
Onursal
321
29/10/2008
81
İstanbul
Ofis 2007
08/06/2016,10:56
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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.



Ek Dosyalar
.rar   filtrelemeAltform.rar (Dosya Boyutu: 53,1 KB / İndirme Sayısı: 155)
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
Dün,21:35
Sn Hakanuss ilginiz için teşekkür ederim. Saygılar..
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Brick Yabancı dil kelime pratik yapma programı kupacor 10 3.435 16/01/2016, 00:57 ferit39
  Aynı listeyi yetkiye göre filtreleme mehmetdemiral 6 1.140 27/05/2015, 08:27 ozanakkaya
  Yer Kaplattırmadan Her Alanda Filtreleme ask200075 5 1.362 21/11/2013, 20:47 hegu
  Filtreleme örneği accessman 2 2.589 19/11/2013, 15:17 kayserciyes
  filtreleme ve listeden tıklayarak rapor açama (bilgi paylaşım) firdevs 11 4.425 17/10/2010, 01:32 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya