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

    [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Compartilhe
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 23/08/2010

    [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Mensagem  Mylton em Sex 08 Jul 2016, 22:49

    Boa noite
    Quando escolhemos uma opção sim/não esta guarda um valor.
    Gostaria que ao invés de guardar esse valor, que registrasse um texto no seu respectivo campo da tabela.
    No exemplo...
    Temos check box1, 2 e 3, com edema, calor e deformidade.
    Gostaria que quando escolhesse a check box 1 registrasse com/sem edema.
    Gostaria que quando escolhesse a Temos check 2 registrasse Temos check box1, 2 com/sem calor.
    Gostaria que quando escolhesse a Temos check box 3 registrasse com/sem deformidade.

    Como implemento essa rotina?
    Obrigado
    Anexos
    Selecao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (177 Kb) Baixado 4 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3151
    Registrado : 14/08/2013

    Re: [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Mensagem  FabioPaes em Sab 09 Jul 2016, 15:07

    Foi o que me veio a Cabeça amigo, provavelmente ha outras formas...
    Anexos
    Selecao.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (27 Kb) Baixado 5 vez(es)


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 23/08/2010

    Re: [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Mensagem  Mylton em Sab 09 Jul 2016, 15:40

    Perfeito.
    Só um detalhe... perfumaria...apresentação...rsrs..
    Coloquei 2 figuras para cada opção.
    Quando "clico" na opção escolhe-se uma delas.
    Navegando vai ver.
    Agora ... teria alguma forma de clicar nas figuras e escolher como se tivesse clicado na opção?
    Anexos
    SelecaoTeste2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 2 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3151
    Registrado : 14/08/2013

    Re: [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Mensagem  FabioPaes em Sab 09 Jul 2016, 16:12

    Rerererereree, e pq não falou antes heim???? Seu tópico mudou completamente!


    Da forma como quer, não ha mais a necessidade de ter uma Opção de Seleção! bastando apenas as Duas Imagens (da forma como esta) e do lado delas a Descrição. E Ao clicar em cada uma ele altera os campos, assim:


    Na Imagem de OK: Ao clicar coloque:

    Private Sub ImagemS2_Click()
    Me.teste2 = "Com Calor"
    Me.ImagemS2.Visible = False
    Me.ImagemN2.Visible = True

    End Sub


    Na imagem de X coloque:

    Private Sub ImagemN2_Click()
    Me.teste2 = "Sem Calor"
    Me.ImagemS2.Visible = True
    Me.ImagemN2.Visible = False

    End Sub


    Assim, se clicar no OK, ele Atualiza o Campo para Com Calor, Oculta a imagems2 e exibe a ImagemN2.

    Ao clicar na ImagemN2, ele Atualiza o Campo para Sem Calor, Oculta a ImagemN2 e Exibe a ImagemS2.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 23/08/2010

    Re: [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Mensagem  Mylton em Sab 09 Jul 2016, 16:33

    Adaptei e rodou.
    Só não entendi o porque quando navegamos nas opções anteriores não vemos o escolhido na imagem.
    Anexos
    SelecaoTeste3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 3 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3151
    Registrado : 14/08/2013

    Re: [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Mensagem  FabioPaes em Sab 09 Jul 2016, 18:17

    Isso pq vc nao colocou a condição para as imagens no Evento no Atual do seu Formulario....


    No Evento No atual do Seu Formulario, coloque:

    Private Sub Form_Current()

    If Me.teste1 = "Com edema" Then
    Me.ImagemS1.Visible = False
    Me.ImagemN1.Visible = True
    Else
    Me.ImagemS1.Visible = True
    Me.ImagemN1.Visible = False
    End If


    If Me.teste2 = "Com Calor" Then
    Me.ImagemS2.Visible = False
    Me.ImagemN2.Visible = True
    Else
    Me.ImagemS2.Visible = True
    Me.ImagemN2.Visible = False
    End If

    If Me.teste3 = "Sem deformidade" Then
    Me.ImagemS3.Visible = False
    Me.ImagemN3.Visible = True
    Else
    Me.ImagemS3.Visible = True
    Me.ImagemN3.Visible = False
    End If

    End Sub

    Assim ao navegar ele oculta o que nao deve ser visto.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 482
    Registrado : 23/08/2010

    Re: [Resolvido]Trocar o valor da escolha da caixa de seleção por texto na tabela

    Mensagem  Mylton em Sab 09 Jul 2016, 18:23

    Show.
    Valeu.
    Gde abs

      Data/hora atual: Seg 26 Jun 2017, 21:50