[Resolvido]Erro 13 tipos incompatíveis

Boa noite!

Tenho uma txt com validação de cpf/cnpj com máscara de entrada. Ao começar a digitar já aparece a máscara, se o cpf/cnpj estiver correto prossegue, se não, uma msgbox informa que o cpf/cnpj não é válido. Até aqui tudo certo. Ocorre que se o usuário desistir de digitar e apagar o que começou deixando somente a máscara ocorre o erro 13 Tipos incompatíveis. Ao pressionar Esc a máscara é eliminada do campo que fica em branco. Isso resolveria o problema, mas eu gostaria de resolver sem o usuário ter que pressionar Esc. Preciso de algo parecido com:

If é tipo incompatível(cpfCnpj) then

sendkeys "{Esc}"

End if

Ou outra solução.

Brother,

Pode disponibilizar o código ou aplicativo para que possamos analisar melhor!!!!

Abraços

Talvez seja melhor algo assim:

If completou(cpfCnpj) then valida(cpfCnpj)

Claudio
Completou é uma função do vba? Está dando erro Function não definida.

Cleverson
Segue o link. Acesse o formulário de cadastro de cliente ou fornecedor, clique em novo, escolha pessoa fisica ou juridica, comece a digitar o CPF/CNPJ, apague todos os digitos que digitou, pressione enter ou cancelar e observe o erro. Pressionando Esc o problema é resolvido. O que precisso é evitar a mensagem de erro 13 ao pressionar enter ou cancelar.

https://www.dropbox.com/s/n08qjznhiqw1cln/InfoSys%20%282%29.rar?dl=0

Edelson,

"Completou" não é uma função, apenas usei pseudo-código da mesma forma que você fez na primeira mensagem:

If é tipo incompatível(cpfCnpj) then

Eu quis dizer que é melhor verificar se o cpfCnpj foi digitado (completado) antes de testar se é válido, no lugar de verificar se "é tipo incompatível".
Me parece que o erro é causado por tentar validar cpfCnpj em branco.

Claudio!
Se estiver em branco não ocorre erro. O erro só ocorre se o usuário tentar digitar o cpf ou cnpj e apagar tudo que foi digitado, se deixar um dígito que seja não ocorre erro, informa que o cpf/cnpj não é válido. Ao apagar todos os dígitos o campo fica com a máscara e só volta a ficar em branco se for pressionada a tecla Esc. Ao tentar validar, a função compara o código com uma máscara vazia, é aí que ocorre o erro. Como faço para testar se foi digitado completo? Se puder dar uma olhada, disponibilizei o link na mensagem anterior.

boa Tarde amigo Edelson
verifique esta alteração que fiz no seu aplicativo se atende o que precisa abraço Nogaro !

https://goo.gl/BgPjLW

Boa tarde Amigo Nogaro!
Mais uma vez agradeço sua colaboração. A solução apresentada nos remete a mesma solução do Esc, porém seria um clique na txt. Fiz alguns testes aqui e continuo com o mesmo problema. Ao clicar em novo ou editar, digitar alguns números no cpf ou cnpj e apagar todos os números deixando somente a máscara, se eu pressionar enter ou clicar em cancelar ocorre o erro que já mencionei. Faça o teste e me retorne por favor.

olá Edelson acabei de testar aqui e funcionou bem quando for apagar o cpf ou cnpj click no campo como se fosse deletar vaiver que limpa a mascara e você pode mudar para outro campo sem apresentar erro ao clicar no campo é o pulo do gato testa e me retorne

Boa tarde Nogaro!
Se o usuário clicar no campo resolve, é a mesma situação do Esc, porém se o usuário em vez de clicar ou pressionar Esc, pressionar enter ou clicar em cancelar, vai ocorrer o erro. Teste e me fale.

Edelson aqui não apresentou erro não porque se digitar um cpf valido der enter normal se começar a digitar e clicar em cancelar vai aparecer cpf invalido, você clica ok o campo limpa se errar o cpf vai dar invalido ai limpa tambem se não terminar de digitar e teclar enter var dar cpf invalido ai limpa o campo verifica !

Comece a digitar, apague todos os dígitos, vai ficar somente a máscara, pressione enter ou clique em cancelar, vai ver que ocorrerá um erro e te remeterá para o depurador. É exatamente o que eu quero evitar, que o usuário seja remetido para o depurador.

Edelson qual tecla esta usando para apagar qual o procedimento que esta usando aguardo


sim vi o erro vou tentar algo abraço Nogaro

Nogaro!
Estou usando a tecla backSpace após digitar alguns números e depois clicando em cancelar ou enter.! Estou considerando que o usuário pode fazer qualquer coisa.

Abraço!
No aguardo.

Edelson

No modulo basGeral coloque abaixo de:

Public meuForm As String
Global objwc As Object


Na propriedade antes de atualizar da txtcpfCnpj

Private Sub txtcpfCnpj_BeforeUpdate(Cancel As Integer)

If IsNull(Me.txtcpfCnpj) Or Me.txtcpfCnpj = "" Then
  Set objws = CreateObject("wscript.shell")
  objws.SendKeys "{ESC}", True
  Cancel = True
  Exit Sub
End If

If Me.qdrTipoPessoa = 1 Then
       Call DVCPF(Me.txtcpfCnpj)
Else
       Call DVCGC(Me.txtcpfCnpj)
End If
End Sub


O SendKeys() do Access 2007+ tem um bug que faz com
que as vezes não funcione.

Esse dai funfa legal.

[ ]'s

Boa noite Amigo Noobezinho!
Mais uma vez agradeço sua colaboração. Resolveu o problema, não mais ocorre a mensagem de erro, posso pressionar enter, posso pressionar Esc e está resolvido, só não tenho a opção de cancelar, mas acho que nem é necessário. Achei que ficou bem interessante. Se quiserem adicionar ao repositório, sintam-se a vontade.

Agradeço também aos amigos Nogaro, Cláudio e Cleverson pela colaboração. Um grande abraço a todos.

Ótimo Edelson!

Valeu o retorno!

Boa sorte!