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


    [Resolvido]como pegar valor anterior

    avatar
    marioboladao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 09/02/2013

    [Resolvido]como pegar valor anterior Empty [Resolvido]como pegar valor anterior

    Mensagem  marioboladao 16/2/2013, 21:15

    Gostaria de saber como se é possível pegar um valor de um campo anterior sem o uso de dlookup e dlast, em um formulario ou subformulário, um exemplo eu tenho os seguintes campos:

    codigo nome valor novovalor
    1 text 10
    3 text 20 10
    6 text 30 20
    7 text 40 30

    novovalor e como ficaria



    Última edição por marioboladao em 8/3/2013, 17:03, editado 1 vez(es)
    avatar
    Convidado
    Convidado


    [Resolvido]como pegar valor anterior Empty Re: [Resolvido]como pegar valor anterior

    Mensagem  Convidado 16/2/2013, 21:29

    Crie uma variável para receber o valor antigo e utilize a propriedade oldvalue.

    E nos eventos após atualizar:

    Dim Strvalor as Integer (Se valores com decimais, Double)

    StrValor = Me.SeuCampo.OldValue

    Cumprimentos.
    avatar
    marioboladao
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 09/02/2013

    [Resolvido]como pegar valor anterior Empty Re: [Resolvido]como pegar valor anterior

    Mensagem  marioboladao 16/2/2013, 23:36

    Perfeito! Muito Obrigado.

    só tem um porém, quando eu fecho o formulário o valor do oldvalue e zerado, como resolver isso?
    avatar
    Convidado
    Convidado


    [Resolvido]como pegar valor anterior Empty Re: [Resolvido]como pegar valor anterior

    Mensagem  Convidado 17/2/2013, 00:09

    Crie um Modulo e o nomeeie de mdlVarGlobais

    Nele coloque a variável porém como publica:

    Public Strvalor as Integer

    Convem lembrar que:

    1 - Variáveis aplicada nas declarações do Form, são lidas por quaisquer procedimentos, e são descarregadas ao fechar do Form. Ex:
    Option Compare DataBase
    Dim StrValor as Integer
    (São válidas para leitura em qualquer procedimento)


    2 - Variável aplicadas no procedimento são Válidas apenas para o procedimento:

    Private Sub BtnExemplo_Click()
    Dim StrValor as Integer (São válidas para leitura apenas no procedimento)

    3 - Variáveis globais são carregadas e somente são limpas se utilizar algum m[etodo para limpa-la, portanto depois que carrgar poderá ser lida em qualquer dos forms


    Public StrValor as Integer (São válidas para leitura em todos os forms e procedimentos)

    Para limpar:

    StrValor = Empty

    Cumprimentos.

    Conteúdo patrocinado


    [Resolvido]como pegar valor anterior Empty Re: [Resolvido]como pegar valor anterior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 00:46