Retornar o valor do ID, via código
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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 |