Arkadaşlar kolay gelsin, filtreleme ile örneği bu formdan aldım, kendi uygulamama tatbik ettim tek kelime ile harika.
Bu uygulamada filtrelenen verinin üstüne çift tıklandığında ilgili kaydın bulunduğu form açılıyor bunu yaptım, ancak ilgili kayıt forma gelmiyor, yani boş gözüküyor.

Kısaca filtrelenen verinin çift tıklandığında bir başka formda gelmesi için bu sistemde ne yapmam gerekiyor.

Hatta filtrelenen veri iki ayrı grupta (Kayıtta il kısmında ankara varsa falanca form, İstanbul varsa falanca formun açılması gibi) her gruba göre farklı formu nasıl açtırabilirim.

Çok oldum ama, ilgilenip yardımcı olacak herkese teşekkürler.

Sayin danke;

FormA altinda ki kodlari silin ve asagida ki kodlari formun VB'na tasiyin.

Option Compare Database
Dim Bul As String
Private Sub Komut19_Click()
Me.metin1 = "": Me.Metin5 = "": Bul = ""
Me.Liste8.RowSource = "SELECT personel.PersonelNo, [Ad] &' ' & [Soyad] AS Ýsim, departman.Departman, iller.Iller, personel.DogumTarihi, personel.Maas FROM iller INNER JOIN (departman INNER JOIN personel ON departman.DepartmanNo = personel.DepartmanNo) ON iller.ilno = personel.ilno"
Me.Liste8.Requery
End Sub
Private Sub metin1_KeyDown(KeyCode As Integer, Shift As Integer)
If Eval(KeyCode & " Not In(8,13)") Then
Bul = Bul & Chr(KeyCode)
Me.Liste8.RowSource = "SELECT personel.PersonelNo, [Ad] &' ' & [Soyad] AS Ýsim, departman.Departman, iller.Iller, personel.DogumTarihi, personel.Maas FROM iller INNER JOIN (departman INNER JOIN personel ON departman.DepartmanNo = personel.DepartmanNo) ON iller.ilno = personel.ilno Where ((Switch(" & [Forms]![FormA]![secenek] & "=1,[Ad] & ' ' & [Soyad]," & [Forms]![FormA]![secenek] & "=2,[Departman]," & [Forms]![FormA]![secenek] & "=3,[Iller])) Like '*" & Bul & "*')"
Me.Liste8.Requery
Else
Call Komut19_Click
End If
End Sub


Kolay gelsin....

Sayın dsezgin83260 ilginiz için teşekkürler,

Verdiğiniz kodu ilgili yere diğerlerini pasif yaparak yapıştırdım, sorgu içindeki kodu siz vb içine yazdığınız için iptal ettim. Liste geliyor ancak arama yapılmıyor.

Ayrıca benim istediğim filtrelemenin nasıl olduğu da değildi, çünkü bununla ilgili sitede çok güzel örnekler var, bu örneği de siteden aldım.

Benim istediğim bulunan kaydın, hatta bu kayıt verisindeki farklılığa göre (Mesala Ankara olunca a formu İstanbul olunca b formu gibi) farklı formda çift tıklandığında açılması,

İlgilenip cevap veren/verecek herkese şimdiden teşekkürler.

Liste8 cift tiklama olayina asagida ki kodu yazin

Private Sub Liste8_AfterUpdate()
DoCmd.OpenForm "Burdaac", acNormal, , "[PersonelNo]=" & Me.Liste8.Column(0), acFormEdit, acWindowNormal
End Sub

Kolay gelsin......

Sayın dsezgin83260 ilginiz için teşekkür ederim.

Liste8'e yazmam için verdiğiniz kodu kullandığımda sorunum çözüldü, bulunan kayıt başka bir formda açılıyor.

Ancak bulunan kayıt içerisindeki bir alanda bulunan veriye göre mesela iller alanında ankara ise burdaac, istanbul ise surdaac formunu açtırmam gerekiyor, bunun için ne yapmam gerekiyor.

İlgilenip cevap veren/verecek herkese şimdiden teşekkürler.

Ayrıca uygulamanın son halini de faydalanılabilmesi için ekledim.

Sayin danke;

Private Sub Liste8_AfterUpdate()
Dim Secme as long
if Me.YeniFormSec= 1 then Secme="Burdaac"
if Me.YeniFormSec= 2 then Secme="Yandaac"
if Me.YeniFormSec= 3 .......
DoCmd.OpenForm Secme, acNormal, , Switch(" & [Forms]![FormA]![secenek] & "=1,[Ad] & ' ' & [Soyad]," & [Forms]![FormA]![secenek] & "=2,[Departman]," & [Forms]![FormA]![secenek] & "=3,[Iller])) Like '*" & Bul & "*')", acFormEdit, acWindowNormal
End Sub

Kolay gelsin.....