listbox'ta süzme işlemi

[karaayhan]

bu konuya benzer bir sorum olmuştu ancak aktivex denetim kutusu ile arama yapıyorduk şimdi ise açılan kutu ile yapacağız ve listbox'ta süzme işlemi yapacak ..

bu konuya benzer bişiler okumuştum forumda ancak sonuç ve örnek yoktu diye hatırımda kalmış ilgili arkadaş konuya vakıfsa lütfen örneğini de ekleyerek aydınlığa kavuştursun bu olayı..


iyi çalışmalar

 

[icapcı]

örnek

İlgili konuyla ilgili bişey yazmadım ama örnek aşağıda senin için önemli olanda bu sanırsam
umarım işine yarar

 

[akd]

Merhaba sayın Karaayhan,
İnşallah istedigin budur,
Yani ben öyle anladım.
İyi çalışmalar...

 

[karaayhan]

sayın icabcı; aslında istediğimin bir parçası bu yani kayıtlar içinden (formdaki kayıtlar) süzme yapması ancak bunu açılan kutu ile yapması gerekiyordu ve liste kutusunda da süzme yapmalıydı aynı anda

sayın akd; sizinki de güzel olmuş yalnız form açıldığında yani normal zamanlarda liste kutusuna tüm isimler dolu olmalıydı ,liste kutusunda süzme yapmış ancak form üzerinde de süzme işlemi yaparsa olay biter...

iyi çalışmalar

 

[icapcı]

o konuda pek bilgi sahibi değilim umarım sayın akd bilgi sahibidir.

kolay gelsin....

 

[modalı]

Hem açılan kutunun hem de liste kutusunun beraber kullanılmasının nedenini anlayamadım.

 

[karaayhan]

sayın modalı aslında arama kutusu için açılan kutu yeterli ancak arkadaşım liste kutusundan takip daha kolay oluyor diyor ancak ordanda arama yapmak seri olmuyor diyor bence de yersiz ancak imkansız değildir sanırım.


ilginize teşekkür ederim üstad.

kolay gelsin

 

[modalı]

Sayın karaayhan,

Kodları şöyle değiştirin:

Private Sub Form_Current()
    If Me.Açilan_Kutu76 <> "" Then
    Me.Liste74.RowSource = "SELECT [Posta Listeleri].PostaListesiNo, [Posta Listeleri].Adı, [Posta Listeleri].İkinciAd, [Posta Listeleri].Soyad FROM [Posta Listeleri] WHERE [Posta Listeleri].PostaListesiNo Like '" & Me.Açilan_Kutu76 & "'"
    Else
    Me.Liste74.RowSource = "SELECT [Posta Listeleri].PostaListesiNo, [Posta Listeleri].Adı, [Posta Listeleri].İkinciAd, [Posta Listeleri].Soyad FROM [Posta Listeleri]"
    End If
End Sub
Private Sub Form_Load()
If Me.Açilan_Kutu76 <> "" Then
    Me.Liste74.RowSource = "SELECT [Posta Listeleri].PostaListesiNo, [Posta Listeleri].Adı, [Posta Listeleri].İkinciAd, [Posta Listeleri].Soyad FROM [Posta Listeleri] WHERE [Posta Listeleri].PostaListesiNo Like '" & Me.Açilan_Kutu76 & "'"
    Else
    Me.Liste74.RowSource = "SELECT [Posta Listeleri].PostaListesiNo, [Posta Listeleri].Adı, [Posta Listeleri].İkinciAd, [Posta Listeleri].Soyad FROM [Posta Listeleri]"
    End If
End Sub
Private Sub Liste74_AfterUpdate()
    ' Denetime uyan kaydı bul.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[PostaListesiNo] = " & Str(Nz(Me![Liste74], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
    
End Sub
Private Sub Açilan_Kutu76_AfterUpdate()
    ' Denetime uyan kaydı bul.
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[PostaListesiNo] = " & Str(Nz(Me![Açilan Kutu76], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
    If Me.Açilan_Kutu76 <> "" Then
    Me.Liste74.RowSource = "SELECT [Posta Listeleri].PostaListesiNo, [Posta Listeleri].Adı, [Posta Listeleri].İkinciAd, [Posta Listeleri].Soyad FROM [Posta Listeleri] WHERE [Posta Listeleri].PostaListesiNo Like '" & Me.Açilan_Kutu76 & "'"
    Else
    Me.Liste74.RowSource = "SELECT [Posta Listeleri].PostaListesiNo, [Posta Listeleri].Adı, [Posta Listeleri].İkinciAd, [Posta Listeleri].Soyad FROM [Posta Listeleri]"
    End If
End Sub

İyi çalışmalar:hey:

 

[karaayhan]

sayın modalı teşekkürler güzel olmuş ancak;

aynı soyada sahip 4 kişi varsa bile onları listede sıralamıyor,

üstad, şimdi kızacaksınız ancak , aktivex denetim kutusuyla iki listede süzme olabilirse o da kabul amaç neticeye oluşmak sa...

 

[modalı]

Süzme işi bir alana göre yapılıyor, ve ben sıra no ya göre yaptığım için tabiki tek veri görünecek. Açılan kutudan ilişkili bir alan olabiliyor. Ve tüm işlemler ona göre oluyor. Ve ilişki sıra no ya göre yapıldı. Çünküaynı zamanda seçilen veri seti form üzrine çağrılıyor.

Tam olarak ne istediğinize karar verin. Hem arama hem kayıt getirme nasıl olacak?

 

[karaayhan]

sanırım tam olarak bu işimi görür

eki aşağıda veriyorum..

 

[karaayhan]

sorun aşağıda ki örnekte

Sanırım Ekteki örnekteki işlem ve soru işimi görür ben yaptım ancak formda süzme yapıyor ben listede yapmasını istiyorum..

hakkınızı helal edin sayın modalı, sayın akd,icapcı ve diğer arkadaşlar...


iyi çalışmalar

 

[icapcı]

Sayın karaayhan senin istediğin galiba örnekteki gibi bişey sanırım ordan bakıp yapabilirsin.

kolay gelsin

 

[akd]

Merhaba sayın karaayhan,
ben soyadına göre bul olayını yaptım,
sen artık diğerlerini yaparsın,
iyi çalışmalar...

 

[karaayhan]

sayın icabcı ve sayın akd ellerinize sağlık güzel olmuş ,,,
kolay gelsin..

 

[gokmen1994]

eklenmiş dosya ya tıklıyorum indirmiyor neden ?