Private Function xLst()
xDgis = """ & Forms!REPETE_LISTESI!" & ActiveControl.Name & " & """
TmpLstSql = Replace(xLstSql, xDgis, ActiveControl.Text)
Me.Liste.RowSource = TmpLstSql
End Function
yanılmıyorsam bu sorunuz için aşağıdaki koda benzer bir çözüm önermiştim, o yöntemi denediniz mi?