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


    Atualizar campoPreço da tabelaProdutos

    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº1

    Atualizar campoPreço da tabelaProdutos Empty Atualizar campoPreço da tabelaProdutos

    Mensagem  Convidado Qui Fev 02, 2017 7:35 am

    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
    • Ir para o topo
    CassioFabre
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013
    • Mensagem nº2

    Atualizar campoPreço da tabelaProdutos Empty Atualizar campoPreço da tabelaProdutos

    Mensagem  CassioFabre Qui Fev 02, 2017 8:41 am

    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.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº3

    Atualizar campoPreço da tabelaProdutos Empty Re: Atualizar campoPreço da tabelaProdutos

    Mensagem  Convidado Sex Fev 03, 2017 9:46 am

    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
    • Ir para o topo
    CassioFabre
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013
    • Mensagem nº4

    Atualizar campoPreço da tabelaProdutos Empty Atualizar campoPreço da tabelaProdutos

    Mensagem  CassioFabre Sex Fev 03, 2017 10:08 am

    Boa tarde,

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

    Abraço.
    • Ir para o topo
    Convidado
    avatar
    Convidado
    Convidado


    • Mensagem nº5

    Atualizar campoPreço da tabelaProdutos Empty Re: Atualizar campoPreço da tabelaProdutos

    Mensagem  Convidado Ter Jul 11, 2017 5:33 pm

    Substituir por:

    Me.undo
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

    Atualizar campoPreço da tabelaProdutos Empty Re: Atualizar campoPreço da tabelaProdutos

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Sex Abr 19, 2024 5:06 am