MaximoAccess

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

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 : 4
    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)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3151
    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 : 4
    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 27 Jun 2017, 11:27