MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


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.

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

    Caixa de Seleção

    avatar
    eagle07
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Caixa de Seleção Empty Caixa de Seleção

    Mensagem  eagle07 Sex 20 Mar 2015, 3:52 pm

    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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Caixa de Seleção Empty Re: Caixa de Seleção

    Mensagem  Silvio Sex 20 Mar 2015, 4:02 pm

    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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    eagle07
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Caixa de Seleção Empty Caixa de Seleção

    Mensagem  eagle07 Sex 20 Mar 2015, 4:12 pm

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

      Data/hora atual: Sab 06 Mar 2021, 5:49 am