sayın üstadlarım burada gördüğüm örnek telefon rehber programlarıyla kendime uyarladığım telefon rehberine zamanla yeni şeyler katmak istedim daha önce benzer bir rehber yapmıştım.Fakat burada gördüğüm listbox ı forma uyguladım çok güzel oldu paylaşılan örnekler çok şeyler kazandırdı.Fakat seçenek grubu ilave edip isimlerin baş harflerine göre süzsün sıralasın istiyorum,ama istediğim sonuca ulaşamadım .Birçok kaynak ,hatta yabancı kaynaklara bile baktım fakat bir türlü olmadı Alike komutuyla kod sayfasında sürekli hata verdi.Yardımlarınız için şimdiden teşekkürler ederim.
YENI:
  Telefon Fihristi.rar (Boyut: 240,23 KB / İndirilme: 112)

Sn erhan198860; Formda ki harf butonlarini xyz nesnesinin(options group) icine tasiyin ve asagidaki kod ile liste kutusu icinde ki verileri suzdurebilirsiniz.(Turkce karakterleri duzeltiniz)
Private Sub Secme_AfterUpdate()
On Error Resume Next
Dim Sayac As Long, Harf As String
For Sayac = 1 To 100
If Me.Controls(Sayac).Properties(2) = 122 And Me.Controls(Sayac).Properties("OptionValue") = Me.Secme Then Harf = Right(Me.Controls(Sayac).Properties(3), 1)
Next Sayac
Me.Liste57.RowSource = "SELECT REHBER.SýraNo, REHBER.Yakýnlýk, REHBER.Adý, REHBER.Soyad, REHBER.CepTelefonu, REHBER.CepTelefonu1, REHBER.ÝþTelefonu, REHBER.ÝþDahiliNo, REHBER.EvTelefonu, REHBER.il, REHBER.ilce, REHBER.Adres, REHBER.TakmaAd, REHBER.Notlar, REHBER.DoðumTarihi, REHBER.EþAdý, REHBER.ÇocukAdlarý, REHBER.EpostaAdresi, REHBER.Fotoðraf, [Adý] & ' ' & [Soyad] AS FullName " _
& "FROM REHBER WHERE (((Mid(REHBER.Adý,1,1)) = '" & Harf & "')) ORDER BY REHBER.Adý"
Me.Liste57.Requery
Debug.Print Me.Liste57.RowSource
End Sub

sayın Sezgin dediklerinizi harfiyen uyguladım inşallah yalnış birşey yapmamışımdır.Fakat genede süzmedi eğer vaktiniz olursa örnek üzerinde siz düzeltme yapabilirseniz sevinirim.Belki ben hata yapmış olabilirim diye,Tabi ki vaktiniz olursa saygılarımla hayırlı ramazanlar....

Sn erhan198860; Ilk mesajiniza VT'ni ekledim.

Sevgili kardeşim ellerinize sağlık ben eklemenizi farketmedim. Çok güzel olmuş ben eski örnek üzerinde kodu alfabetikisimara isimli seçenek grubunun içine iliştirmiştim dogal olarak çakıştı tabiki.Elleriniz dert görmesin Teşekkürler zamanınızı aldım.Hayırlı ramazanlar

Kolay gelsin