[Resolvido]Melhorias

ESSE E O COMANDO DE BUSCA CEP AUTOMATICO

POREM SE CLICAR NO CAMPO DE BUSCA EM BRANCO ELE DA ERRO

ERRO EM TEMPO DE EXECUCAO 94
USO DE 'NULL' INVALIDO

If ConsultaCEP(Me.txtBusca, "erro") <> "then" Then
Me.txtCep = ConsultaCEP(Me.txtBusca, "cep")
Me.txtLogradouro = ConsultaCEP(Me.txtBusca, "logradouro")
Me.txtComplemento = ConsultaCEP(Me.txtBusca, "complemento")
Me.txtBairro = ConsultaCEP(Me.txtBusca, "bairro")
Me.txtCidade = ConsultaCEP(Me.txtBusca, "localidade")
Me.txtUf = ConsultaCEP(Me.txtBusca, "uf")
Me.txtCodIBge = ConsultaCEP(Me.txtBusca, "ibge")
Me.txtGia = ConsultaCEP(Me.txtBusca, "gia")
Else
MsgBox "Verifique o CEP digitado: " & Me.txtBusca & " Pois o mesmo não foi localizado!!!", vbInformation, "Erro"
End If

Coloque essa linha antes do seu procedimento:

Código:

If Len(Me.txtBusca)<1 Then: Msgbox "Digite um valor no campo de busca", VbExclamation, "Campo em branco": Exit Sub

boa noite amigo
nao resolveu meu o problema
da uma olhada por favor
segue o formulario

Acho que esqueceu de anexar...

Boa tarde
Leia e respeite as regras. Proibido escrever em maiúsculas. Adeqúe o seu texto.

resolvido o problema