Cadastro no excel 2010 com problema [RESOLVIDO ]

[jcarloslopesn]

Bom dia, estou com problema no formulário de cadastro de fornecedores que peguei neste forum, quando tento pesquisar esá dando erro conforme escrito abaixo, preciso da ajuda pois não estou conseguindo resolver o problema.

Private Sub PopulaListBox(ByVal NomeEmpresa As String, _
ByVal NomeContato As String, _
ByVal Endereco As String, _
ByVal Telefone As String, _
ByVal Cidade As String, _
ByVal Regiao As String)

On Error GoTo TrataErro

Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sql As String
Dim sqlWhere As String
Dim sqlOrderBy As String
Dim i As Integer
Dim campo As Field
Dim myArray() As Variant

Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & ";Extended Properties=Excel 8.0;"
.Open
End With


Atenciososamente.

José Carlos

[Rafael Monteiro]

Carlos,

Só os códigos não ajuda muito na questão de resolver o seu problema. Envie o projeto inteiro para podermos verificar e localizar o problema.

[jcarloslopesn]

Bom dia, segue em anexo a planilha.

JC.

[Rafael Monteiro]

José Carlos,

Fiz algumas alterações nos códigos e agora está funcionando normal o ponto que você tinha mencionado. Se você não quiser mexer na sua planilha original é só exportar os userform que eles irão já com os códigos alterado.

Abs.

[jcarloslopesn]

Bom dia Rafael, exclui os formulários antigos da minha planilha e fiz a importação dos 2 formulários que estão dentro da planilha que você arrumou, mais o problema continuou, não teria algum módulo para ser importado também.

[jcarloslopesn]

Bom dia Rafael, a minha pasta de trabalho tem muita planilha e relatórios para que eu possa copiar todas para dentro da pasta que você arrumou o formulário, eu ainda não consegui resolver o problema do formulário, você poderia me ajudar com este problema.

Atenciosamente.

Jcarloslopesn

[Rafael Monteiro]

José Carlos,

Acredito que o problema está no banco de dados. Vou dar uma outra revisada.

Tente verificar as strings e as planilhas de dados para ver se não tem linhas diferente das strings.

[jcarloslopesn]

Rafael.

Copiei todas as informações do PreecheRecordSet da planilha que voce arrumou e substitui pela que esta no formulário pesquisa mais o erro persiste. Eu não estou conseguindo encontrar o erro.


Atenciosamente.

jcarloslopesn

[Rafael Monteiro]

José Carlos,

Tá muito estranho esse problema, na planilha que eu exportei os dados de sua planilha funcionou bem, mas a original não! O Jeito é apelar para ajuda do Tomás.

Ajuda aí Tomás.

Valeu.

[webmaster]

Pessoas,

Boiei. Tentei seguir o raciocínio, baixei a última versão do arquivo, mas não achei erro. Podem contextualizar?

Abraços