[Resolvido] Bloquear o cadastro de dados duplicados no campo matricula

Saudações!

Tenho um formulário de cadastro de segurados que contem um campo de nome matricula, este campo aceita numero e letras, pois, é do tipo texto. Ocorre que preciso de uma forma de verificação que após digitar o código de uma nova matricula o sistema verifique se já existe na tabela o códio digitado reportando uma mensagem de aviso caso exista.

tabela:
segurado

campo:
matricula

grato,
Williams.

Dim rs as Dao.Recordset
Dim strSQL as String

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

Do While Not Rs.EOF
 If Rs!NomeCampo = Me.CaixaTexto Then
    MsgBox "Número existente", VbInformation, "ATENÇÃO"
    Exit Sub
End If
Rs.MoveNext
Loop


é por ai.


Cumprimentos.

Piloto
Tomei a liberdade de acrescentar a instrução DoCmd.CancelEvent
após a mensagem a fim de travar que o usuário passe mesmo com a matrícula duplicada.
Muito obrigado pela ajuda funcionou perfeitamente.

att,
Williams.

O Fórum agradece o Retorno.

Piloto saudações!

Estou precisando adaptar o código acima para um segundo campo porém com um tratamento um pouco diferente, pois, ele deverá checar mediante duas condições.

Tenho o campo Matricula (Na tela do segurado principal) na tabela Segurado.
Na tabela Dependentes tenho os campos matricula_dependente (que pode se duplicar) e um dígito de dependência que é o campo: matricula_digito_dep que utilizo para controlar se é o primeiro dependente ou o segundo e assim por diante.

Ocorre que preciso adaptar o código para que ele verifique o seguinte: Não permitir cadastrar o sequencial do dígito quando já existir o mesmo para aquela matrícula.


Exemplo:
Na tabela dependentes:

Campo Campo
matricula_dependente matricula_digito_dep
1010 01
1010 02
1010 03
1010 03 *** Criticar aqui: Sequencia de dependência já cadastrada para esta matrícula !

Ou até mesmo uma maneira de a própria função atribuir o próximo número conforme o que estiver vago.

Cumprimentos
Williams.

Manda o Bd como está atualmente.. Se não hoje.. Amanha vejo pra ti.
Cumprimentos.