[Resolvido]Insert e Update Condicional (Considerando o resultado de uma consulta)

Olá Amigos!

No Exemplo anexo, há o FrmAtual com uma textbox nomeada txtCondicao e o botão Inserir Informação nomeado cmdInserir.

Os outros componentes são tblTeste e csnTeste.

Diariamente, os campos Nome, Agendamento e Status são preenchidos normalmente e a Consulta (csnTeste) filtra somente o que estiver com status APROVADO.


Isso é algo muito simples, mas nao estou conseguindo fazer:

Caso eu insira uma informação qualquer na txtCondicao e clique no botão Inserir, o código SQL considera somente o que estiver filtrado na csnTeste e insere na tabela o conteudo da textbox no campo Condicao e no campo Email Insere a hora em que o botão foi clicado.

Caso a tabela já tenha informação no campo selecionado, preciso atualizá-lo.

obs: a figura que utilizei no anexo, é para o caso da informação da textbox ser Cliente que realizar alteracao no contrato.


Obrigado!

Bom dia!

Estou buscando ao máximo encontrar uma solução.

No código que estou tentando implementar está dando erro '3061' Parâmetros Insuficientes. Por favor, peço que me auxiliem.

Private Sub cmdInserir_Click()

Dim vartxtCondicao As Variant
Dim strsql As String

vartxtCondicao = Forms!FrmAtual!txtCondicao

strsql = "UPDATE teste_leandro SET teste_leandro.nome = '" & vartxtCondicao & "'" _
& " WHERE (((tblTeste.Codigo) In (Select [csnTeste].[Codigo] FROM [csnTeste])))"

CurrentDb.Execute strsql


End Sub

Boa tarde,
A primeira exposição não ficou clara.
Sobre a segunda dúvida colocada,
strsql = "UPDATE teste SET nome = '" & vartxtCondicao & "' WHERE Status='Aprovado'"
Atenção aos nomes reservados do Access

Alexandre, boa tarde!

Obrigado pelo retorno.!

O que preciso é que ao inserir uma informação na textbox e clicar em Inserir Informação, somente os dados existentes na Consulta (csnTeste) sejam utilizados como condição para preencher a tblTeste.

Exemplo:

Na tblTeste as informações (Nome,Status) estão associadas aos códigos que vão do 24 a 36;

Na cnsTeste há diversos códigos (entre 24 e 36) que foram filtrados por uma determinada condição. Nesse anexo, Status Aprovado ou Em análise.

Ou seja,

Se eu digitar na textbox a palavra "Máximo Access", somente receberiam no campo Condicao da tblTeste os registros associados aos códigos 24,26,27,28,30,31,32,34 (Vide anexo).

Tinha dito que a Consulta (csnTeste) filtra somente o que estiver com status APROVADO.
Agora, tem a consulta com Status="APROVADO" ou Status="Em análise"

Se assim, for, coloque strsql = "UPDATE teste SET nome = '" & vartxtCondicao & "' WHERE Status='Aprovado' or Status='Em análise'"

Alexandre,
A sua solução está correta. Obrigado!

Somente para casos onde houverem muitas condições envolvidas no Status a seguinte solução é a viável. O WHERE passa a ficar condicionado aos dados de código existentes no csnTeste independente de suas variações.

Dim vartxtCondicao As Variant
Dim strsql As String

vartxtCondicao = Forms!FrmAtual!txtCondicao

strsql = "UPDATE tblTeste SET tblTeste.Condicao = '" & vartxtCondicao & "'WHERE (((tblTeste.Codigo) In (SELECT [csnTeste].[Codigo] FROM [csnTeste])))"


CurrentDb.Execute strsql

Resolvido!