MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


    Botão de opção para abrir pop-up

    avatar
    alk_ganso
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 1
    Registrado : 03/02/2014

    Botão de opção para abrir pop-up Empty Botão de opção para abrir pop-up

    Mensagem  alk_ganso 19/2/2015, 12:45

    Tenho duas opções no meu formulário - Sim e Não.
    Queria que ao selecionar a opção sim, abrisse uma janela pop-up.
    Exemplo prático do meu formulário:
    Foi acionado alguma instituição?
    ()sim ()não
    Quando clicado em ()sim, queria que abrisse uma tabela contendo os dados: Qual instituição, Data do acionamento, hora, contato e pessoa contactada.

    Estou tentando montar um banco de dados para facilitar a tabulação de dados sobre incêndios florestais, pensei que esta será a forma mais fácil, porém nem todos podem concordar, mas se alguém tiver alguma forma mais fácil, a ideia será bem vinda.

    Abraços e no aguardo.


    avatar
    Convidado
    Convidado


    Botão de opção para abrir pop-up Empty Re: Botão de opção para abrir pop-up

    Mensagem  Convidado 19/2/2015, 15:07

    Boa tarde,

    Coloque código abaixo no seu botão "Sim" e adapte a sua necessidade.

    Private Sub NomeSeuBotãoSim_Click()
    If MsgBox("Foi acionado alguma instituição?", vbInformation + vbYesNo, "Info") = vbYes Then
    Docmd.openForm "nome do Formulario que quer abrir com os dados"
    Else
    MsgBox "Operação abortada..", vbCritical, "Info"
    End If
    End Sub

    Abraço... Cool

      Data/hora atual: 10/5/2024, 05:26