[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

Nesse caso, não deve usar o recordsetclone e sim um recordset de um SELECT do SQL usando como critério
a chave primária do registro. Ou mais simples, usar um UPDATE direto de uma consulta atuaalização...

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!!

Grato pelo retorno!