[Resolvido]Recuperar o ultimo ID cadastrado tabela

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")  )

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

bor tarde!

Funcionou perfeitamente!!! Obrigado!

Valeu Misson !!!
Abraços