Usando Access

... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,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

Antes de iniciar a sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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!

| Home | Vídeos-aulas | Tutoriais | Dicas | Blog | Downloads | Contato | Artigo |