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]Alterar imagem de acordo com o campo selecionado na caixa de listagem

    avatar
    Kavaleirus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/10/2017

    [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem Empty [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem

    Mensagem  Kavaleirus em 31/3/2020, 02:15

    Boa noite Pessoal!

    Alguem poderia me ajudar na seguinte situacao?

    Gostaria de alterar a imagem de acordo que eu vou clicando na caixa de listagem, como podem ver na imagem abaixo:

    [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem Desenh10

    Obs.:nome dos campo sao: Codigo e Descricao
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem Empty Re: [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem

    Mensagem  ahteixeira em 2/5/2020, 12:06

    Olá Leonardo,

    Que bom que resolveu, pode partilhar a solução?
    O fórum agradece.

    Abraço
    avatar
    Kavaleirus
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 22/10/2017

    [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem Empty Re: [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem

    Mensagem  Kavaleirus em 5/5/2020, 16:47

    Na opção ao clicar:

    Código:
           txt_Filtro = Lista_Codigo.Column(1)
           txt_Revisao = Lista_Codigo.Column(3)
           txt_Caminho = Me.Caminho_Desenho.Value & Me.txt_Filtro & "-R" & Me.txt_Revisao & ".jpg"

           If Len(Dir(Me.txt_Caminho.Value, vbArchive)) > 0 Then
               Me.img_Desenho.Picture = Me.txt_Caminho.Value
           Else
               Me.img_Desenho.Picture = CurrentProject.Path & "\IMAGEM DE FUNDO\" & "noimage.jpg"
           End If
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem Empty Re: [Resolvido]Alterar imagem de acordo com o campo selecionado na caixa de listagem

    Mensagem  ahteixeira em 5/5/2020, 19:58

    Olá Leonardo,

    Obrigado, o fórum agradece.

    Abraço

      Data/hora atual: 21/9/2020, 05:08