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


3 participantes

    [Resolvido]Dúvida Repositório Msgbox com tempo

    Hazael
    Hazael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 26/08/2011

    [Resolvido]Dúvida Repositório Msgbox com tempo Empty [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Hazael 13/3/2015, 19:06

    amigo...

    esta dica
    https://www.maximoaccess.com/t629-msgbox-com-tempo#257162

    pra mim não não funcionou... da o erro... sera que tenho que habilitar alguma referencia?

    ou declarar alguma variável?

    o erro que da é que preciso declarar a variável... para a palavra Wshell... mas você não declara..... eu declarei como objeto e não executou o tempo que pedi...

    pode me ajudar?
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Marco Messa 17/3/2015, 01:19

    Não precisa de referência pois está utilizando o comando CreateObject, mas caso você queira dar uma olhada nos outros métodos que a classe possui, adicione uma referência para Windows Script Host Object Model.

    E mude para o código abaixo:

    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 New WshShell
        MsgBoxTimer = WShell.Popup(Prompt, Seconds, Title, Buttons)
    End Function


    .................................................................................
    Tea with me that I book your face Cool
    avatar
    Convidado
    Convidado


    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Convidado 17/3/2015, 12:01

    onde coloco o tempo???
    1000= 1 segundo???
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Marco Messa 17/3/2015, 23:03

    Roberto_1977 escreveu:onde coloco o tempo???
    1000= 1 segundo???
    1 segundo = 1.

    Hazael escreveu:
    amigo...

    pra não não funcionou... da o erro... sera que tenho que habilitar alguma referencia?

    ou declarar alguma variável?

    o erro que da é que preciso declarar a variável... para a palavra Wshell... mas você não declara..... eu declarei como objeto e não executou o tempo que pedi...

    pode me ajudar?
    Não deu certo porque seu código provavelmente tem a declaração Option Explicit no começo do módulo, isso obriga a declaração de variáveis.
    Quando precisar declarar uma variável e não souber o tipo que será definido nela, utilize apenas Dim variável sem o tipo ou com o tipo Variant, que é o padrão utilizado quando vc não declara nenhum tipo.

    A maneira correta, sem precisar usar a referência seria a seguinte:

    Código:
    Public Function MsgBoxTimer(Seconds As Integer, Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title As String) As VbMsgBoxResult
      Set WShell = CreateObject("WScript.Shell")
      MsgBoxTimer = WShell.Popup(Prompt, Seconds, Title, Buttons)
    End Function


    .................................................................................
    Tea with me that I book your face Cool
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Noobezinho 18/3/2015, 00:05

    Para evitar deletar esse tópico, vou transferi-lo para a sala de Módulos e VBA.

    Quando o código estiver funfando, convido o autor do tópico a abrir novo tópico
    no repositório.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Marco Messa 18/3/2015, 16:02

    Wink


    .................................................................................
    Tea with me that I book your face Cool
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Noobezinho 18/3/2015, 16:57

    Amigos

    Testei o código passado na primeira mensagem pelo Marco Messa e funcionou perfeitamente:

    MsgBoxTimer 5,"Esse é apenas um teste da BoxTimer",vbInformation,"BoxTimer"


    [ ]'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Marco Messa 18/3/2015, 17:23

    É porque o Hazael tinha a opção Option Explicit no código dele, que obriga a declaração de variáveis.


    .................................................................................
    Tea with me that I book your face Cool

    Conteúdo patrocinado


    [Resolvido]Dúvida Repositório Msgbox com tempo Empty Re: [Resolvido]Dúvida Repositório Msgbox com tempo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 12:37