... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Retornar o valor do ID, via código

Usuário José:

Tenho um formulário para inserir dados em uma tabela não acoplada. Gostaria que retornasse o número do id_cadastro, assim que confirmasse a gravação.  A gravação será via código.

...
rs!nome = me!nome
rs!dh_nascimento = me!dh_nascimento
...

Depois de inserir os dados, ele me retorna o número do id_cadastro (tipo: autonumeração) da respectiva tabela.

Suporte:

José, assim que você utiliza o comando AddNew, você tem o ID (autonumeração) à sua disposição.

Exemplo:

Dim id&
...
Set rs = CurrentDb.OpenRecordset("tblClientes")
rs.AddNew
    id = rs!idCliente 'captura o número exclusivo(autonumeração) do novo registro
    rs!cli_Nome = Me!tx1
rs.Update
...

Usuário José:

Deu certo!

Muito bom!

 


 

 


Não há comentário

Envie seu comentário: