MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

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

    avatar
    lucianorbr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/03/2024

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

    Mensagem  lucianorbr Qua 10 Abr 2024, 11:58 pm

    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?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim Qui 11 Abr 2024, 12:17 am

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erros no sistema VBA após atualização para Office 365 Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lucianorbr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/03/2024

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

    Mensagem  lucianorbr Qui 11 Abr 2024, 1:05 am

    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"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim Qui 11 Abr 2024, 1:17 am

    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




    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erros no sistema VBA após atualização para Office 365 Setinf11
    Sistemas e Tecnologia Ltda
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

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

    Mensagem  Avelino Sampaio Qui 11 Abr 2024, 1:22 am

    Olá!

    Eu suspeito que instalaram o 365 de 64 bits e sua versão do 2016 era de 32 bits.  Verifique, pois se for esse o caso vc terá que adaptar sua API's para que funcione na versão de 64 bits.

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3247
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim Qui 11 Abr 2024, 1:29 am

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




    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erros no sistema VBA após atualização para Office 365 Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    lucianorbr
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 07/03/2024

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

    Mensagem  lucianorbr Ter 16 Abr 2024, 7:03 pm

    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.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 21/04/2011

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

    Mensagem  Marcelo David Qua 17 Abr 2024, 7:58 pm

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

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

    Dessa vez, eu marquei.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Erros no sistema VBA após atualização para Office 365 Marcel11

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Qui 23 maio 2024, 6:24 am