[Resolvido]Impedir lançamentos duplicados por Cliente

Oi pessoal, espero que esteja tudo bem com vocês
Estou com um problema da seguinte forma:

To com um sistema de Matrícula Escolar e Preciso impedir que haja repetição de matrícula do mesmo aluno em um determinado ano, mantendo o ano anterior que ele estudou.
Estou tentando com esse código, mas ele não é suficiente, pois teria que analisar o código do aluno e o ano de matrícula


Private Sub txt_AnoLetivo_BeforeUpdate(Cancel As Integer)
 Dim Busca As String
  Dim stLinkCriteria As String
  Dim rsc As DAO.Recordset
  Set rsc = Me.RecordsetClone
  Busca = Me.AnoLetivo.Value
  stLinkCriteria = "AnoLetivo= '" & Busca & "'"
  If DCount("AnoLetivo", "Encontrar duplicatas para TblDet_Matricula", stLinkCriteria) > 0 Then
  Me.Undo
  MsgBox "Atenção " _
  & Busca & " Já está Matriculado." _
  & vbCr & vbCr & "Mostrar o Registo.", vbInformation _
  , "Duplicado"
  rsc.FindFirst stLinkCriteria
  Me.Bookmark = rsc.Bookmark

End If
Set rsc = Nothing
End Sub

Bom dia,

 jeanemerson, favor adeque o Título do Tópico, pois está infringindo umas das regras do Fórum.

  E quanto a sua dúvida, favor verifique se o exemplo pode lhe ajudar, o mesmo impede dados duplicados com base em dois critérios, que são Ano e nome, que no seu caso pode alterar para o código, considerando que pode haver pessoas com nomes iguais, e o que difere será o código único.

Bom dia Jean e seja bem vindo!

Antes de portar, é essencial ler as Regras do Fórum:

1. Tenha paciência com quem coloca aqui as suas duvidas.
2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
3. Não colocar diversas vezes a mesma dúvida.
4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
5. Retorne sempre se deu certo, esse retorno é muito importante.
6. Respeite toda a equipe Staff e demais membros deste fórum.
7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.
14. É proibido adicionar links externos nos tópicos, que redirecionem para outros sites ("backlinks"), excepto DropBox ou do próprio fórum.
15. É permitido adicionar links externos, nos códigos VBA dentro das Base de Dados.

Peço que adeque o título do seu tópico e assim continuem com a solução.

Obrigado Ismael Silva

Demoreipara postar porque, pelo fato de ser novo no Fórum, me atropelei na condução da minha dúvida!

Obrigado!


Grande abraço a todos!!!!

Gratos pelo retorno e sucesso em nosso Fórum!