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

    InputBox com encerramento automático

    Compartilhe

    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 138
    Registrado : 24/02/2013

    InputBox com encerramento automático

    Mensagem  brunogor em Dom 17 Jan 2016, 22:08

    Viva a todos, aqui estou eu com mais uma dúvida este ano.
    O seguinte código é de um exemplo do Sr. Avelino Sampaio e serve para fazer uma Caixa de Mensagem encerrar automáticamente:

    Num Modulo
    Código:
    Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, _
    Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
    Optional Title As String) As VbMsgBoxResult
    Dim wshell As Object
    Set wshell = CreateObject("WScript.Shell")
    MsgBoxTimer = wshell.PopUp(Prompt, Seconds, Title, Buttons)
    End Function


    e depois no Form
    Código:
    MsgBoxTimer 2,"Teste com a caixa de mensagem...", vbOKOnly, "Aviso"


    Como seria para fechar uma "Inputbox" automáticamente, passado um determinado tempo?

    Obrigado

    Bruno Gordino

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

    Re: InputBox com encerramento automático

    Mensagem  gilberlanio em Seg 18 Jan 2016, 16:42

    veja esse tópico
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

    [Você precisa estar registrado e conectado para ver este link.]

    Loja virtual - Gilberlânio Rocha

    brunogor
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 138
    Registrado : 24/02/2013

    InputBox com encerramento automático

    Mensagem  brunogor em Seg 18 Jan 2016, 21:40

    Viva,

    Dei uma olhada no tópico e mais parecido que vi algo mas para Visual Studio:
    [Você precisa estar registrado e conectado para ver este link.]

    Código:
    INPUTBOX(cInputPrompt [, cDialogCaption [, cDefaultValue [, nTimeout [,cTimeoutValue]]]])

    Código:
    Y = "Nothing at all"
    Y = INPUTBOX("TypeHere","Input ",Y,5000)
             && Displays dialog box for 5 seconds,
             && then displays anything typed or "Nothing at all"

    Entretanto deixo aqui o exemplo onde estou a fazer testes.

    Obrigado
    Anexos
    InputBox_Timer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (421 Kb) Baixado 8 vez(es)

      Data/hora atual: Sab 10 Dez 2016, 04:57