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

    [Resolvido]Como pegar o valor do ultimo registro e somar + 1

    Compartilhe
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Como pegar o valor do ultimo registro e somar + 1

    Mensagem  roberval em Ter 28 Jul 2015, 14:50

    Bom dia...
    Bom, estou desenvolvendo um certo programa e me deparei com o seguinte problema:

    Estou usando a função DMax para pegar no ultimo registro da "Tabela1" o valor do controle "Teste". Usando a seguinte fórmula:

    Me.Texto1 = DMax("Tabela1", "Teste") + 1

    Ele conta tudo direitinho, mas quando chaga em algum número decimal (10, 100, 1000) ele para....
    O que estou fazendo errado...?


    Última edição por roberval em Sex 31 Jul 2015, 00:11, editado 1 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]      Juro que eu sou legal     [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    Re: [Resolvido]Como pegar o valor do ultimo registro e somar + 1

    Mensagem  roberval em Ter 28 Jul 2015, 15:15

    Bom ja fiz uma gambiarra usando o Dcount.... Mas o tópico fica aberto até uma solução ao problema de abertura


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]      Juro que eu sou legal     [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 754
    Registrado : 11/09/2013

    Re: [Resolvido]Como pegar o valor do ultimo registro e somar + 1

    Mensagem  formiga10x em Ter 28 Jul 2015, 15:26

    Dim UltimoReg  as Integer

    UltimoReg = Dlast("ColunaTabela","Tabela")

    UltimoReg  =UltimoReg  +1

    Me.Texto1=UltimoReg


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

      Data/hora atual: Seg 20 Nov 2017, 15:35