Localizar Código

Boa tarde! Podem me ajudar!

Tenho um formulário onde lanço um código em uma tabela, quero verificar se esse código já existe, se existir, dar mensagem "Código Cadastrado e perguntar se deseja incluir novamente", se "sim", incluir novo registro para que as informações sejam lançadas.

Obrigado

você pode executar uma rotina de consulta em vba para verificar se existe o código, coloque no evento após atualizar do seu campo o código abaixo.

Código:

Dim rs As DAO.Recordset
Dim strsql As String

DoCmd.SetWarnings False

strsql = "Select * From SuaTabela"
Set rs = CurrentDb.OpenRecordset(strsql)

Do While Not rs.EOF
 If rs!CampoDaSuaTabelaQueDesejaVerificar = Me.NomeDoCampoNoFormulario Then 'verifica se o código cadastrado é igual ao da tabela e lança a mensagem abaixo
    MsgBox "Esse código já foi cadastrado, por favor altere o código para poder salvar o cadastro!", vbCritical, "ATENÇÃO!"
    DoCmd.CancelEvent
    Undo
    NomeDoCampoNoFormulario.SetFocus
    Exit Sub
End If
rs.MoveNext
Loop
DoCmd.SetWarnings True

adapte as suas necessidades

Talvez não me fiz entender bem.

O que eu preciso é que avise que o código existe e pergunte se quer incluir esse mesmo código novamente, se sim, insere-se um novo registro e deixa o código ser incluído novamente. Vai existir repetições de código.

use o código acima informado e adapte as suas necessidades