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.

@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.rar

@Midori Obrigado

Bom dia! Tenho a seguinte situação Tenho duas planilhas em uma pasta de trabalho nomeadas como Planilha1 e Planilha2. Gostaria de saber como automatizar uma macro para transferir da planilha1 para a planilha 2 respeitando o seguinte critério: - Se na coluna STATUS tiver a informação "Realizado todas as informações da linha devem ser transferidas para a planilha2. - As informações que foram transferidas para a planilha2 devem ser apagadas da planilha1 - As informações que ficarem na Planilha1 devem ser reorganizadas (apagados os espaços em vazio). - A macro deve ser habilitada com o botão transferir dados. Segue em anexo o modelo de planilha. @Midori @Basole Modelo de planilha teste.rar

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

@Muca Costa Não da mais erro. Muito obrigado Consegui resolver. A formula estava dando erro porque estava usando a expressão vazio do excel (""), sendo que aqui o usando é "É Nulo". E também corrigi algumas expressões porque estavam formuladas de maneira errada. STATUSDODOCUMENTO: SeImed([DATADAREVISAO] É Nulo;"Em elaboração"; SeImed(Agora()>[PROXIMAREVISAO];"Vencido"; SeImed(Agora()>[PROXIMAREVISAO]-30;"Vencendo"; SeImed(Agora()<[PROXIMAREVISAO]+30;"Vigente")))) usei esses links para tentar entender melhor caso alguém queira ver. Link 1 https://forum.scriptbrasil.com.br/topic/178124-resolvido alerta-de-data/ Link 2 https://www.maximoaccess.com/t2412-resolvidointerpretacao-de-expressoes-para-um-seimed Link 3 https://support.microsoft.com/pt-br/office/exemplos-de-critérios-de-consulta-3197228c-8684-4552-ac03-aba746fb29d8 Link 4 https://support.microsoft.com/pt-pt/office/função-somdata-63befdf6-1ffa-4357-9424-61e8c57afc19 Link 5 https://support.microsoft.com/pt-br/office/exemplos-de-expressões-d3901e11-c04e-4649-b40b-8b6ec5aed41f Arquivo em anexo: Status doc.rar

@muca costa fiz assim select tabdocumentos.datadarevisao, tabdocumentos.proximarevisao, iif([datadarevisao]="","em elaboração", iif(date()>[proximarevisao],"vencido", iif(date()>[proximarevisao]<30,"vencendo", iif(date()-[proximarevisao]>30,"vigente")))) as statusdodocumento from tabdocumentos; ou STATUSDODOCUMENTO: SeImed([DATADAREVISAO]="";"Em elaboração"; SeImed(Data()>[PROXIMAREVISAO];"Vencido"; SeImed(Data()>[PROXIMAREVISAO]<30;"Vencendo"; SeImed(Data()-[PROXIMAREVISAO]>30;"Vigente"))))

@Midori Então o código que uso é esse para atualizar a tabela dinamica. Dim pivotTable As pivotTable For Each PLAN In ActiveWorkbook.Sheets For Each pivotTable In PLAN.PivotTables pivotTable.RefreshTable Next Next o que você me repassou foi esse ThisWorkbook.Connections("BancodeDados10") _ .OLEDBConnection.SourceConnectionFile = [A1] ThisWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:= _ ThisWorkbook.Connections("BancodeDados10"), Version:=xlPivotTableVersion12) _ .CreatePivotTable TableDestination:="Plan1!R17C5", TableName:= _ "Tabela dinâmica2", DefaultVersion:=xlPivotTableVersion12 mas ele cria uma nova tabela dinâmica a partir do banco de dados, no entanto, eu não quero que crie um nova tabela eu os quero que atualize a que eu já tenho que é a tabela dinâmica 1 e 2.

@Muca Costa continua dando erro

