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


2 participantes

    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem Empty Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    Mensagem  giba_ 19/12/2017, 13:44

    Tenho o seguinte código que executa perfeitamente na mac local quando uso na virtual apresenta o seguinte erro:

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

    rotina:

    Código:
    Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
     (pOpenfilename As OPENFILENAME) As Long

    Public Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     Flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
    End Type
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem Empty Re: Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    Mensagem  Alvaro Teixeira 19/12/2017, 14:01

    Olá Gislei,

    O tema já foi abordado diversas vezes aqui no fórum, veja:
    https://www.maximoaccess.com/t10677-resolvidocodigo-64-bits

    Mas existe mais, veja como fazer uma "Busca":
    https://www.maximoaccess.com/t1115-busca-no-forum-search

    Abraço
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem Empty Re: Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    Mensagem  giba_ 19/12/2017, 15:14

    ok! obrigado
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem Empty Re: Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    Mensagem  Alvaro Teixeira 19/12/2017, 15:54

    Olá Gislei, obrigado pelo retorno.

    Se a dúvida ficou esclarecida, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Abraço
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem Empty Re: Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    Mensagem  giba_ 20/12/2017, 11:01

    bom dia!
    fiquei na duvida quanto como implementar no codigo

    a resposta no forum foi:

    Código:
    #If VBA7 Then

    Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3

    Private Declare PtrSafe Function ShowWindow Lib "user32" ( ByVal hWnd As LongPtr, _
    ByVal nCmdShow As Long ) As Boolean

    #Else

    Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
    Dim dwReturn As Long

    Const SW_HIDE = 0
    Const SW_SHOWNORMAL = 1
    Const SW_SHOWMINIMIZED = 2
    Const SW_SHOWMAXIMIZED = 3

    Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

    End If
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7998
    Registrado : 15/03/2013

    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem Empty Re: Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    Mensagem  Alvaro Teixeira 20/12/2017, 11:43

    Olá Gislei,

    A técnica será a mesma, no entanto é necessário compreender, para poder fazer adaptação do código.
    Veja este tópico:
    https://www.maximoaccess.com/t31759-resolvidowindows-10-access-16

    Na mensagem nº 7 tem um link de um artigo que expilica muito bem.

    Abraço

    Conteúdo patrocinado


    Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem Empty Re: Rotina abrir uma janela do windows e escolher um determinado arquivo não funciona na nuvem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 10:14