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

    Dúvida: exibir mensagem pelo VBA

    Compartilhe
    avatar
    wagnermarinsjc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 98
    Registrado : 23/03/2013

    Dúvida: exibir mensagem pelo VBA

    Mensagem  wagnermarinsjc em Seg 24 Ago 2015, 12:06

    Bom dia amigos.

    gostaria de tirar umas dúvidas com os companheiros mais uma vez:

    É o seguinte: na minha aplicação, quando seleciono a frequencia ou usuário, exibe 3 mensens
    em sequecia.
    até aí dos as mensagens são exibida. só que:

    Eu queria exibir a mensagem, quando selecionasse "NÃO", ele exibisse a mensagem seguinte.
    quando aperto sim ele segue a proxima, quando não ele para.


    desde já agradeço.

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Código:
    If MsgBox("VOCÊ TROUXE BÍBLIA?!", vbYesNo, "REGISTRAR PONTO") = vbYes Then
    biblia = 1
    If MsgBox("VOCÊ TROUXE REVISTA?!", vbYesNo, "REGISTRAR PONTO") = vbYes Then
    Revista = 1
    If MsgBox("CLICK EM OK OU TECLE ENTER PARA CONFIRMAR!", vbOKCancel, "REGISTRAR PONTO") = vbOK Then
    '(cd,entrada1,nome)


    .................................................................................
    "Não basta ser inteligente; é necessário persistir. Pois os que persistem sempre alcançam a meta final" (autor desconhecido)
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 09/11/2012

    Re: Dúvida: exibir mensagem pelo VBA

    Mensagem  =>Nois em Seg 24 Ago 2015, 15:41

    acho que é isso que precisa

    é só acrescentar mais critérios dentro do senão se (Elseif)

    Código:
    If MsgBox("VOCÊ TROUXE BÍBLIA?!", vbYesNo, "REGISTRAR PONTO") = vbYes Then

        MsgBox "vc apertou sim"

    ElseIf vbNo Then

        MsgBox "vc apertou não"

    End If


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Sab 16 Dez 2017, 20:46