@Muca Costa Boa tarde! tentei fazer a adaptação para outro projeto mas não sei o que deu errado. Criei um banco de dados no Access e preciso condicionar as colunas a coluna STATUSDODOCUMENTO. Esse mesmo critério consigo elaborar no excel (modelo em anexo), mas no access nao consegui. Tentei seguir a mesma logica do tópico #2 mas não deu certo, pois aparece uma mensagem de error. A minha formula no Excel se verifica as seguintes situações: · Se a DATADAREVISAO for igual a vazio a coluna STATUSDODOCUMENTO deve exibir a mensagem “Em elaboração” · Se hoje for maior que a coluna PROXIMAREVISAO então a coluna STATUSDODOCUMENTO deve exibir a mensagem “Vencido” · Se hoje faltar menos de 30 dias para a PROXIMAREVISAO então a coluna STATUSDODOCUMENTO deve exibir a mensagem “Vencendo” · Se hoje faltar mais de 30 dias para a PROXIMAREVISAO então a coluna STATUSDODOCUMENTO deve exibir a mensagem “Vencendo” FORMULA NO EXCEL =SE([DATADAREVISAO]="";"Em elaboração"; SE(HOJE()>[PROXIMAREVISAO];"Vencido"; SE(HOJE()>=[PROXIMAREVISAO]-30;"Vencendo"; SE(HOJE()-[PROXIMAREVISAO]+30;"Vigente")))) Preciso realizar o mesmo modelo de formula condicional no ACCESS mas não deu certo. Criei a tabela de consulta e criei a seguinte formula mas está dando #Erro. SELECT TabDocumentos.DATADAREVISAO, TabDocumentos.PROXIMAREVISAO, IIf([DATADAREVISAO]="","Em elaboração", IIf(Now()>[PROXIMAREVISAO],"Vencido", IIf(Now()>[PROXIMAREVISAO]-30,"Vencendo", IIf(Now()-[PROXIMAREVISAO]+30,"Vigente")))) AS STATUSDODOCUMENTO FROM TabDocumentos; poderia me ajudar? Desde já agradeço a ajuda e a disponibilidade Segue em anexo o projeto. PROJETO.rar

@Midori vamos supor o seguinte cenário: Tenho um banco de dados em acess em uma pasta (Pasta A) e uma planilha com uma tabela dinâmica conectada ao access em outra pasta (Pasta B). Agora ocorre a seguinte situação: Transferir o banco de dados access da pasta A para a Pasta C. Quando faço isso automáticamente a tabela dinâmica perde o acesso e solicita que eu mostre onde estar o banco de dados quando eu vou atualizar ela. Me dúvida é: como adicionar o caminho do banco de dados em uma célula para a tabela dinâmica se atualize a partir do caminho fornecido por exemplo na célula A1. Para ver essas ações pode utilizar o modelo de planilha que já está anexado aqui nesse post. Desde já agradeço pela ajuda e disponibilidade. Obrigado

@Midori Muito obrigado! Desculpe pela demora do retorno . Deus te abençoe rs

@Basole @Midori @AfonsoMira Estou adicionado alguma explicações aqui para ver se fica mais fácil me ajudar rs, caso possam Basicamente é assim, preciso gera um gráfico na planilha excel a partir de um banco de dados no access, sendo que esse gráfico ao ser gerado deve ficar sempre com o mesmo nome. Atualmente eu faço assim utilizando uma macro. Método por macro. Criando tabela: 1) Inserir 2) Tabela dinâmica 3) usar fonte de dados externa 4) procurar mais 5) Disco C 6) Banco de dados e seleciono o arquivo Acess 7) Seleciono Tabela1 7) Seleciono ok Configurando Tabela dinâmica 1) Em rotulo de linha coloco empresa e em Valores coloco motivo 2) Seleciono o tipo de gráfico de barras 3) Removo linha de grande, mudo a fonte para 10 Segoe UI, removo as bordas e adiciono rótulo. Fechando a planilha Ao fechar a planilha deve salvar. Abrindo novamente a planilha Deve atualizar a tabela dinâmica (esse comando já deixei no evento open). Como eu desejaria que acontece-se: Que ela pega-se o caminho do banco de dados access na célula A1 e fize-se todo o processo, ao invés de fazer as etapas acima, visto que posso mudar meu banco de dados de pasta. Segue em anexo o modelo de planilha e banco de dados. Para a macro funcionar você deve colar a pasta Bancodedados e Planilha dentro do Disco C, fora da pasta Teste. Espero que tenha entendido, não sei se minha explicação ajudou muito, rs. Desde já muito obrigado! teste.rar

