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