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

    Caixa de Seleção

    Compartilhe

    eagle07
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 52
    Registrado : 29/03/2014

    Caixa de Seleção

    Mensagem  eagle07 em Sex 20 Mar 2015, 19:52

    alguem pode me dar um help com esta condição da caixa de seleção, quando eu clico mostra corretamente que é desmamado mas, qdo eu tiro a seleção nao mostra a msg 'nao e desmamado"??? o que esta errado obrigada.

    private Sub Seleção174_Click()
    If edesmamado = False Then 'Isto é, se estiver selecionado
    MsgBox "Sim é Desmamado !!!", vbInformation, "Teste" 'Ou seja, está marcada
    else
    msgBox "Não é Desmamado !!!", vbInformation, "Teste" 'Ou seja, nao está marcada
    End If
    End Sub
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3698
    Registrado : 20/04/2011

    Re: Caixa de Seleção

    Mensagem  Silvio em Sex 20 Mar 2015, 20:02

    Olá... tente assim...

    If edesmamado =-1 then
    MsgBox "Sim é Desmamado !!!", vbInformation, "Teste" 'Ou seja, está marcada
    elseif edesmamado = 0 then
    msgBox "Não é Desmamado !!!", vbInformation, "Teste" 'Ou seja, nao está marcada
    End If
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    eagle07
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 52
    Registrado : 29/03/2014

    Caixa de Seleção

    Mensagem  eagle07 em Sex 20 Mar 2015, 20:12

    Coloquei no evento: ao clicar, ainda nao deu certo????

      Data/hora atual: Qui 14 Dez 2017, 07:59