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

    Dúvida: exibir mensagem pelo VBA

    Compartilhe

    wagnermarinsjc
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

      Data/hora atual: Sex 09 Dez 2016, 13:23