baş harfine göre süzme

[akd]

Merhaba arkadaşlar,
Üye isimlerini bulurken işlemi kolaylaştırmak için,
bir metin kutusu birde listbox kullanmak istedim,
metin kutusuna örneyin; A yazınca A ile başlayan üyeler, AL yazınca AL ile başlayan isimleri listbox 'a nasıl getirtebiliriz.
Teşekkürler...

 

[attila52]

baş harfe göre süzmek

sayın akd
aşağıdaki uygulamayı dosyanıza eklemeye çalışın bir deneyin.
windovs yardım menüsü gibi arama listesi yapma

--------------------------------------------------------------------------------

formun yüklemesine
Dim strSQL As String
strSQL = "SELECT [PERSONEL].[PERSONEL NO], [PERSONEL].[ADI SOYADI] FROM PERSONEL "

Private Sub TextBox7_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox7]

If Not IsNull(Me![TextBox7]) Then
strSQL = "SELECT [PERSONEL].[PERSONEL NO],[PERSONEL].[ADI SOYADI] FROM [PERSONEL] "
strSQL = strSQL & "WHERE (([PERSONEL].[ADI SOYADI]) Like '" & txtSearchString & "*') "

End If

Me!Liste12.RowSource = strSQL
End Sub

yalnız text kutusu normal değil activex ekledeki metin kutusu olacak


böylece yazdığınız harflere göre liste kutusuna bilgileri alır sizde liste kutusundan
seçtiğiniz kayda tıkladığınızda okişi ile ilgili kayıt gelir

Private Sub _AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[PERSONEL NO] = " & Str(Nz(Me![Liste12], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

dikkat etmeniz gereken Str(Nz(Me![Liste12], 0)) burdaki sıfır liste kutusundaki
sutün eğer karşılaştıracağınız bilgi iknci sutün da is buraya 1 yada öyle devam edr

ben bunu yapmak için çok uğraşmıştım aynı yardım dosyalarındaki gibi a yazdığınızda a ile
başalayan personel al al ile başlayan personel geliyor yada yazdığınızı sildiğinizde kayıtların tamamı geliyor

 

[akd]

Merhaba sayın attila52
Cevabınızdan dolayı çok çok teşekkürler,

"yalnız text kutusu normal değil activex ekledeki metin kutusu olacak",
demişsiniz cahilligimi mazur görün,
activex ekledeki metin kutusunu nasıl bulabilirim,
bir zahmet açıklarsanız çok sevinirim...
Elinizde örnek bir proğram varsa, eger gönderirseniz çok sevinirim...
Selamlar

 

[attila52]

access menüsüne bakınız üstteki access hazırmenü içinde olacak activex ekle olayı var oradan gerçekleştirebilirsiniz iyi çalışmalar
ben de bunu denemedim sadece örneği buradaki arkadaşlaradan biri atmış idi size bir faydası olur diye gönderdim

 

[akd]

Merhaba Sayın attila52 kardeşim,
Kodu denedim çok güzel
İlginizden dolayı çok çok teşekkürlerimi sunarım...
İyi akşamlar...