lbcarvalho

Olá, Alyson, Obrigado pela ajuda! Eu gostaria de fazer a operação usando uma consulta, sem usar VBA por enquanto. Abraço, lbcarvalho

Tenho uma tabela que foi importada com erro do Excel para o Acess. O ano da data deveria ser 2018, mas foi importado com 2019. É possível mudar somente o ano de 2019 para 2018 através de uma consulto ou através de outro método sem usar VBA? AS Função Localizar/Substituir não funciona nesse caso. Obrigado! lbcarvalho

Olá, Tenho duas tabelas: 1 - A Tabela A (MODOS DE PAGAMENTO) tem só um campo (MODO DE PAGAMENTO) MODO1, MODO2 E MODO3. 2 - A Tabela B tem vários outros campos, sendo que um deles vem da Tabela A (MODOS DE PAGAMENTO) via assistente de pesquisa e tem um menu suspenso com todas as opções da Tabela A. O problema: quando tento fazer uma consulta colocando um MODO DE PAGAMENTO no respectivo campo aparece a seguinte mensagem de erro: TIPO E DADOS INCOMPATÍVEL NA EXPRESSÃO CRITÉRIO. O que eu estou fazendo de errado? Agradeço qualquer ajuda ou sugestão! Lincoln

Olá, Tenho uma planilha em Excel em que coloquei um botão com uma macro para salvá-la no meu OneDrive da Microsoft. Só que eu também salvo uma cópia no meu computador e, na verdade, a cópia que eu salvo no OneDrive fica como backup. O que eu quero é por um comando no script do VBA do Excel que, depois que eu salvar a planilha no OneDrive, quando eu clicar no ícone de salvamento padrão (o do disquete) a planilha volte a ser salva na pasta (diretório) original. O que acontece agora é: depois que eu salvo no OneDrive, sempre que eu clico no disquete, a planilha é salva no OneDrive de novo. Quer dizer, depois que eu salvo ma vez no OD, o Excel assume o OD como diretório padrão. Acredito que o comando seja alguma coisa parecida com isto: ChDir "\\M01\G\PASTA_01\PASTA_02\" Veja a macro que eu uso: Sub SALV_SKYDRIVE() ' ' SALV_SKYDRIVE Macro ' ' ActiveWorkbook.SaveAs Filename:= _ "https://d.docs.live.net/03c194df12/FATURAMENTO/FATURAMENTO.xlsm", _ FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=True ChDir "\\M01\G\___TRADUÇÃO\FATURAMENTO\" End Sub Agradeço antecipadamente qualquer ajuda!