[Resolvido]Adicionar um novo registro

Boa noite amigos!

 Tenho um formulário "Cadastramento de clientes" vinculado a tabela clientes.

 Copiei um código postado pelo mestre JP que tem a função de me avisar se o registro é "Duplicado", se for, o código me avisa e cancela o registro. Bom
até aí beleza. Mas o que eu preciso é que além de me avisar ele também me mostre os detalhes deste cliente em um outro formulário que criei de nome
"Detalhes dos Clientes" que deverá ser aberto, claro que no registro específico, para que o usuário possa certificar-se que se trata da mesma pessoa ou de um novo cliente que tenha o mesmo nome. Isso é possível?
aqui o código:

                  Alerta e Mostra Registo Duplicado no Ms Access

Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.SeuCampoNoForm.Value
stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
Me.Undo
Cancel = True
MsgBox "Atencao, registo " _
& Busca & " ja existe." _
& vbCr & vbCr & "Vai ser mostrado o Registo.", vbInformation _
, "Duplicado"
rsc.FindFirst stLinkCriteria
Me.Bookmark = rsc.Bookmark
End If
Set rsc = Nothing
End Sub

 Um detalhe: Tive que retirar a linha "Me.Bookmark = rsc.Bookmark" pois aparece a seguinte mensagem de erro: Erro em tempo de execução '3021': Nenhum registro atual.

Access 2010

Se é para você abrir um outro form, já filtrado pelo registo que já existe, terá de ser assim;

Código:

Private Sub SeuCampoNoForm_BeforeUpdate(Cancel As Integer)
Dim Busca As String
Dim stLinkCriteria As String
Dim rsc As DAO.Recordset
Set rsc = Me.RecordsetClone
Busca = Me.SeuCampoNoForm.Value
stLinkCriteria = "SeuCampoNaTabela= '" & Busca & "'"
    If DCount("SeuCampoNaTabela", "NomeDaTabela", stLinkCriteria) > 0 Then
    Me.Undo
    Cancel = True
    MsgBox "Atencao, registo " _
    & Busca & " ja existe." _
    & vbCr & vbCr & "Vai ser mostrado o Registo.", vbInformation _
    , "Duplicado"
        rsc.FindFirst stLinkCriteria
        'Me.Bookmark = rsc.Bookmark
        DoCmd.OpenForm "SeuSegundoForm", , , "SeuCampoNoSegundoForm = '" & Busca & "'"
    End If
Set rsc = Nothing
End Sub

Perfeito JPaulo.

Muito obrigado! Grande abraço.

Fico feliz.

Obrigado pelo retorno o forum agradece.