[Resolvido]Atualizar Tabela com Função IFF

Boa Tarde Caros Colegas,

Desculpe se o tópico é repetido, mas não encontrei solução para o meu problema aqui no fórum.

A questão é que estou tentando atualizar minha tabela, após atualizar um campo no formulário, e estou utilizando o código abaixo, porém está dando erro e eu não consigo descobrir onde que é o problema.

CurrentDb.Execute "UPDATE Cad_Tratamentos SET Data_Prevista= Iff([tempo1:]=Data; [Estádio1:]; DateAdd('d', Est_dias, Data_Semeio)) WHERE Protocolo= '" & Me.Protocolo & "';"

Descrevendo o código: Eu preciso atualizar o campo "Data_Prevista" da minha tabela "Cad_Tratamentos", para isso preciso saber se o campo "Tempo1:" é igual ao texto "Data", se essa condição for verdadeira preciso que ele copie o que está no campo "Estádio1:" e coloque no campo "Data_Prevista", caso a condição seja falsa, preciso que ele some os campos "Est_dias" e "Data_Semeio" e salve no campo "Data_Prevista".

Acho que assim fica mais fácil de entender, porém eu não sei se é possível.

Alguém poderia me ajudar?

Obrigado

Bom dia, tente assim:

Dim dtDiasSoma as Date

If Me!Tempo1 = "Data" Then
dtDiasSoma = Me!Estádio
Else
dtDiasSoma = DateAdd('d', Me!Est_dias, Me!Data_Semeio)
End If

CurrentDb.Execute "UPDATE Cad_Tratamentos SET Data_Prevista=" & dtDiasSoma & " WHERE Protocolo= '" & Me.Protocolo & "';"

Desculpe, faltou um detalhe importante na sintaxe:


CurrentDb.Execute "UPDATE Cad_Tratamentos SET Data_Prevista=#" & dtDiasSoma & "# WHERE Protocolo= '" & Me.Protocolo & "';"

Obrigado Pela Ajuda Leandro, e desculpe pela demora no retorno.

Porém ainda não consegui o resultado correto.

A mensagem que aparece é que ele não consegue encontrar o campo "Tempo1", mas eu entendi o porque disso, porque esse campo realmente não existe no meu formulário, ele existe somente na minha tabela, ou seja, no meu entender eu tenho que de alguma forma dizer para o access procurar isso na minha tabela e não no meu formulário, só que eu não tenho o conhecimento suficiente para fazer isso.

Se eu estiver correto nas minhas suposições você poderia me ajudar?

Desde já agradeço.

Obrigado Leandro.

Eles são lançados na tabela via formulário, mas esses lançamentos ocorrem em momentos anteriores, eles não são lançados nesse mesmo formulário que eu estou trabalhando.

Ele tem vários valores diferentes, mas que são padrões e todos são textos, no formulário onde ele é lançado o usuário escolhe esse valor em uma combobox, que possui 6 opções, e uma delas é o texto "Data".

Espero que eu tenha sido compreendido.

Abraços

Bom dia,
Então dessa forma, teríamos que procurar na tabela um registro pertinente para executar a condicional?
Existe um Id para esses registros?
Faça assim, exporte a tabela para excel e poste aqui para analisarmos.

Boa Tarde Leandro,

Isso, na verdade não seria um registro, seria um grupo de registros, esses registros seriam definidos pelo campo Protocolo, por exemplo, todos os registros que o campo Protocolo esteja preenchido com a letra "X" são os que devem ser alterados.

Exportei e anexei a tabela para melhor entendimento.

Desde já agradeço o empenho.

Resolvido.

Utilizei consultas.