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

    [Resolvido]trocar de foto

    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]trocar de foto Empty [Resolvido]trocar de foto

    Mensagem  crysostomo em 1/10/2019, 02:45

    Meus amigos, boa noite , estou tentando trocar de foto mais não consigo
    o quero é : se a pasta não estiver a foto logo da empresa então o sistema puxa a foto "sem foto" se ela tiver então ela puxar a foto " logo da empresa.
    para não ser manual, mas nãi consigo.

    Código:
    If Right(Application.CurrentProject.Path & "\Fotos\" = null then
         '  Me.imgFundo.Picture = Application.CurrentProject.Path & "\Fotos\" & "sem foto.jpeg"
       Else
           Me.imgFundo.Picture = ("C:\MEURECIBO\Fotos\sem foto.jpg")
           
           End If

    end sub

    ja tentei outras lógicas , mas não consigo


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    [Resolvido]trocar de foto Empty Re: [Resolvido]trocar de foto

    Mensagem  JPaulo em 1/10/2019, 14:11

    Abra o banco com a tecla shift pressionada e veja as instruções no VBA do formulario cadastro;

    https://www.maximoaccess.com/t12925-cadastro-de-dados-de-detentos-com-4-fotos

    Entre muitos outros que existem aqui.




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]trocar de foto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]trocar de foto Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]trocar de foto Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

    [Resolvido]trocar de foto Empty Re: [Resolvido]trocar de foto

    Mensagem  crysostomo em 2/10/2019, 14:53

    obg, Jp, vou mexer como esse.
    Cara,como você faz a transparência do access, sem pedir nenhum modulo


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 29/11/2020, 19:17