[Resolvido]Não deixar repetir campo, no próprio e noutro campo

Boa tarde

Estou a usar este códio para não deixar repetir o numero de telefone.
Mas como na tabela tem também o campo "telefone_2 e o campo "telefone_3" precisava que também comparasse com estes 2 campos

If (Not IsNull(DLookup("[telefone_1]", "Pacientes", "[telefone_1] ='" & Me!TELEFONE_1 & "'"))) Then
MsgBox "O Nº de Telefone " & TELEFONE_1 & " já existe na Tabela de Pacientes.", vbInformation, "Repetido"
Me.TELEFONE_1.SetFocus
Me.TELEFONE_1 = Null
Exit Sub
End If

Obrigado

O número não pode se repetir apenas no registro atual ou não pode ser repetido em nenhum registro?

Boa tarde Criquio

Em nenhum registo
Obrigado

Talvez funcione mais ou menos assim:

Código:

If Not IsNull(DLookup("Fone1", "Tabela", "Fone1=" & Me.Fone1) Or Not IsNull(DLookup("Fone2", "Tabela", "Fone2=" & Me.Fone1) Or Not IsNull(DLookup("Fone3", "Tabela", "Fone3=" & Me.Fone1) Or Me.Fone1 = Me.Fone2 Or Me.Fone1 = Me.Fone3 Then
...

É uma ideia.

Boas Criquio

É uma ideia. ----> Acertada ..

Obrigado e bom fim de semana

Valeu. bom findi

Olá pessoal..
Dei uma olhada nesse tópico e tenho um problema parecido..
Como seria se eu quisesse que a informação pudesse ser repetida apenas 4 vezes no mesmo campo.
Por exemplo:
Uma pessoa treina numa academia no horario das 8 as 9 horas.. O espaço físico só suporta 4 pessoas por horário. Na tabela de cadastro de clientes tenho o campo horário e gostaria que o sistema me avisasse sempre que eu colocasse algum aluno novo no mesmo horário, e que quando já existissem 4 pessoas naquele horário ele me informasse que o horário já estava completo, me impedindo de cadastrar mais de 4 pessoas por horário ..
Na sei se fui claro .. Espero a ajuda de vcs..
Desde já agradeço ...

Augusto, em primeiro lugar, estou propenso a acreditar que seu banco de dados não está com a normalização 100% eficiente. O horário do aluno deveria estar em outra tabela e não na tabela de cadastro.

Um banco de dados relacional deve ter tabelas separadas por assunto. Tabela de cadastro de pessoas, deve conter apenas os dados da pessoa, tais como nome, endereço, telefone, data de nascimento, email. Os dados de contato da pessoa.

Horário de uso deveria estar em uma tabela tipo tabela de horários. Essa tabela conteria o código chave primária para identificar o registro, o id do aluno e a hora de uso, alem de outros campos que porventura se enquadrar.

Quanto à dúvida, seria algo parecido com:

If DCount("*", "NomeDaTabela", "Horario=#" & Me.Horario & "#") >= 4 Then
MsgBox "Horário já completo", vbCritical, "Atenção"
Else
End If

Vc tem razão;..;
Eu me expressei mal..
Tenho aqui sim, a tabela de horários separada...
Gostaria de saber como seria o código que me avisasse quando eu cadastrasse alguem no mesmo horário e que me impedisse de cadastrar quando já existissem 4 pessoas naquele horário ... Vou experimentar o seu exemplo e ver se funciona.. Retornarei com a resposta..
MAis uma vez agradeço ...

Obrigado Criquio
Seu código funcionou perfeitamente ..
Mais uma vez, obrigado pela ajuda..
Grande abraço ...

Grato pelo retorno.