VBA Erro 91 With

Programação
#1

Galera,

Me ajuda por favor, estou com muita dificuldade em resolver o erro 91 que diz "A variável do objeto ou a variável do bloco ‘With’ não foi definida.

Já refiz e reanalisei tudo, nada consta.

Segue anexo Arquivo com os banco e excel com VBA

Não esqueça de alterar o caminho do banco.

Teste.zip (40,9 KB)

#2

É melhor você postar o código do problema. assim fica complicado ver aonde é o problema do código.

#3

Dragoon, segue o código onde o sistema apresenta erro:

 strSQL = "INSERT INTO Malote(Juncao, Data_recebimento_Sucursal, Apolice, Sucursal_Detentoda, Empresa_Estipulante, Tipo_de_Processo, Especificar_Outros, Segurado, Dependente, Corretor, Data_Recebimento_Centralizadora, Responsavel_do_Recebimento, Data_da_Analise, Responsavel_da_Analise, Status_do_Processo, Devolvido, Data_Processamento_Devolucao, Descricao_Pendencia, Sucursal, Data_Envio_Matriz, Processo_Arquivado) Values('" & Juncao & "', '" & Data_Recebimento_Sucursal & "', '" & Apolice & "', '" & Sucursal_Detentora & "', '" & Empresa_Estipulante & "','" & Tipo_de_Processo & "', '" & Especificar_Outros & "', " & Segurado & "', '" & Dependente & "', '" & Corretor & "','" & Data_Recebimento_Centralizadora & "', '" & Responsavel_do_Recebimento & "', '" & Data_da_Analise & "', '" & Responsavel_da_Analise & "','" & Status_do_Processo & "', '" & Devolvido & "', '" & Data_Processamento_Devolucao & "', '" & Descricao_Pendencia & "', '" & Sucursal & "', '" & Data_Envio_Matriz & "', '" & Processo_Arquivado & "')"
objCon.Execute strSQL
#4

Ao ir nas subs e dar um F5 no connection e dps dar F5 no Inserir() você vai ver outra mensagem de erro que quem sabe faça mais sentido pra voce…
A instrução INSERT INTO contém o seguinte nome de campo desconhecido: “Tipo_processo”… etc…
De uma recaptulada nisso…

#5

Amigo, encontrei alguns erros e corrigi os nomes entre banco e VBA, mas o erro 91 continua aparecendo

#6

Alguém?

#7

O que voce esta fazendo pode sim dar certo, só tem que ver o seguinte:
a ação do botao incluir só chama o sub incluir() e não inicializa a conexão… ou seja o sub tem q chamar tanto a conexão quanto o encerramento do mesmo… Vi que as variáveis criadas no VBA tem alguns erros bobos, assim como o campo “Outros” não existe no banco do Acess… Enfim, se conseguir arrumar isso ai e postar de novo o código para analizarmos seria mais interessante… Abraço.

1 curtida