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


2 participantes

    [Resolvido]Controle com foco

    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Controle com foco Empty [Resolvido]Controle com foco

    Mensagem  lupe 26/7/2021, 15:18

    Olá!

    Tenho um sub formulário contínuo com uma caixa de texto e um controle de imagem (oculto). Como eu poderia fazer para tornar visível somente a imagem correspondente a caixa de texto que contem o foco, independente da linha?

    Por exemplo, se tem 5 registros no subform e o foco esta na caixa de texto da 3ª linha, como visualizar somente a imagem dessa linha e as outras permanecerem ocultas?


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Controle com foco Empty Re: [Resolvido]Controle com foco

    Mensagem  crysostomo 13/8/2021, 01:11

    Coloque todoas as imagens dentro de uma pasta com os nomes.
    Nos campo coloque  

    Código:
    Private Sub nomeDocampo_GotFocus()
    Dim caminhoDaFoto
    caminhoDaFoto = Dir$("C:\ConsulMed.pp\imagens do sistema\" & Me.nomeDocampo & "*")
    If Len(caminhoDaFoto) > 0 Then
    Me.quadroDaFoto.Picture = "C:\" & caminhoDaFoto
    Else
    MsgBox " A figura não está na pasta"
    End If
    End Sub

    Quando o campo receber foco ele vai buscar a foto

    Obs: Não criei no Access apenas uma ideia.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    lupe gosta desta mensagem

    lupe
    lupe
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 458
    Registrado : 15/07/2010

    [Resolvido]Controle com foco Empty Re: [Resolvido]Controle com foco

    Mensagem  lupe 16/8/2021, 14:34

    Obrigado crysostomo!

    Era o que eu precisava.


    .................................................................................
    Dividir conhecimentos é contribuir para a evolução da humanidade.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Controle com foco Empty Re: [Resolvido]Controle com foco

    Mensagem  crysostomo 16/8/2021, 19:02

    Engraçado que no seu deu certo, o meu parou, tenho que ver isso.
    Crédito a um de nossos amigos @Damasceno que me ajudou quando precisei de reparos.
    Sucesso.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Controle com foco Empty Re: [Resolvido]Controle com foco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 09:17