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


5 participantes

    [Resolvido]Último registro

    julio54
    avatar
    julio54
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 15/06/2011
    • Mensagem nº1

    [Resolvido]Último registro Empty Último registro

    Mensagem  julio54 Qui 23 Ago - 16:35

    Mais uma vez precisando da ajuda de vocês

    tenho um bd e preciso pegar o último registro e acrescentar mais 1 e colocar num textbox6.
    exemplo: codigo = 2, os = 3
    os = 3 + 1 -> textbox6 = 4

    desde já agradeço a atenção
    • Ir para o topo
    Leandro
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009
    • Mensagem nº2

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  Leandro Qui 23 Ago - 16:51

    Boa tarde,

    Você pode dar mais detalhes?

    • Ir para o topo
    Lupércio
    Lupércio
    Lupércio
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1143
    Registrado : 06/05/2011
    • Mensagem nº3

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  Lupércio Qui 23 Ago - 21:00

    Olá Leandro como vai amigo?
    Companheiro de mais detalhes para podermos ajuda-lo! O Leandro tem razão.
    Um abraço!
    • Ir para o topo
    Leandro
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009
    • Mensagem nº4

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  Leandro Qui 23 Ago - 21:41

    Tudo bem Lupércio, graças a Deus, a aí?
    Abraço

    • Ir para o topo
    julio54
    avatar
    julio54
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 15/06/2011
    • Mensagem nº5

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  julio54 Sex 24 Ago - 12:05

    Obrigado pela atenção de vocês, mas decidi implementar o código de outra maneira.
    • Ir para o topo
    Leandro
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009
    • Mensagem nº6

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  Leandro Sex 24 Ago - 13:34

    Obrigado pelo retorno Júlio. Wink

    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009
    • Mensagem nº7

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  Alexandre Neves Sex 24 Ago - 16:47

    Boa noite, julio
    Se disponibilizar a solução encontrada, para que outros membros que tenham a mesma dúvida obtenham esclarecimento...


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    Gilberto Rocha
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010
    • Mensagem nº8

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  Gilberto Rocha Sex 24 Ago - 17:07

    Private Sub UltimoID()

    Dim Db As DAO.Database
    Dim Rs As DAO.Recordset

    Set Db = CurrentDb()

    Set Rs = Db.OpenRecordset("Select Top 1 * from SuaTabela Order by ID Desc;")

    If Rs.EOF = True Or Rs.BOF = True Then
    Me.textbox6 = 1
    Else
    Me.textbox6 = Rs!ID + 1
    End If

    Rs.Close
    Set Db = Nothing

    sai:
    Exit Sub

    trata:
    MsgBox err.Number & " " & err.Description & " Erro ao capturar Último ID no Access"
    Resume sai
    End Sub

    'Chame a sub
    call UltimoID
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº9

    [Resolvido]Último registro Empty Re: [Resolvido]Último registro

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: Seg 6 maio - 10:10