MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [RESOLVIDO] Erro ao abrir Access 2003 em Win 7 64 bits

    Compartilhe

    Mordomo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 09/06/2016

    [RESOLVIDO] Erro ao abrir Access 2003 em Win 7 64 bits

    Mensagem  Mordomo em Qui 09 Jun 2016, 19:26

    Boa tarde,

    Tenho um pequeno sistema desenvolvido em access 2003. Troquei de PC e hoje uso Windows 7 64 bits. Agora não consigo abrir o sistema, pois dá erro no editor VBA.

    A mensagem de erro aparece nesta linha:

    Declare Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
       Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

    Declare Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
       Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

    Declare Function CommDlgExtendedError Lib "comdlg32.dll" () As Long



    A mensagem de erro é essa:

    Erro de compilação:

    O código desse projeto deve ser atualizado para uso em sistemas de 64 bits. Analise e atualize as instruções Declare e, em seguida, marque-as com o atributo PtrSafe.


    Aguardo ajuda de vocês!


    Última edição por Mordomo em Sex 10 Jun 2016, 19:56, editado 1 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2314
    Registrado : 14/08/2013

    Re: [RESOLVIDO] Erro ao abrir Access 2003 em Win 7 64 bits

    Mensagem  FabioPaes em Qui 09 Jun 2016, 21:10

    Veja se assim resolve:


    Declare PtrSafe Function aht_apiGetOpenFileName Lib "comdlg32.dll" _
      Alias "GetOpenFileNameA" (OFN As tagOPENFILENAME) As Boolean

    Declare PtrSafe  Function aht_apiGetSaveFileName Lib "comdlg32.dll" _
      Alias "GetSaveFileNameA" (OFN As tagOPENFILENAME) As Boolean

    Declare PtrSafe Function CommDlgExtendedError Lib "comdlg32.dll" () As Long



    Para se aprofundar mais no Assunto veja:
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Mordomo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 09/06/2016

    Re: [RESOLVIDO] Erro ao abrir Access 2003 em Win 7 64 bits

    Mensagem  Mordomo em Qui 09 Jun 2016, 21:36

    Deu certo.

    Obrigado!

      Data/hora atual: Ter 06 Dez 2016, 05:43