MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Caminho para fotos

    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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 17 vez(es)
    tauron
    tauron
    VIP
    VIP

    Respeito às Regras 100%

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

    Caminho para fotos  Empty Re: Caminho para fotos

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

    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1286
    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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1286
    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


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1286
    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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1286
    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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1286
    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.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Edelson Vieira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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 12 vez(es)

      Data/hora atual: 11/8/2020, 02:36