Excel Erro de automação - Excel

[josequali]

Boa noite! Atualmente venho tentando identificar incansavelmente o motivo desse erro de automação, mas não consigo encontrar uma solução. Ele sempre aparece depois que eu realizo um cadastro no sistema de algum produto, saio e tento logar novamente. O código que dar erro, que possui ligação acredito que seja esse, pois quando eu desativo ele o erro desaparece.

DocPainel.txtusuario.Value = Sheets("Acesso atual").Range("A2").Value

Esse código serve para trazer o nome de uma célula para minha textbox, normalmente eu coloco ela no evento initialize.

 

Eu verifiquei também as bibliotecas, e elas estão todas ok.

 

 

Eu utilizo o banco de dados em Acess para cadastrar os meus dados da planilha, mas o nome do usuário é puxado da planilha Excel.

 

@Midori @Basole

[Basole]

@josequali eu não consegui detectar nenhuma anomalia, somente com esses dados.

O ideal é se puder disponibilizar os arquivos para uma análise mais apurada.]

 

 

[josequali]

@Basole @Midori Eu encontrei o erro, mas não sei como corrigir, basicamente acontece a seguinte situação.

 

Primeiro: Ao abrir meu sistema eu realizo um cadastro, por exemplo, de um TESTE no meu banco de dados em Acess usando a planilha Excel.

Segundo: Depois eu fecho o painel de cadastro e clico em atualizar a tabela dinâmica para que os gráficos sejam atualizados.

Terceiro: Depois que eu atualizo a tabela dinâmica e tento inserir um novo cadastro ou excluir cadastro aparece o seguinte erro:

IMAGEM 1

 

 

Encontrei esse site, mas não conseguir ajustar a modificação para evitar o erro.

https://docs.microsoft.com/pt-br/office/troubleshoot/access/cannot-add-delete-records-ado

 

Estarei enviando em ANEXO a planilha junto com o banco de dados em Acess.

 

Para você conseguir se conectar ao banco de dados é necessário inserir o caminho do banco na planilha na guia de configurações já que será acessado em outro pc.

Já a tabela dinâmica tem que atualizar a conexão

 

 

 

Projeto teste.rarBuscando informações...

[Basole]

@josequali não consegui testar pois aqui pra mim não apresentou o erro descrito.

 

De qq. forma experimente alterar o parametro =>  adOpenKeyset, ou seja para 1 

ficando 1,3 

 

rs.Open "Select * From TabTeste Where Codigo=" & CodRegistro, db, adOpenKeyset, adLockOptimistic

 

[josequali]

@Basole @Basole @Basole @Basole o erro ainda continua.

 

Você cadastrou algum registro Usando o painel, depois atualizou a tabela dinâmica e após tentou cadastrar novamente? Porque o erro só acontece se fizer isso.

 

Aparentemente eu perco a conexão com o Acess ou fico de alguma forma bloqueado.

 

Quando eu clico na opção DEPURAR para ver o ERRO, ele marca o AddNew no cadastro e marca o RS.delete quando tento excluir os dados.

 

Esses dois sites falam algumas coisas sobre não precisar do recordSet e sobre a conexão

 

https://forum.imasters.com.br/topic/163812-erro-de-suporte-para-atualização/

 

https://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=218237

 

Desde já agradeço pela ajuda.

[josequali]

@AfonsoMira  @Midori saberiam algo a respeito do tópico #3 Desde já agradeço a todos Obrigado

[josequali]

Acredito que ao realizar a atualização a tabela dinâmica cria e mantém um vinculo que de alguma forma impede uma outra conexão via VBA

[Basole]

  Em 05/02/2022 às 03:20, josequali disse:

@Basole @Basole @Basole @Basole o erro ainda continua.

 

Você cadastrou algum registro Usando o painel, depois atualizou a tabela dinâmica e após tentou cadastrar novamente? Porque o erro só acontece se fizer isso.

Expandir  

@josequali fiz como voce citou e verifiquei que quando executa a rotina tabeladinamica() Banco de dados.mdb fica aberto no modo somente leitura, desta forma gerando erros ao acessar.

 

Modifiquei a rotina tabeladinamica e o erro desapareceu:

 

Sub Nova_TabelaDinamica()
Dim pivot As pivotTable

For Each PLAN In ActiveWorkbook.Sheets
  For Each pivotTable In PLAN.PivotTables

conectdb

rs.Open "SELECT * FROM TabTeste", db, adOpenStatic, adLockReadOnly

With pivotTable.PivotCache
    Set .Recordset = rs
    .Refresh
End With

Set rs = Nothing

db.Close

Set rs = Nothing
Set db = Nothing
Next
Next
End Sub

 

Faça os teste e de retorno por favor. 

 

[josequali]

@Basole Funcionou Não da mais não erro. Entretanto, como o meu projeto tem mais de uma Tabela no Acess, quando eu aplico a macro para atualizar a tabela dinâmica que tem vínculo com a TabTeste ela simplesmente limpa todos os outros filtros de outras tabelas dinâmicas do excel que não tem vínculo com a TabTeste . Exemplo as TabEmpresas, TabNaoconformidades do Acess possuem tabela dinâmica no Excel tem suas tabelas dinâmicas no Excel, mas ao aplicar a macro elas ficam limpas os filtros, ficando só a TabTeste atualizada . Como eu poderia resolver? Desde já, muito obrigado

[Basole]

@josequali experimente aplicar a atualização somente para uma tabela expecifica, no caso a Tabela dinâmica 1.

 

Sub Nova_TabelaDinamica()

conectdb

rs.Open "SELECT * FROM TabTeste", db, adOpenStatic, adLockReadOnly

    With Sheets("Inicio").PivotTables("Tabela dinâmica1").PivotCache
        Set .Recordset = rs
        .Refresh
    End With

Set rs = Nothing

db.Close

Set db = Nothing

End Sub

 

[Midori]

@josequali Esse erro acontece porque não está fechando o banco de dados após atualizar. Se abrir o arquivo do Access após uma atualização, verá que está Read-Only e por isso não vai conseguir inserir mais nenhum registro enquanto estiver assim. Reveja as chamadas que fez ao método Close e se atribuiu corretamente Nothing.

[josequali]

@Basole Perfeito! Agora está fechado o banco de dados certinho

@Basole Muito obrigado! Salvou meu projeto