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 - 9: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 Qui 30 Jul - 19: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 - 10: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 : 775
    Registrado : 10/09/2013

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

    Mensagem  formiga10x em Ter 28 Jul - 10: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: Ter 24 Abr - 17:01