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

    [Resolvido]Anexar foto office 2016/2019

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 10/09/2012

    [Resolvido]Anexar foto office 2016/2019 Empty [Resolvido]Anexar foto office 2016/2019

    Mensagem  fabianobilo 26/3/2021, 13:25

    Código:
    Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String
       
       Dim filebox As OPENFILENAME
       Dim result As Long
       With filebox
           .lStructSize = Len(filebox)
           .hwndOwner = lngHwnd
           .hInstance = 0
           .lpstrFilter = strFiltro & vbNullChar & _
               "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
           .nMaxCustomFilter = 0
           .nFilterIndex = 1
           .lpstrFile = Space(256) & vbNullChar
           .nMaxFile = Len(.lpstrFile)
           .lpstrFileTitle = Space(256) & vbNullChar
           .nMaxFileTitle = Len(.lpstrFileTitle)
           .lpstrInitialDir = strPastaInicial & vbNullChar
           .lpstrTitle = strTítulo & vbNullChar
           .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
           .nFileOffset = 0
           .nFileExtension = 0
           .lCustData = 0
           .lpfnHook = 0
       End With

       result = GetOpenFileName(filebox)
       If result <> 0 Then
           Buscar = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
       Else
           Buscar = ""
       End If
    -------------------------------------------------------------
    erro para anexar as fotos


    Código:
    Public Function Buscar(lngHwnd As Long, strTítulo As String, strPastaInicial As String, strFiltro As String) As String
       
       Dim filebox As OPENFILENAME
       Dim result As Long
       With filebox
           .lStructSize = Len(filebox)
           .hwndOwner = lngHwnd
           .hInstance = 0
           .lpstrFilter = strFiltro & vbNullChar & _
               "Todos os Arquivos (*.*)" & vbNullChar & "*.*" & vbNullChar & vbNullChar
           .nMaxCustomFilter = 0
           .nFilterIndex = 1
           .lpstrFile = Space(256) & vbNullChar
           .nMaxFile = Len(.lpstrFile)
           .lpstrFileTitle = Space(256) & vbNullChar
           .nMaxFileTitle = Len(.lpstrFileTitle)
           .lpstrInitialDir = strPastaInicial & vbNullChar
           .lpstrTitle = strTítulo & vbNullChar
           .flags = OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY
           .nFileOffset = 0
           .nFileExtension = 0
           .lCustData = 0
           .lpfnHook = 0
       End With

       result = GetOpenFileName(filebox)
       If result <> 0 Then
           Buscar = Left(filebox.lpstrFile, InStr(filebox.lpstrFile, vbNullChar) - 1)
       Else
           Buscar = ""
       End If

    End Function
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Anexar foto office 2016/2019 Empty Re: [Resolvido]Anexar foto office 2016/2019

    Mensagem  ahteixeira 26/3/2021, 15:26

    Olá Fabiano,

    Deve ser mais claro na dúvida, dando mais detalhes.
    Tentando adivinhar, desconfio que a versão que tem é 64, o melhor será adaptar esta tecnica ao seu projeto:
    https://www.maximoaccess.com/t38582-buscar-diretorio-de-pasta-ou-arquivo-interativamente

    Abraço
    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 10/09/2012

    [Resolvido]Anexar foto office 2016/2019 Empty Anexar foto office 2016/2019

    Mensagem  fabianobilo 26/3/2021, 16:05

    Olá!

    Está ai o projeto.

    Tenho ele na versão 32 mas o cliente tem a versão 64 e tem que adaptar pra 64/2016

    formulário : foto_mapa

    Anexos
    [Resolvido]Anexar foto office 2016/2019 AttachmentFOTOGRAFICO.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 9 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Anexar foto office 2016/2019 Empty Re: [Resolvido]Anexar foto office 2016/2019

    Mensagem  ahteixeira 26/3/2021, 16:56

    Olá,

    Então confirma-se o problema, é só ajustar como referi.
    Se pretende um exemplo mais simples para estudar e ajustar no seu projeto, veja este tópico por exemplo:
    https://www.maximoaccess.com/t9595-resolvidoabrir-uma-pasta-diretorio-escolher-arquivo-a-carregar-para-importacao

    Toca a por a mão na massa.

    Abraço
    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 10/09/2012

    [Resolvido]Anexar foto office 2016/2019 Empty Anexar foto office 2016/2019 Empty Anexar foto office 2016/2019

    Mensagem  fabianobilo 3/4/2021, 18:55

    Resolvido

    Grato
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Anexar foto office 2016/2019 Empty Re: [Resolvido]Anexar foto office 2016/2019

    Mensagem  ahteixeira 4/4/2021, 12:01

    cheers

      Data/hora atual: 23/6/2021, 07:40