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

    [Resolvido] InputBox com encerramento automático

    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido] InputBox com encerramento automático Empty [Resolvido] InputBox com encerramento automático

    Mensagem  brunogor em 17/1/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
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido] InputBox com encerramento automático Empty Re: [Resolvido] InputBox com encerramento automático

    Mensagem  gilberlanio em 18/1/2016, 16:42



    .................................................................................
    Sistemas completos com fonte aberto (Apresentação)

    Vários Exemplos Grátis
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido] InputBox com encerramento automático Empty InputBox com encerramento automático

    Mensagem  brunogor em 18/1/2016, 21:40

    Viva,

    Dei uma olhada no tópico e mais parecido que vi algo mas para Visual Studio:
    https://msdn.microsoft.com/en-us/library/aa979056(v=vs.71).aspx

    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
    [Resolvido] InputBox com encerramento automático AttachmentInputBox_Timer.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (421 Kb) Baixado 11 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido] InputBox com encerramento automático Empty Re: [Resolvido] InputBox com encerramento automático

    Mensagem  DamascenoJr. em 19/4/2020, 20:21

    Bruno, uma inputbox serve para o usuário informar um valor e esse valor informado ser usado no código.

    Na sua ideia, ocorrendo o fechamento automático, e se o usuário não informou nada, como o código deveria proceder sem valor capturado?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido] InputBox com encerramento automático Empty InputBox com encerramento automático

    Mensagem  brunogor em 20/4/2020, 18:42

    Viva,
    O que eu preciso é fechar a "Inputbox" após um tempo e que o valor esteja "Nothing at all".
    Cumprimentos

    Bruno Gordino
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido] InputBox com encerramento automático Empty Re: [Resolvido] InputBox com encerramento automático

    Mensagem  DamascenoJr. em 21/4/2020, 02:48

    Veja este artigo
    usandoaccess.com.br/tutoriais/inputbox-com-entrada-para-senha.asp

    Nele foi usado um formulário para montar uma inputbox personalizada. Sendo assim, bastaria usar no formulário inputbox porsonalizado um timer.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    brunogor
    brunogor
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido] InputBox com encerramento automático Empty InputBox com encerramento automático

    Mensagem  brunogor em 22/4/2020, 18:39

    Viva
    Muito obrigado mais uma vez.
    Até uma próxima
    Cumprimentos

    Bruno Gordino
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido] InputBox com encerramento automático Empty Re: [Resolvido] InputBox com encerramento automático

    Mensagem  DamascenoJr. em 23/4/2020, 05:11

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 11/8/2020, 14:13