[Resolvido]Sistema para confirmação de um dado!

Boa tarde a todos!
Estarei a construir uma base de dados para uma empresa de vendas e existe um campo que gostaria de por num formulário para poder saber se o cliente já esta registado ou nao nessa base de dados, ou seja, nos iriamos pedir o umero de contribuinte ao cliente, ponha-mos numa celula e ao fazer ok ele informava-nos se existia ou nao esse cliente.

Como devo fazer? É do genero de verificação de login, não é?
Obgrigado

Tente assim no evento "Ao atualizar" do campo ou "Ao clicar" de um botão:

If Not IsNull(DLookup("NrContribuinte", "NomeTabela", "NrContribuinte=" & Me!txtNrContribuinte)) Then
MsgBox "Número já cadastrado em nome de " & DLookup("NomeContribuinte", "NomeTabela", "NrContribuinte=" & Me!txtNrContribuinte)

Eu pus assim, o que achas? Pelo menos para já parece estar a dar certo, achas que pode dar erro futuramente?

Private Sub CmdAnalisar_Click()
Dim Identificacao As Integer

If Me.txtNif.Value = DLookup("[Contribuinte]", "[Clientes]") Then
MsgBox "Cliente existe na Base de Dados", vbInformation + vbOKOnly, "Erro"

Else
MsgBox "Cliente não existe!", vbInformation + vbOKOnly, "Erro"
Me.txtNif.Value = ""
Exit Sub
End If
End Sub

O meu realmente não está prefeito :S
Nao sei porque mas ele só valida o primeiro campo, que por sua vez é o meu numero de contribuinte.
Já pus mais uns quantos para experimentar e ele diz que nao existem....

Em relaçao ao teu Criquio, está a dar-me erro, em toda a formula.

Eu tenho-a assim:
Private Sub txtAnalisar_LostFocus()
If Not IsNull(DLookup("Contribuinte", "Clientes", "Contribuinte=" & Me!txtAnalisar)) Then
MsgBox "Número já cadastrado em nome de " & DLookup("NomeContribuinte", "Clientes", "NrContribuinte=" & Me!txtAnalizar)
End Sub

Private Sub txtAnalisar_LostFocus()
If Not IsNull(DLookup("Contribuinte", "Clientes", "Contribuinte=" & Me!txtAnalisar)) Then
MsgBox "Número já cadastrado em nome de " & DLookup("NomeContribuinte", "Clientes", "NrContribuinte=" & Me!txtAnalizar)
End Sub

Há aí uma diferença entre os nomes de campos. Está assim mesmo? Não estará aí o erro?
Estou supondo que NrContribuinte seja a chave primária da tabela. Uma vez que esse número deve ser único para cada contribuinte, ele pode ser a chave primária da tabela.

Na realidade até existem duas diferenças que reparei depois, mas quando testei estava tudo bem.

Private Sub txtAnalisar_LostFocus()
If Not IsNull(DLookup("Contribuinte", "Clientes", "Contribuinte=" & Me!txtAnalisar)) Then
MsgBox "Número já cadastrado em nome de " & DLookup("NomeContribuinte", "Clientes", "NrContribuinte=" & Me!txtAnalizar)
End Sub

Mas já pus tudo como deve ser e faz o mesmo erro. A minha questão agora é, o Contribuinte tem de ser chave primária?
É que no meu não é....

Private Sub txtAnalisar_LostFocus()
If Not IsNull(DLookup("NrContribuinte", "Clientes", "NrContribuinte=" & Me!txtAnalisar)) Then
MsgBox "Número já cadastrado em nome de " & DLookup("NomeContribuinte", "Clientes", "NrContribuinte=" & Me!txtAnalizar)
End Sub

As três partes em vermelho precisam ser iguais, pois você vai analisar o campo NrContribuinte na tabela e ver se NrContribuinte na tabela é igual a NrContribuinte do formulário. Se for, Irá exibir a mensagem informando o NomeContrituinte cadastrado na tabela para o campo NrContribuinte da tabela igual ao campo NrContribuinte do formulário.

Olha, o erro que me esta a dar é este "Block if without End if"

É só botar o End If para finalizar a função:

Private Sub txtAnalisar_LostFocus()
If Not IsNull(DLookup("NrContribuinte", "Clientes", "NrContribuinte=" & Me!txtAnalisar)) Then
MsgBox "Número já cadastrado em nome de " & DLookup("NomeContribuinte", "Clientes", "NrContribuinte=" & Me!txtAnalizar)
End If
End Sub

Sempre que você colocar uma If para condicionar uma tarefa, deverá colocar o End If logo após o término da condição, para que o Access entenda que a condição terminou. Isso vale para toda linguagem de programação.

Em relação ao "END IF" podemos dizer que foi pura estupidez da minha parte :S

agora ele esta a dizer que "Tipo de dados incorrecto na expressão de critérios" e assinala-me a seguinte linha toda:

"If IsNull(DLookup("Contribuinte", "Clientes", "Contribuinte=" & Me!txtAnalisar)) Then"

para facilitar vou por aqui os campos necessarios da tabela:

Clientes(Nome Completo; Contribuinte)

Boas Criquio
Já sabes do que poderá ser o erro?
Eu tenho tentado várias vezes, mas o erro preciste :S
Quando souberes de algo que ajude...

Obrigado

O valor de txtAnalisar é o código do registro? A chave primária? Se for tipo texto, tem que colocar assim:

If IsNull(DLookup("Contribuinte", "Clientes", "Contribuinte='" & Me!txtAnalisar & "'")) Then

O problema era mesmo esse, como não estava em chave primário e sim em formato de texto.
Agora o erro é na outra linha :S
Também tem de ser acrescentado algo?

O sistema diz o seguinte: "Erro de sintaxe (operador em falta) na expressão de consulta 'Nome Completo'."

MsgBox "Número já cadastrado em nome de " & DLookup("Nome Completo", "Clientes", "Contribuinte=" & Me!txtAnalisar)

Uma vez que o campo é o mesmo txtAnalisar, segue a mesma lógica. Sempre que o campo for do tipo texto, essa será a lógica a ser adotada.

Sim, foi o que pensei e tentei fazer, mas o erro mantinha-se.
Mas como não preciso que me diga o nome em que está registado, fiz de forma mais simples, fazendo apenas a verificação da existência do contribuinte.

Vou deixar aqui como deixei no meu e está a funcionar bem

Private Sub txtAnalisar_LostFocus()

If Not IsNull(DLookup("Contribuinte", "Clientes", "Contribuinte='" & Me!txtAnalisar & "'")) Then
MsgBox "Cliente existe!", vbInformation + vbOKOnly, "Informção:"
Else
MsgBox "Cliente não existe!", vbInformation + vbOKOnly, "Informção:"
Me.txtAnalisar.Value = ""
Exit Sub
End If
End Sub

Mais uma vez Criquio, obrigado pela paciencia!