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]MsgBox Exemplo Damasceno não fecha

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]MsgBox Exemplo Damasceno não fecha Empty [Resolvido]MsgBox Exemplo Damasceno não fecha

    Mensagem  Assis 8/6/2022, 14:18

    Boa tarde Amigos
    Anexo o meu exemplo
    A Msgbox abre mas não fecha automaticamente.
    Obrigado
    Anexos
    [Resolvido]MsgBox Exemplo Damasceno não fecha AttachmentMsgBoxTimer_Assis - Forum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (121 Kb) Baixado 12 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2087
    Registrado : 23/01/2018

    [Resolvido]MsgBox Exemplo Damasceno não fecha Empty Re: [Resolvido]MsgBox Exemplo Damasceno não fecha

    Mensagem  crysostomo 9/6/2022, 00:29

    Como assim?
    deixa eu ver se estou errado. scratch
    fechar formulario é:

    DoCmd.Close
    fecha sistema é docmd.quit


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]MsgBox Exemplo Damasceno não fecha Empty Re: [Resolvido]MsgBox Exemplo Damasceno não fecha

    Mensagem  DamascenoJr. 9/6/2022, 00:46

    Assis, obrigado por compartilhar um arquivo exemplo. É muito importante para identificação e ajuda.

    Você pode resolver assim:
    Código:
    Me.TimerInterval = 0
    Call fncMsgBox(, "O Funcionário " & UCase([NOME]) & " Já Está Registado", , , 3)
    Me.TimerInterval = 1000


    .................................................................................
    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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]MsgBox Exemplo Damasceno não fecha Empty Re: [Resolvido]MsgBox Exemplo Damasceno não fecha

    Mensagem  Assis 9/6/2022, 09:28

    Bom dia

    crysostomo

    Ninguém falou em fechar formulário Very Happy Very Happy Very Happy


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4660
    Registrado : 06/11/2009

    [Resolvido]MsgBox Exemplo Damasceno não fecha Empty Re: [Resolvido]MsgBox Exemplo Damasceno não fecha

    Mensagem  Assis 9/6/2022, 09:38

    Obrigado Damasceno

    A Msgbox fecha.

    A ainda mais rápido assim:

    Mudar o 3 para 1

    Call fncMsgBox(, "O Funcionário " & UCase([NOME]) & " Já Está Registado", , , 1)


    .................................................................................
    *** Só sei que nada sei ***

    egnaldo gosta desta mensagem


      Data/hora atual: 3/7/2022, 09:08