@Basole perfeito!!!! Era isso mesmo!!!!

Boa tarde. Estou tentando adpatar um código para que minha combobox se relacionem. O problema é o seguinte: Tenho duas combobox, a primeira se relaciona e recebe os dados da coluna ramal (filtro1) do meu banco de dados access e a segunda se relaciona e recebe os dados da coluna empresa do meu banco do acess. O que eu preciso é que ao aplicar o filtro (ramal) como INTERNO ele só carregue na combobox 2 os dados das empresas que são internas, não traga para a combobox o nome das empresas com ramal externo no filtro2. utilizo esses códigos: 'SUBS PARA PREENCHIMENTO DE COMBOBOX=========================================================================== Sub Ramalcombobox() conectdb 'a palavra Distinct serve para remover os nomes repetidos e order by para colocar em ordem alfabética rs.Open "Select distinct Ramal from TabCadastro order by Ramal", db, 3, 3 Do Until rs.EOF Me.filtro1.AddItem rs!Ramal rs.MoveNext Loop FechaDb End Sub Sub empresacombobox() conectdb 'esse comando deveria permiti carregar os nomes das empresas ao se relaciona com coluna ramal rs.Open "Select distinct Empresa from TabCadastro Where Ramal like '%" & Me.Filtro2.Value & "%' order by Empresa", db, 3, 3 Do Until rs.EOF Me.Filtro2.AddItem rs!Empresa rs.MoveNext Loop FechaDb End Sub Private Sub UserForm_Initialize() Call empresacombobox Call Ramalcombobox End Sub Utilizei como referencia o vídeo do programador excel. No vídeo ele fala sobre esse código no tempo de 21:45. https://www.youtube.com/watch?v=kCHkLzS6n7w @Basole saberia o que foi que fiz de errado? Segue o anexo! Desde já agradeço a ajuda de todos. Projeto.rar

@Basole Perfeito Muito obrigado!!!!!! Deus te abençoe @Basole

@Basole eu tinha tentado assim, mas como meu banco de DADOS no access tem campos que estão vazios ela aparece esse erro porque ele vê que tem campos vazios . Já tinha tentado esse método, mas não consegui Estou colocando nesse exemplo campos vazio, porque na planilha maior existem campos que devem ser preenchidos gradativamente a medida que o banco de dados vai sendo alimentado por fases do projeto.

Caso também alguém possa ajudar agradeço

@Muca Costa obrigado vou tentar adaptar.

@Basole Me tire uma dúvida. Fiz alguma verificações agora e percebi que quando a minha segunda linha não tem informações preenchida, as textbox ficam gravadas com as informações da primeira linha do meu baco de dados. Como poderia resolver isso. Tentei de tudo mas não consegui . Desde já agradeço a ajuda e disponibilidade Segue abaixo a foto do que está acontecendo. Se você observar, caso eu selecione a primeira linha e em seguida a segunda, está conserva os dados da primeira nas textbox. Segue em anexo a planilha e o banco de dados em Access. Projeto.rar

@Muca Costa gostaria que aparece-se na coluna da tabela. Como poderia ser feito? Se poder da uma explicação sou meio leigo, só para eu aprender rs tenho que adaptar para o meu modelo. trabalho com Access no formato mdb (2000-2003). Desde já agradeço a ajuda e disponibilidade

