[Resolvido]Nomes de clientes repetidos

Bom dia

Nesse topicode tirar uma duvida, que quando eu cadastrar um cliente e já estiver cadastrado com mesmo nome ele exibisse uma mensagem dizendo que já existe um cadastro com esse nome.

Não entendi o motivo da questão. Pode existir pessoas como mesmo nome e sobrenome. É raro, mas acontece. Eu tenho um primo aqui na cidade aonde moro que encontrou na lista telefônica da cidade, alguem como mesmo nome e sobrenome. Na Internet eu já vi um com mesmo nome e sobrenome do meu tio. Existe alguns nomes que são mais frequentes encontrar iguais, principalmente no Brasil, como por exemplo "João Batista da Silva".

O Criquio tem toda a razão Rogiel. Você já tem o código para isso e faça-o através de um identificador único, como o número fiscal, por exemplo.

Para o caso de se ter esquecido

If (Not IsNull(DLookup("[nomedocampo]", "nometabela", _
"[nomedocampo] ='" & Me!nomedocampo & "'"))) Then
MsgBox "O vvvvvv já está cadastrado no sistema..." & nomedocampo.Text, _
vbInformation, "Exemplo"
Cancel = True 'cancela o evento.
Me!nomedocampo.Undo 'desfaz a digitação.
End If

Tem o objetivo de não cconfundir as pessoas ( sendo que tem varias Maria, varios João).

Por exemplo eu tenho uma lista de clientes e tem varios nomes iguais, por isso que eu quero que ele me avise, ai eu posso evitar confusão.

Utilize então a rotina acima que eu postei à pouco

Como aplico essa função?

No evento antes de actualizar do campo

Só mais duas coisas.

1º
Eu criei um formulario com o campo Nome para abrir o relatorio(abre o relatorio pelo nome do cliente. Como é que faço para que o relatório não abre e avise quando não há dados?

2º
Eu tenho uma consulta que é do Pagamento (onde cadastro a entrada e saldo anterior) ai na consulta eu não quero que apareça o nome Saldo Anterior.

Se não houver dados e não deixar abrir o formulário, como vai inserir depois os dados?

SE não quer que apareça o nome Saldo Anterior, torne o campo visible=False

DE qualquer forma já sei que vai pedir o código, aqui vai:


If Form.RecordsetClone.RecordCount = 0 Then
MsgBox “Não encontrei registos.”, vbExclamation, “Erro!!!”
DoCmd.Close acForm, “NomedoFormulário”
Exit Sub
End If

Ah bom, achei que queria bloquear repetição de nomes, embora essa outra hipótese me tenha passado pela cabeça tambem

Ok, Vieira e Criquio. Muito obrigado.

Bom trabalho Rogiel