MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Somar valor em real VBA

    avatar
    jorgek
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    [Resolvido]Somar valor em real VBA Empty [Resolvido]Somar valor em real VBA

    Mensagem  jorgek 10/7/2013, 18:10

    Boa tarde, mestres!

    Venho mais uma vez com uma dúvida cruel!
    Estou desenvolvendo um formulário no qual o usuário digita um valor para preço e quando clica no botão atualizar, são alterados alguns preços de outros produtos que inseri no código.
    Ele pega o valor do campo e realiza uma soma.

    Segue exemplo:
    CurrentDb.Execute "update Produtos set PrecoAtual= " & Me.PrecoAtual & " WHERE Codigo= 4579"

    Quando faço soma com inteiro, dá certo. Mas quando somo decimal, como no exemplo abaixo, dá erro de sintaxe:
    CurrentDb.Execute "update Produtos set PrecoAtual= " & Me.PrecoAtual + 0.5 & " WHERE Codigo= 4580"

    O que estou fazendo de errado?

    Desde já agradeço!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Somar valor em real VBA Empty Re: [Resolvido]Somar valor em real VBA

    Mensagem  Avelino Sampaio 10/7/2013, 18:21

    Use o apóstrofe ou aspas duplas

    CurrentDb.Execute "update Produtos set PrecoAtual= '" & Me.PrecoAtual + 0.5 & "' WHERE Codigo= 4580"

    Pode também utilizar a função str()

    CurrentDb.Execute "update Produtos set PrecoAtual= " & str(Me.PrecoAtual + 0.5) & " WHERE Codigo= 4580"

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    jorgek
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 72
    Registrado : 08/12/2012

    [Resolvido]Somar valor em real VBA Empty Resolvido!

    Mensagem  jorgek 10/7/2013, 19:23

    Valeu, mestre!

    Você salvou minha vida!

    Muito obrigado mesmo!!!

    Conteúdo patrocinado


    [Resolvido]Somar valor em real VBA Empty Re: [Resolvido]Somar valor em real VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 21:39