AccessTr.neT

merhaba
radio buton yani seçenek gurubu ile form içerisindeki listbox satır kaynağını değiştirmek isteyenler için basit bir örnek.
seçenek değiştiğinde listbox kaynağı basitçe değişerek adı ve soyadı sütunu yer değiştirir.
sütun yeri değiştirme sütünlara ölçüt atama .ölçüt sütununu değiştirme.arama ve arama kriterlerini değiştirme.
gibi amaca yönelik.
iktiyacı olanlar için kendi vt göre değişiklik yapabilirler.

benzer sorunları olanlar kütfen yeni konu altında sorarlar ise sevinirim.

Private Sub SEÇENEK_AfterUpdate()

Dim ACCESSTR, ACCESSTR1, ACCESSTR2 As String

    

    ACCESSTR1 = "SELECT ID, ADI, SOYADI FROM PERSONEL "

    ACCESSTR2 = "SELECT ID, SOYADI, ADI FROM PERSONEL "

    If Me!SEÇENEK = 1 Then

        ACCESSTR = ACCESSTR1

    Else

        ACCESSTR = ACCESSTR2

        End If

    

    Me.List2.RowSource = ACCESSTR

End Sub

Paylaşım için teşekkürler, elinize sağlık.