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


    MsgBox's padrão

    avatar
    Convidad
    Convidado


    MsgBox's padrão Empty MsgBox's padrão

    Mensagem  Convidad 14/10/2011, 20:41

    Saudações!

    É chato ter que definir todos aqueles parâmetros qdo usamos caixas de mensagem.
    Uma ideia pra pular a burocracia é usar algo como isto:
    Em um módulo novo ou de funções:

    ' título da MsgBox (ou para uso onde quiser)
    Global Const NomeAplic = "NomeDaSuaAplicação"

    Public Function Info(strMensagem As String)
    MsgBox strMensagem, vbExclamation, NomeAplic
    End Function

    Depois fica mais fácil: Info "Digite a mensagem entre aspas"
    Dá pra fazer n variações!

    Abraço!


    Última edição por norbs em 7/12/2011, 21:59, editado 1 vez(es)

      Data/hora atual: 8/11/2024, 00:44