[Resolvido]Consulta UPDATE com VBA

Por favor, estou precisando de ajuda com esta consulta:

Private Sub Form_Close()
Dim value As String
Dim name As String

value = Me.valor_atual
name = Me.NOME

DoCmd.RunSQL "UPDATE pessoal SET salario_base = value WHERE nome = name"



End Sub

Não consigo fazer funcionar e não sei resolver o problema

Tente rodar Direto assim:

CurrentDB.Execute "UPDATE pessoal SET salario_base = '" & Me.valor_atual & "' WHERE nome = '" & Me.NOME & "' "


Se: O valor do Campo Valor_Atual do formulario for Diferente de NUMEROS fica como está ( ' "  ...  " ') agora se For Numeros fica somente entre Aspas ( "  ...  ").

Se não der certo posta aqui o BD...


Seu Problema esta aqui:

DoCmd.RunSQL "UPDATE pessoal SET salario_base = value WHERE nome = name"


Devendo ficar assim (caso queira fazer com Variaveis):

Código:


Private Sub Form_Close()
Dim value As String
Dim name As String

value = Me.valor_atual
name = Me.NOME

DoCmd.RunSQL "UPDATE pessoal SET salario_base = ' " & value & " ' WHERE nome = ' " & name & " ' "

End Sub


Obs: Recomendo mudar os Nomes dessa Variáveis caso opte por utilizar Variáveis... Pois poderá haver problemas já que: .Value se refere ao Valor de um Campo...

Funcionou não.... não atualizou a tabela pessoal.

Por favor, poste seu BD que dou uma Olhada! pois testei aqui e foi certinho!

Um pequeno exemplo bem próximo do que vc esta tentando fazer...

Após inúmeras tentativas e ajuda dos colegas consegui o que queria de uma forma diferente da proposta inicial deste post.
Passei a utilizar uma consulta e mostrar somente seu resultado no formulário, não mais sendo necessário guardar o valor em um outra tabela.
Ficou assim:

Private Sub Form_Current()
TEMP = DLookup("Atual", "SALARIO Consulta Atual")
Me.salario_base = TEMP
End Sub

Agradeço a todos pela ajuda concedida e até a próxima!

Seguindo os conselhos do nobre moderador fiz o seguinte:

Private Sub tipo_alteracao_AfterUpdate()

Dim NovoValor As String
Dim idpes As String

TEMP = DLookup("Atual", "SALARIO Consulta Atual")
NovoValor = TEMP
idpes = Me.nome
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE PESSOAL SET salario_base =" & NovoValor & " WHERE idpessoal =" & idpes & ""
DoCmd.SetWarnings True



End Sub

Agora Funcionou tudo redondo, além de atualizar o formulário como tinha postado acima, atualiza a base com o valor atual.

Show de bola!!!

Bacana! que bom que chegou ao resultado esperado! Até a próxima!