Boa tarde! Tenho a seguinte situação. Criei um banco de dados no Access e preciso condicionar as colunas a coluna Status. Esse mesmo critério consigo elaborar no excel (modelo em anexo), mas no access nao consegui, um dos motivos é que não consigo achar a opcao Calculado no Access e o outro é porque também sou inexperiente no Access. No excel eu elaborei a seguinte situação: Tenho seis colunas. Primeira coluna: NC critica Segunda coluna: QUEMVAIFAZER Terceira coluna: ATEQUANDO Quarta coluna: DESCRICAO Quinta coluna: MOTIVODOCANCELAMENTO Sexta coluna: STATUSDAIMPLEMENTACAO A minha formula se verifica as seguintes situações 1) Se a coluna NC CRITICA a resposta for igual a Não então a coluna Statusdaimplementacao deve ficar vazia 2) Se a coluna MOTIVODOCANCELAMENTO tiver algo descrito então a coluna Statusdaimplementacao deve exibir a palavra cancelado 3) Se a coluna DESCRICAO tiver algo descrito então a coluna Statusdaimplementacao deve exibir a palavra Concluído 4) Se a coluna ATEQUANDO a data for igual ou inferior a hoje + 10 dias, então o Statusdaimplementacao deve exibir a palavra Cronograma comprometido 5) Se a coluna ATEQUANDO a data for igual ou inferior a hoje + 6 dias, então o Statusdaimplementacao deve exibir a palavra Atrasado recuperável 6) Se a coluna QUEMVAIFAZER for igual a Vazio então o Statusdaimplementacao deve exibir a palavra Não iniciado 7) Se a coluna QUEMVAIFAZER for igual estiver preenchida então o Statusdaimplementacao deve exibir a palavra Em execução Formula no excel =SE(CRÍTICA?]]="Não";""; SE(dados3[[#Esta Linha];[CANCELAMENTO DA IMPLEMENTAÇÃO]]<>"";"Cancelado"; SE(dados3[[#Esta Linha];[DESCRIÇÃO DA IMPLEMENTAÇÃO]]<>"";"Concluído"; SE(E([ATEQUANDO]<>"";HOJE()>[ATEQUANDO]+10);"Cronograma comprometido"; SE(E([ATEQUANDO]<>"";HOJE()>dados3[[#Esta Linha];[ATEQUANDO]]+6);"Atrasado recuperável"; SE([QUEMVAIFAZER]<>"";"Em execução";"Não iniciado")))))) Segue em anexo a planilha excel com as formulas e colunas e o banco de dados no access com as colunas. Desde já agradeço a ajuda de todos Projeto teste.rar

@AfonsoMira Estava fazendo um desdobramento para um sistema de notificação por usuário que também faz a soma, mas é um pouco diferente porque ele só soma se respeitar uma condição. Eu uso ele para indicar se o usuário tem alguma notificação direcionada especificamente para ele. No Excel eu fazia assim: label1 = WorksheetFunction.CountIfs([T:T], txtusuario, Sheets("Bancodedados").[BV:BV], "<>") Ou seja Conte a coluna T se o nome for o mesmo da txtusuario e o mesmo da coluna BV e este se for diferente de vazio tentei ver algum código, mas esse realmente não achei No meu caso no Access seria assim se na textbox (txtusuario) tiver o nome Jose e nas colunas Responsavel e Confereresposavel também estiver o nome jose, então ele deve somar e exibe na label1. E ele vai percorrendo as colunas e somando se for igual. Vou deixar um modelo em anexo, não sei se ficou claro, mas desde já agradeço a ajuda Projeto teste.rar @AfonsoMira Obrigado

se importaria em explicar resumidamente o código? Fiquei na duvida do Rs.Fields(0) a que se refere o 0? é a coluna? e se for achei que fosse a 1. Buguei um pouco,rs @AfonsoMira Legal

@AfonsoMira perfeito era isso mesmo! Muito obrigado