Может проблема в том, что свойство Text доступно только тогда, когда элемент (Model_code) имеет фокус.
Кроме того непонятно, где точно расположены Combo Box и Text Box: оба в подчинённой форме или Text Box в основной, а Combo Box в подчинённой, или наоборот?

Попробуйте на Model_code_AfterUpdate() и на Form_Current() выполнять процедуру изменения RowSourse у Combo Box'а на новое значение.
Me.Combo.RowSourse = "SELECT DISTINCTROW [RASH_NIT].[VID_TK], [RASH_NIT].[NOMER], [RASH_NIT].[RASHOD] FROM [RASH_NIT] WHERE [RASH_NIT].[MODEL]= " & Me.Model_code
или, если MODEL - текстового типа,
WHERE [RASH_NIT].[MODEL]= '" & Me.Model_code & "'"

Sfagnum.
Проблема в том, что Вы хотите невозможного.
В форме, простой или ленточной, нет множества Text Box'ов и Combo Box'ов для каждой записи.
Если Вы расположили на форме Text Box - назовём его Model_code, и Combo Box - назовём Combo, а форму открыли как ленточную, то в ней существуют только два элемента управления - Model_code и Combo.
Внешне ленточная форма выглядит так, будто бы у неё много экземпляров Model_code и Combo. Но это не так (по крайней мере нам эти экземпляры недоступны).
Таким образом, у нас нет возможности задать одновременно разные свойства одному и тому-же объекту. Кроме того, изменение свойств (кроме разумеется Value, которое связано с данными из рекордсета) отражается одновременно на всех экземплярах этого объекта в ленточной форме.
Отсюда вывод: хотите изменить Combo.RowSourse так, чтобы он был разным для разных записей, - меняйте по событию Current. Хотите по изменению значения Model_code? - по событию AfterUpdate для Model_code.

А если что-то сделать невозможно, то невозможно и узнать как это сделать.