[Resolvido]Erros no sistema VBA após atualização para Office 365

Boa tarde, senhores.

Na empresa que trabalho temos sistemas internos todos em VBA, o sistema em questão funciona corretamente quando o office 2016 esta instalado, porém recentemente na empresa foi atualizado para o Office 365, após a atualização o sistema parou de gerar relatórios em xlsx, e os ícones personalizados que possui no sistema sumiram, o local onde ficaria o ícone esta Ok. consigo clicar no campo e o formulário em questão é aberto. Mas queria voltar os ícones para uma melhor visualização.

O que posso fazer para solucionar esse problema?

Olá Luciano,

Seja bem-vindo ao forum.

No sistema que vc se refere, entre no modo estrutura e pressione ALT+F11, selecione o menu "Depurar >> Compilar [Nome_do_sistema]" e verifique se o Access retorna algum erro.

Att,

Alexandre Fim

Boa tarde Alexandre. muito obrigado.

Retorna um erro na função abaixo:

Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _
Optional YPos, Optional HelpFile, Optional Context) As String

Dim lngModHwnd As Long, lngThreadID As Long
lngThreadID = GetCurrentThreadId
lngModHwnd = GetModuleHandle(vbNullString)
hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID)
InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context)
UnhookWindowsHookEx hHook
End Function

Em especifico no "AddressOf NewProc"

Luciano,

Compartilhe uma copia do seu bd para análise e solução do problema.
Desta forma fica mais fácil e rápido de resolver.

Valeu

Att.

Alexandre Fim

Também suspeite, caro Avelino!
A mensagem o Luciano informou é um erro na função, que pode ser do atributo PtrSafe nas API's.

Bom dia, senhores obrigado pela ajuda. Resolvi o problema criando a seguinte função:

With Application.FileDialog(msoFileDialogSaveAs)
.AllowMultiSelect = False
.title = "Salvar Relatório"
.InitialFileName = varNomeArquivo
.Show
varCaminho = .SelectedItems(1)
End With

Aí depois você dá o "Workbook.SaveAs varCaminho" pra salvar o relatório

Após isso a extração de relatórios esta OK.

Bom dia, se resolveu, marque como resolvido.
Veja como:



Dessa vez, eu marquei.