Liste Kutusundaki Veriyi Filtreleme

Private Function xLst()

xDgis = """ & Forms!REPETE_LISTESI!" & ActiveControl.Name & " & """

    TmpLstSql = Replace(xLstSql, xDgis, ActiveControl.Text)

    Me.Liste.RowSource = TmpLstSql

End Function

(15/09/2021, 14:41)berduş yazdı: ekteki çalışmayı inceler misiniz?
sadece xLst fonksiyonu ekledim
kriterler için oluşturduğunuz change/değiştirdiğinde olaylarını silip bu fonksiyonu tanımladım

Private Function xLst()

xDgis = """ & Forms!REPETE_LISTESI!" & ActiveControl.Name & " & """

    TmpLstSql = Replace(xLstSql, xDgis, ActiveControl.Text)

    Me.Liste.RowSource = TmpLstSql

End Function

sn halil üstad,
valla diyecek birşey bulamıyorum.
Allah Razı olsun.
Çok güzel oldu.
İyi çalışmalar dilerim.