[Resolvido]Consulta de Atualização com criterio

Boa Tarde

Tenho um consulta que é essa:

Código:

If Me!txtSituacao = "Pago" Then
DoCmd.SetWarnings False ' Desabilita avisos.
CurrentDb.Execute "UPDATE tbl_Conta_Bancaria SET [Saldo] = [Saldo] - " & Me!txtValor
End If

Como eu faço para colocar um critério, esse:

Código:

Como [Formulários]![frm_Receita3]![UsuarioLogado] & "*"

Utilizando o CurrentDb.Execute, diga-me para que serve o que está grifado a vermelho;

If Me!txtSituacao = "Pago" Then
DoCmd.SetWarnings False ' Desabilita avisos.
CurrentDb.Execute "UPDATE tbl_Conta_Bancaria SET [Saldo] = [Saldo] - " & Me!txtValor
End If

Para a sua duvida;

CurrentDb.Execute "SELECT * FROM SuaTabela WHERE UsuarioLogado Like Forms![frm_Receita3]![UsuarioLogado] & '*'"

Para o seu aprendizado;
http://maximoaccess.forumeiros.com/t14925-resolvidoqual-a-diferenca-entre-docmdrunsql-e-currentdbexecute

Esse campo em vermelho é para tirar a mensagem padrão da consulta.

Vou adaptar e te retorno.

Então é porque não viu o link que postei ae.

Sim vi fiz um teste num formulário que esta acontecendo isso mais não deu certo. Mais depois vejo isso.

Então em relação a consulta, onde ficaria o campo Saldo da Tabela Conta Bancaria, calculo e campo Empresa da tabela também e o critério?
 E a consulta que você colocou como modelo é SELECT e a que te passei é UPDATE.

Ok;

CurrentDb.Execute "UPDATE SuaTabela SET SeuCampo='xpto' WHERE Like " & "'" & "*" & Forms![frm_Receita3]![UsuarioLogado] & "*" & "'"

Note que o CurrentDb.Execute, não emite mensagens, por isso não necessita do DoCmd.SetWarnings False.

Erro na função UPDATE:

CurrentDb.Execute "UPDATE tbl_Conta_Bancaria SET [Formulários]![frm_Receita]![txtValor]+[Saldo] WHERE [Empresa] Like " & "'" & "*" & Forms![frm_Receita]![UsuarioLogado] & "*" & "'"

Você viu eu fazer isto ????

SET [Formulários]![frm_Receita]![txtValor]

O SET é para o campo da tabela e a palavra Formulários não funciona no VBA, é Forms.

CurrentDb.Execute "UPDATE tbl_Conta_Bancaria SET Saldo=Saldo + " & Val(Forms![frm_Receita]![txtValor]) & " WHERE [Empresa] Like " & "'" & "*" & Forms![frm_Receita]![UsuarioLogado] & "*" & "'"

E "Empresa" é o mesmo que "UsuarioLogado" ???

Sim, é porque eu tenho um cadastro de varias empresas que vai ter acesso ao sistema, eu uso Empresa em todas as tabelas para saber qual empresa que adicionou qual registro para poder filtrar

Fiz o teste hoje do código, mais não atualizou a tabela.

Código:

CurrentDb.Execute "UPDATE tbl_Conta_Bancaria SET Saldo=Saldo + " & Val(Forms![frm_ReceitaMultipla]![txtValor]) & " WHERE [Empresa] Like " & "'" & "*" & Forms![frm_ReceitaMultipla]![txtConta] & "*" & "'"


Bom dia JPaulo
Agora esta acontecendo o seguinte, ele deveria filtrar o usuário logado e atualizar a conta que a pertence, mais não ele esta atualizando todas as contas.

Rsolvido.