MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    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.] [Você precisa estar registrado e conectado para ver esta imagem.]

    roberval
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 69
    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.] [Você precisa estar registrado e conectado para ver esta imagem.]

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    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: Dom 11 Dez 2016, 00:15