Tela de pesquisa não abre

[Amigo legal]

Olá pessoal,

Quando clico em "Pesquisar" na tela de cadastro, dá o seguinte erro:

"Erro em tempo de execução 3706:
Provedor não encontrado. É possível que ele não esteja instalado corretamente."

Quando eu clico em depurar, aparece o código grifado de amarelo:

Private Sub btnPesquisar_Click()
frmPesquisa.Show
End Sub

Como corrijo isso?

Abraços!!!

[Mauro Coutinho]

Primeiro, verifique se seu formulário de pesquisa está com este nome "frmPesquisa", se sim, utilize o recursso "Passo a Passo", para continuar a rotina até encontrar em qual linha especifica está ocorrendo o Erro.

Para seguir a rotina Passo a Passo, após clicar em Depurar e ficar ressaltada a linha que indicou, vá pressionando a Tecla "F8", e a rotina continuará linha por linha até exibirr o erro e retornar ao inicio.

abraços

[Amigo legal]

Olá Mauro Coutinho,

Fiz exatamente como você explicou e a última linha que percorreu foi:

.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"
.Open

Depois que chega em .Open, aparece a mensagem: "Provedor não encontrado. É possível que ele não esteja instalado corretamente". Quando clico em depurar, retorna até o início, em "frmPesquisa".

O que faço para resolver aqui?

Abraços!!!

[Mauro Coutinho]

Qual a versão do excel que está executando ?

Se for a 2007, veja no Tópico abaixo onde postei a solução para utilizar nesta veresão:

Modelo Cadastro V3 - Com LISTVIEW - Excel 2007
viewtopic.php?f=16&t=1471

A duvida que originou a minha postagem acima veio deste Tópico :
CONEXÃO ADO - OLEDB PARA EXCEL 2007
viewtopic.php?f=5&t=721

Se não for isto, anexe o seu modelo para analisar.

[]s

[Amigo legal]

Mauro,

A versão do excel que uso é 2003.

Segue o modelo anexo que está dando erro aqui.

Analise ai e me dê um retorno.

[REMOVIDO]


Abraços!!!

[Mauro Coutinho]

Com o anexo fica mais fácil, o erro está porque na rotina:

Private Sub PopulaCidades()
Você colocou a instrução:
.Provider = "Microsoft.JET.OLEDB.8.0"

e o correto é :
.Provider = "Microsoft.JET.OLEDB.4.0"

Se olhar nas outras rotinas é utilizada esta referencia, é só altera-la e não terá o erro.

[]s

[Amigo legal]

Mauro,

Eu mudei para .Provider = "Microsoft.JET.OLEDB.4.0", e mesmo assim continuou dando o mesmo erro ao clicar no botão "Pesquisar". Continua começando em frmPesquisa.Show.

Abraços!!!

[Mauro Coutinho]

Amigo, aqui no serviço não temos acesso ao 4shared e seu exemplo eu havia baixado em casa e funcionou corretamente com a alteração que indiquei.

Estou anexando um modelo que eu estava adaptando no inicio quando o Tomas estava mudando para a V3 mas com os dados no mesmo arquivo e não separados, este funciona corretamente, baixe e veja se continua a dar erro.

ModCad_Mauro.rar

(48.27 KiB) Baixado 641 vezes

[]s

[Amigo legal]

Olá,

Baixei esse exemplo enviado por você, mas continua dando o mesmo erro aqui. Então levei esse mesmo exemplo em outro computador e funcionou perfeitamente.

Portanto creio que o problema está no meu computador. Será que está faltando algum componente que não está instalado?

Abraços!

[Mauro Coutinho]

Amigo, de fato acredito que tenha de instalar a referencia ao projeto, já tivemos alguns tópicos aqui no forum sobre ester erro e acabei me esquecendo por ter considerado só a questão do Provider estar em outra versão.

Então, faça o seguinte, abra o arquivo no PC que da o erro, vá no :
Editor do VBA para Habilitar a Referencia do VbaProject :

faça o seguinte, abra o editor do VBA, e no Menu / Ferramenta / Referências e na tela que abre procure na lista por : Microsoft ActiveX Data Objects 2,5 Library, habilite a mesma de OK, e pronto.


Faça os teste e retorne.

[]s