Código VBA: Verificar se o Código Cliente existe e Verificar se o CNPJ/CPF existe

Boa Tarde

Estou tentando fazer uma Consulta na tabela, mas não estou conseguindo.

Tenho um formulário de Cadastro de Clientes e gostaria que ao sair do campo Documento1 ele verificasse se o campo CodCli se já esta cadastrado na Tabela, se ele tiver na tabela ele passa para o campo NomeCliente e se ele não tiver ele verifique se o campo Documento1 ja existe.

Código:


Private Sub Documento1_Exit(Cancel As Integer)
If DCount("CodCli", "tbl_CadClientes", "CodCli =" & Me.CodCli & "") >= 1 Then
Exit Sub
Else

If DCount("Documento1", "tbl_CadClientes", "Documento1 ='" & Me.Documento1 & "'") >= 1 Then
MsgBox ("Cliente Já Cadastrado!"), vbInformation, "Aviso"
Call CarregaRegistro
Me.Documento1.SetFocus
Else
Me.DataCadastro = Date
Exit Sub
End If

End If
End Sub


Com o código acima aparece o seguinte erro:
"Erro na sintaxe ( Operador faltando ) na expressão de consulta 'CodCli='.

Coloco o operador ' :

Código:


Private Sub Documento1_Exit(Cancel As Integer)
If DCount("CodCli", "tbl_CadClientes", "CodCli ='" & Me.CodCli & "'") >= 1 Then

...
End Sub


Com o código acima aparece o seguinte erro:
Tipo de dados incompatível na expressão de critério.


Alguém pode me ajudar?

Tente assim:

If DCount("*", "tbl_CadClientes", "CodCli =" & Nz(Me!CodCli)) >= 1 Then

Amigo poste seu bd. Fiquei muito confuso com sua explicacao. KKK

Boa Tarde

Cláudio Más obrigado pela atenção. Fiz como você postou mas continua com o erro:
"Erro na sintaxe ( Operador faltando ) na expressão de consulta 'CodCli='.

Segue o Banco de dados.

If DCount("*", "tbl_CadClientes", "CodCli =" & Nz(Me!CodCli,0)) >= 1 Then

Claudio, o campo "codCli" eh numeracao automatica.

Tente assim para um teste:

Primeiramente, retire os marcadores do campo que constam na tabela (ponto, barra, traço) deixando um numero do tipo 00000000000 ou 00000000000000

Private Sub Documento1_Exit(Cancel As Integer)
If DCount("Documento1", "tbl_CadClientes", "Documento1 ='" & Me.Documento1 & "'") >0 Then
MsgBox ("Cliente Já Cadastrado!"), vbInformation, "Aviso"
Call CarregaRegistro
Exit Sub
End If
End Sub

ou

Private Sub Documento1_BeforeUpdate(Cancel As Integer)
If DCount("Documento1", "tbl_CadClientes", "Documento1 ='" & Me.Documento1 & "'") >0 Then
MsgBox ("Cliente Já Cadastrado!"), vbInformation, "Aviso"
Call CarregaRegistro
Exit Sub
End If
End Sub

tauron, eu não tinha percebido que "codCli" é numeração automática.

Mesmo assim, funcionou com a alteração da minha mensagem anterior, acho que é indiferente se mantiver o código original.

Me perdoe se eu estiver equivocado mas, não vejo sentindo em procurar por um codigo que eh automatico e que nao podera se repetir. No caso de cpf ou cnpj, ai sim por um erro na digitacao podemos inserir o "documento" de outro cliente.

me perdoe mas minha visao.

Tauron

Tive problemas com homônimo quando fiz um sistema para um proprietário de 3 lojas.

Pensando nisso e sabendo que sempre haverá erros de digitação, cheguei ao seguinte.

Mesmo tendo o idCliente como autonumerção e chave primária, usarei sempre o CPF.

Por ser único a nível de Brasil e como objeto de pesquisa.

Por que?

Porque ao pedir um documento com o número do CPF teremos o nome do cliente,

reduzindo assim os erros de digitação.

-------------------------
Quanto a teu código:

Se eu digitar:

DCount("*", "tbl_CadClientes", "[CodCli] =  CodCli")

O código não dará erro e ira retornar 5 registros.

Isso porque não tem nenhum dado no formulário para fazer a comparação, então retornará todos.

Esse método  geralmente é usando para quando for adicionar novos registros.

Dito isso, acredito que deve saber o que fazer, pois vendo tuas mensagens, já sabe

ser virar  

Procure saber mais sobre formulário desacoplados.

Não preciso dizer, qualquer coisa, "tamos aí"

[ ]'s

tauron, você está certo.
Acontece que a minha correção apenas elimina o erro, mas a condição verdadeira do If nunca é executada, caindo sempre no segundo If que é a pesquisa pelo documento.
Por isso acaba funcionando, mas é melhor mesmo rever o código conforme a sua sugestão, ou a do Noobezinho.

Grande Noobezinho, concordo plenamente, por isso no codigo que postei o campo "documento1" é verificado, ou seja, o campo onde o usuario devera digitar o cpf ou cnpj conforme o modelo do nosso amigo.