MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Mylton
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 479
    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: Qui 08 Dez 2016, 00:06