MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Atualizar campoPreço da tabelaProdutos

    Compartilhe

    Convidado
    Convidado

    Atualizar campoPreço da tabelaProdutos

    Mensagem  Convidado em 2/2/2017, 14:35

    Olá a todos... Gostaria de saber como posso fazer o seguinte. Pretendo atualizar campo-Preço da tabela/form Produtos. No form de GE escolho o Produto a dar entrada e apar no campo Preço do Produto e mostra o preço atual do Produto, mas imaginemos que existiu uma alteração, gostaria que após a colocação do novo preço ao sair questiona-se que o preço foi alterado e atualiza-se o Preço da tabela/ from frmtabCadProduto.
    Estou a procura por aqui mas ainda não achei... Obrigado
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 719
    Registrado : 18/01/2013

    Atualizar campoPreço da tabelaProdutos

    Mensagem  CassioFabre em 2/2/2017, 15:41

    Bom dia,

    No evento "Antes de Atualizar" do campo de preço voce pode inserir a instrução:

    Código:
    If preco <> DLookup("preco", "Produtos", "codigoproduto = " & codigoproduto & "") then
        If MsgBox("Deseja atualizar o preço do produto " & produto & "?", vbQuestion + vbYesNo, "Preço") = vbNo Then
            preco = DLookup("preco", "Produtos", "codigoproduto = " & codigoproduto & "")
        End if
    end if

    Abraço.

    Convidado
    Convidado

    Re: Atualizar campoPreço da tabelaProdutos

    Mensagem  Convidado em 3/2/2017, 16:46

    Olá Cassio estive uns 2Dias com uma Gripe, por isso não ter respondido... testei mas não atualiza e se você dizer que não quer atualizar o preço da erro... Shocked Posso estar a comentar algum erro... O código que coloquei:
    If PrecoSemIVA <> DLookup("PrecoSemIVA", "tabCadProdutos", "IDtabCadProdutos = " & IDtabCadProdutos & "") Then
    If MsgBox("Deseja atualizar o preço do Produto " & produto & "?", vbQuestion + vbYesNo, "PrecoSemIVA") = vbNo Then
    PrecoSemIVA = DLookup("PrecoSemIVA", "tabCadProdutos", "IDtabCadProdutos = " & IDtabCadProdutos & "")
    End If
    End If

    Abraço
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 719
    Registrado : 18/01/2013

    Atualizar campoPreço da tabelaProdutos

    Mensagem  CassioFabre em 3/2/2017, 17:08

    Boa tarde,

    Vamos tentar o mais simples. Substitua PrecoSemIVA = DLookup("PrecoSemIVA", "tabCadProdutos", "IDtabCadProdutos = " & IDtabCadProdutos & "") por PrecoSemIva.Undo

    Abraço.
    avatar
    cafpr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 958
    Registrado : 08/02/2011

    Re: Atualizar campoPreço da tabelaProdutos

    Mensagem  cafpr em 12/7/2017, 00:33

    Substituir por:

    Me.undo

      Data/hora atual: 22/6/2018, 23:13