[Resolvido]Alterar Dados de Campo especifico em Sub-Formulario

Bom dia Pessoal,

Tenho o seguinte problema: Possuo um formulário principal (Alterar_Data_Trat) que contem um subformulário (Sub_Form_Cad_Trat) em modo continuo. Bom, o que eu preciso é que o usuário irá selecionar uma data no controle Texto9 que está no formulário principal, e após clicar em um botão, a ação irá pegar essa data e alterar os dados do controle Data_Prevista que está no subformulário.

Pois bem, isso eu consegui fazer, porém, ele altera todos os campos do controle Data_Prevista e eu gostaria que ele alterasse os dados somente quando no campo Tempo1: estive escrito Nível de Controle.

Eu estou tentando utilizar o codigo abaixo, porém ele não está fazendo esse filtro, ele altera todos os dados.

Alguém poderia me ajudar?

Código:

Dim rsData As DAO.Recordset
Set rsData = Me!Sub_Form_Cad_Trat.Form.RecordsetClone
rsData.MoveFirst
Do While Not rsData.EOF
    rsData.Edit
        rsData!Data_Prevista.Value = IIf((Me![Sub_Form_Cad_Trat]![Tempo1:] = "Nível de Controle"), [Forms]![Alterar_Data_Trat]!Texto9, Null)
    rsData.Update
    rsData.MoveNext
Loop
rsData.Close
Set rsData = Nothing

Obrigado pela ajuda Marcelo,

Realmente existem maneiras mais fáceis de se fazer as coisas.

Conforme sua dica fiz o código abaixo e está tudo funcionando.

Código:

CurrentDb.Execute "UPDATE Con_Alterar_Data_Aplic SET Data_Prevista= '" & Me.Texto9 & "' WHERE Protocolo = '" & Me.[Protocolo:] & "';"


Obrigado!!