Atualização de preços de produtos específicos
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Francisco:
Olá, Avelino!
Gostaria de sua ajuda. Não sei como faço para atualizar o preço dos produtos, pois quero que seja da seguinte forma: - inserir à porcentagem de aumento na hora da atualização, com opção de selecionar um determinado produto ou selecionar todos para atualização.
Obrigado.
Suporte:
Francisco,
para este procedimento você pode utilizar a consulta de ação UPDATE do VBA.
Exemplo para o caso de você querer atualizar todos os produtos em mais 25%:
Currentdb.execute "UPDATE NomeDaTabela SET ValorProduto = ValorProduto * 1.25;"
Exemplo para o caso de você querer atualizar um único produto em mais 5%:
Currentdb.execute "UPDATE NomeDaTabela SET ValorProduto = ValorProduto * 1.05 WHERE IdProduto = 28;"
Caso você ainda não esteja treinado em usar o código VBA, pode montar uma consulta gráfica. Veja um exemplo de uma consulta atualização que aumenta os preços em 25% de todos os produtos:
Nota: faça um backup de segurança dos seus dados, antes de realizar o teste.
Usuário Francisco:
Boa noite, Avelino.
Entendi as suas explicações. Ficou tudo direitinho, do jeito que o senhor orientou.
|
3 comentário(s) Avelino Sampaio 26/09/2019 03:00:34 Silvio, ops! Aonde esta assim: ... '=" & me.endereco... Coloque assim: ...= '" & me.endereco... Sucesso! Avelino Sampaio 26/09/2019 02:55:28 Silvio, experimente assim: CurrentDb.Execute "UPDATE TB_Produto set endereco '=" & me.endereco & "' where codigo_produto =" & me.texto78.value & ";" Sucesso! silvio 25/09/2019 16:52:28 boa noite Avelino, estou com um projeto onde tenho uma tabela de produtos onde consta informações do produto e o endereço, preciso alterar o endereço de um produto na tabela atraves de um formulario, abaixo o codigo inseriddo no botão salvar do formulario. CurrentDb.Execute "UPDATE TB_Produto set endereco = me.endereco where codigo_produto = me.texto78.value;" o problema ao clicar no botão o sistema retorna o seguint erro: "erro de tempo de execusão 3061 Parametros insuficientes eram esperados 2. |
