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
    avatar
    Marco Sousa
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 950
    Registrado : 06/01/2011

    Atualizar campoPreço da tabelaProdutos

    Mensagem  Marco Sousa em Qui 02 Fev 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


    .................................................................................
    --
    Marco Sousa
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

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

    Atualizar campoPreço da tabelaProdutos

    Mensagem  CassioFabre em Qui 02 Fev 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.
    avatar
    Marco Sousa
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 950
    Registrado : 06/01/2011

    Re: Atualizar campoPreço da tabelaProdutos

    Mensagem  Marco Sousa em Sex 03 Fev 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


    .................................................................................
    --
    Marco Sousa
    avatar
    CassioFabre
    Developer
    Developer

    Respeito às Regras 100%

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

    Atualizar campoPreço da tabelaProdutos

    Mensagem  CassioFabre em Sex 03 Fev 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 : 934
    Registrado : 08/02/2011

    Re: Atualizar campoPreço da tabelaProdutos

    Mensagem  cafpr em Qua 12 Jul 2017, 00:33

    Substituir por:

    Me.undo

      Data/hora atual: Qua 22 Nov 2017, 20:14