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


    Caminho para fotos

    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/08/2015

    Caminho para fotos  Empty Caminho para fotos

    Mensagem  Edelson Vieira em 4/5/2019, 21:57

    Boa tarde Pessoal!

    "DEUS SEJA LOUVADO"

    Tenho um cadastro de clientes onde terei que guardar fotos. Criei um campo tipo anexo para guardar as mesmas, porém um colaborador aqui (Crisostomo) alertou para não colocar anexos no banco. Fiz algumas modificações no design do formulário de clientes, porém naõ sei como criar um caminho para inserir as fotos. Preciso que ao clicar no botão Inserir Foto, seja feita uma verificação se a pasta com o nome deste cliente já existe, se não preciso que seja criada uma pasta com o nome do cliente atual no caminho do banco atual e seja aberta a janela do explorer para inserir a mesma. Conto com a ajuda de vocês. Vlw. Segue o arquivo.
    Anexos
    Caminho para fotos  AttachmentEnderecoFranklin3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (166 Kb) Baixado 12 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1090
    Registrado : 07/12/2011

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  tauron em 4/5/2019, 23:40

    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/08/2015

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  Edelson Vieira em 6/5/2019, 15:51

    Bom dia"

    "DEUS SEJA LOUVADO"

    Olhei o link que sugeriram. Como tenho conhecimento limitado em vba, pra mim tá tudo em grego. Se alguém puder ajudar fico grato.
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/01/2018

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  crysostomo em 6/5/2019, 15:58

    No momento estou fora do escritorio , quando chegar e não tiver resolvido eu dou uma olhada no arquivo


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/01/2018

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  crysostomo em 7/5/2019, 13:57

    Esse sistema guarda a foto já gravando o  nome da pessoa, se quiser colocar a pasta em outro lugar, (recomento colocar no disco) você altera o caminho da Foto2 no vba.
    Abçs
    Anexos
    Caminho para fotos  AttachmentSistema guarda fotos.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (114 Kb) Baixado 22 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/08/2015

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  Edelson Vieira em 8/5/2019, 15:07

    Bom dia Crysostomo!

    "DEUS SEJA LOUVADO"

    Obrigado por compartilhar seu conhecimento. Meu OS é 64 bits e por isso o código não funcionou, se tiver outra forma de resolver poste por favor. Vlw
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/01/2018

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  crysostomo em 8/5/2019, 16:51

    influentemente tem isso, o 64bits tinha que declario
    O que ele está pedindo? se for prsafe coloque a declaração da olhadinha
    https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee691831(v=office.14)
    depois você volta pra pra ver se deu certo, e me ajudar , porque ainda estou com 32 bit mas pra frente vou ter problema com isso .


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/08/2015

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  Edelson Vieira em 9/5/2019, 04:03

    Boa noite Crysostomo"

    "DEUS SEJA LOUVADO"

    Dei uma olhada no link que vc sugeriu, mas para mim está em grego. Vlw
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/01/2018

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  crysostomo em 9/5/2019, 04:09

    Voubdar uma olhada nisso por tbm mais a frente vou precisar é te mando o arquivo declarado


    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/08/2015

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  Edelson Vieira em 31/5/2019, 20:59

    Boa tarde Crysostomo!
    "DEUS SEJA LOUVADO"

    Para o código funcionar em 64 bits basta colocar a instrução PtrSafe na frente da palavra Declare. Com isso o programa funciona normalmente, porém seu creio que falta algo no seu código, quando clico em localizar o foco vai para o caminho, porém nada acontece e a foto não é mostrada. Se puder dar uma olhada agradeço.
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/08/2015

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  Edelson Vieira em 30/6/2019, 14:21

    Bom dia"

    Alguém teria uma solução para o problema mencionado? To no aguardo.
    Grato
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/01/2018

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  crysostomo em 30/6/2019, 21:52

    Qual é a mensagem que aparece na tela? para rodar  64 na linha de erro, Antes de Function Coloque PtrSafe. Salve e faça o teste. Ficara assim: PtrSafe Function .....
    se não aparecer mensagem pedindo PtrSafe
    coloque assim:
    Código:
    Option Compare Database
    Option Explicit
    #if Win64 then
      Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
    #else
      Declare Function MyMathFunc Lib "User32" (ByVal N As Long) As Long
    #end if
    #if VBA7 then
      Declare PtrSafe Sub MessageBeep Lib "User32" (ByVal N AS Long)
    #else
      Declare Sub MessageBeep Lib "User32" (ByVal N AS Long)
    #end if




    .................................................................................
    Uma mão ajuda a outra.
    O medo não é morrer, o medo é se alguém está morto dentro de você, assim como o fracassado é aquele que nem tentou
    avatar
    Edelson Vieira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 195
    Registrado : 22/08/2015

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  Edelson Vieira em 1/7/2019, 00:02

    Boa noite!

    "DEUS SEJA LOUVADO"

    Tentei sem sucesso o recomendado. O que desejo é ao cadastrar um cliente o campo endereço das fotos receba o caminho do banco atual + pasta fotos + nome do cliente, ao clicar no botão inserir foto seja aberto o caminho endereço das fotos e na caixa de listagem abaixo seja listado as fotos do cliente e ao clicar na lista a foto seja mostrada no quadro. Segue a BD.

    Grato
    Anexos
    Caminho para fotos  AttachmentEnderecoFoto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (880 Kb) Baixado 2 vez(es)

    Conteúdo patrocinado

    Caminho para fotos  Empty Re: Caminho para fotos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/7/2019, 22:19