AccessTr.neT

aşağıdaki dosyayı inceler misiniz?

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

(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.

rica ederim eğer yeni kriter için yeni bir nesne eklerseniz sadece değiştiğinde olayına =xLst() yazmanız yeterli