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


2 participantes

    [Resolvido]Recuperar o ultimo ID cadastrado tabela

    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 335
    Registrado : 01/12/2016

    [Resolvido]Recuperar o ultimo ID cadastrado tabela Empty [Resolvido]Recuperar o ultimo ID cadastrado tabela

    Mensagem  Misson Lira 23/9/2019, 14:21

    Bom dia !


    Já dei uma olhada aqui a respeito desse assunto de recuperar o ultimo id cadastrado mais todos que encontrei não iguais e não funciona. Alguém poderia me da uma mão?

    uso esse comando, esse código ta em um botão, ele cadastra primeiro em uma tabela (TBL_CDS_Produto) e depois cadastra na outra tabela (TBL_MOV_Compras_SubForm_ListaProdutos) ou seja, quero recuperar o id que acabei de cadastra na tabela 1 (TBL_CDS_Produto) e vincular a minha 2 tabela (TBL_MOV_Compras_SubForm_ListaProdutos).


    'SALVA NA TABELA DE PRODUTOS
       If IsNull(txtIDProduto) Or Me.txtIDProduto = "" Then ------> QUANDO FOR PARA NOVO PRODUTO
           'COMANDO PARA SALVAR OS DADOS
           Sel1 = "SELECT * from TBL_CDS_Produto"
           Set rst1 = CurrentDb.OpenRecordset(Sel1)
           rst1.AddNew
       Else                                                                         ------> QUANDO FOR PARA EDITA O PRODUTO
           'COMANDO PARA EDITAR OS DADOS
           Sel1 = "SELECT * from TBL_CDS_Produto where IDProduto=" & txtIDProduto
           Set rst1 = CurrentDb.OpenRecordset(Sel1)
           rst1.Edit
       End If
           rst1![IDFornecedor] = intIDFornecedor
           rst1![CodBarra] = Me.txtCodBarra
           rst1![Referencia] = Me.txtReferencia
           
           rst1.Update
           rst1.Close

    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////  

    'SALVA NA TABELA DE PRODUTOS DO SUB DE COMPRA
       If IsNull(txtIDProduto) Or Me.txtIDProduto = "" Then  ------> QUANDO FOR PARA NOVO PRODUTO
           'COMANDO PARA SALVAR OS DADOS
           Sel1 = "SELECT * from TBL_MOV_Compras_SubForm_ListaProdutos"
           Set rst1 = CurrentDb.OpenRecordset(Sel1)
           Dim RecuperarIDProduto As Integer
           rst1.AddNew

    ****************** ONDE TENTO RECUPERA O ULTIMO CADASTRO PARA VINCULA NA TABELA ******************************
         
            RecuperarIDProduto = DLast("[IDProduto]", "TBL_CDS_Produto")  

           rst1![IDProduto] = RecuperarIDProduto
       Else                                                                           ------> QUANDO FOR PARA EDITA O PRODUTO
           'COMANDO PARA EDITAR OS DADOS
           Sel1 = "SELECT * from TBL_MOV_Compras_SubForm_ListaProdutos where IDProduto=" & Me.txtIDProduto
           Set rst1 = CurrentDb.OpenRecordset(Sel1)
           rst1.Edit
           rst1![IDProduto] = Me.txtIDProduto
       End If
           rst1![IDCompraProdutoDet] = Me.txtIDCompra
           rst1![QTDEntrada] = Me.txtQTD
           rst1![DescontoCompraProdutoMoeda] = Me.txtProdutoDescontoMoeda
           rst1![DescontoCompraProdutoPorcemtagem] = Me.txtProdutoDescontoPorcentagem
           rst1.Update
           rst1.Close


    só que esse comando ele fica colocando sempre o segundo ID de uma lista de 20 ( RecuperarIDProduto = DLast("[IDProduto]", "TBL_CDS_Produto")  )
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Recuperar o ultimo ID cadastrado tabela Empty Re: [Resolvido]Recuperar o ultimo ID cadastrado tabela

    Mensagem  Alexandre Fim 23/9/2019, 15:25

    Para recuperar o último ID cadastrado, faça assim:

    Código:


    Dim rstemp As DAO.Recordset

    Sel1 = "SELECT MAX(IDProduto) as ID_PROD FROM TBL_CDS_Produto"
    Set rstemp = CurrentDb.OpenRecordset(Sel1)
    RecuperarIDProduto = rstemp("ID_PROD").Value
    rstemp.Close
    Set rstemp = Nothing



    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Recuperar o ultimo ID cadastrado tabela Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 335
    Registrado : 01/12/2016

    [Resolvido]Recuperar o ultimo ID cadastrado tabela Empty Re: [Resolvido]Recuperar o ultimo ID cadastrado tabela

    Mensagem  Misson Lira 23/9/2019, 19:37

    bor tarde!

    Funcionou perfeitamente!!! Obrigado!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3491
    Registrado : 13/12/2016

    [Resolvido]Recuperar o ultimo ID cadastrado tabela Empty Re: [Resolvido]Recuperar o ultimo ID cadastrado tabela

    Mensagem  Alexandre Fim 23/9/2019, 20:56

    Valeu Misson !!!
    Abraços


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Recuperar o ultimo ID cadastrado tabela Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Recuperar o ultimo ID cadastrado tabela Empty Re: [Resolvido]Recuperar o ultimo ID cadastrado tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 13:41