[Resolvido]Como salvar o ID somente quando clicar no Botão.

Olá pessoal do fórum!

Venho aqui pedir ajuda dos Mestres.

Tenho um Formulário de cadastro que uso ID como código de controle de Pasta e um dos campos não permite duplicidade.

Até ai tudo bem.

Agora o problema:

Quando o campo informa a duplicidade o usuário sai do formulário, só que o ID foi gerado.

Tem algum código que posso colocar no Botão sair que não deixa gravar ou gerar o código ID?

Obs.: O Formulário é acoplado na Tabela.

Fico no aguardo, obrigado.

Opa...

Obrigado em responder.

Sim.. é um campo de Numeração Automática,

Ai que está o problema.

Não queria perder a ordem desta numeração por segurança da informação.

Vou preparar o DB e te mando.

Obrigado.

Opa Alexandre!

Sim... eu imaginei por ser chave primária.

Se tivesse um jeito de criar um campo na tabela com o nome Pasta e copiasse número do registro anterior+1.

Não sei se estou explicando direito.

O DB original já tem 2300 cadastros.

Estou disponibilizando o DB teste.

Apenas dando um pitaco
Adapte e Teste

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As DAO.Recordset
Dim novoNumero As Long

' Abra a tabela onde o campo de chave primária está
Set rs = CurrentDb.OpenRecordset("SELECT MAX([ID]) AS UltimoNumero FROM tblNomeDaTabela")

' Verifique se há registros na tabela
If Not rs.EOF Then
' Obtenha o último número e incremente em 1
novoNumero = Nz(rs!UltimoNumero, 0) + 1
Else
' Se não houver registros, comece a partir de 1
novoNumero = 1
End If

' Feche o recordset
rs.Close
Set rs = Nothing

' Atribua o valor incrementado ao campo de chave primária
Me![ID] = novoNumero
End Sub



• MAX([ID]): Esta função encontra o valor mais alto já utilizado no campo de chave primária “ID”. Substitua [ID] pelo nome do campo de chave primária da sua tabela.
• tblNomeDaTabela: Substitua pelo nome da sua tabela.
• Nz(rs!UltimoNumero, 0): A função Nz garante que, se não houver registros na tabela, o valor padrão será 0. Assim, o primeiro número gerado será 1.
• Me![ID]: Atribui o novo número ao campo “ID” no formulário.

Olá Mylton!

Eu imaginei que teria uma solução, porem não saberia como fazer.

Muito obrigado pelo retorno e atenção.

Está funcionando perfeitamente.

Nós é que agradecemos.
Abs