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]Titulo da MsgBox

    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº1

    [Resolvido]Titulo da MsgBox Empty [Resolvido]Titulo da MsgBox

    Mensagem  Assis 28/8/2020, 12:19

    Boa tarde

    Neste código mudar o titulo da MsgBox como mostra a Imagem.

    Obrigado

    Public Function RequiredCharsDialog(RequiredCode As Integer)
    Dim NotPresent As String
    'Tratamento de erros na password
       If RequiredCode <> 0 Then
           NotPresent = "Requisitos obrigatórios:" & vbNewLine & vbNewLine
           If (RequiredCode And Not 15) = 16 Then: NotPresent = NotPresent & "Password Tem que ter no Mínimo 6 Caracteres" & vbNewLine & vbNewLine
           If (RequiredCode And Not 23) = 8 Then: NotPresent = NotPresent & "Password 1 Caracter Especial" & vbNewLine & vbNewLine
           If (RequiredCode And Not 27) = 4 Then: NotPresent = NotPresent & "Password 1 Letra Maiuscula" & vbNewLine & vbNewLine
           If (RequiredCode And Not 29) = 2 Then: NotPresent = NotPresent & "Password 1 Letra Minuscula" & vbNewLine & vbNewLine
           If (RequiredCode And Not 30) = 1 Then: NotPresent = NotPresent & "Password 1 Número" & vbNewLine & vbNewLine
     
           MsgBox NotPresent

       End If

    End Function

    [Resolvido]Titulo da MsgBox Sem_t159


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011
    • Mensagem nº2

    [Resolvido]Titulo da MsgBox Empty Re: [Resolvido]Titulo da MsgBox

    Mensagem  Marcelo David 28/8/2020, 13:22

    Grande Assis, confesso que pelo o tempo que lhe conheço aqui no Fórum, você já dominasse as MsgBox. Realmente surpreso.
    No entanto estamos aqui para aprender uns com os outros. Very Happy

    A sintaxe é muito simples:

    MsgBox "Sua mensagem aqui",vbInformation,"Título"

    vbInformation exibe um "I", vbQuestion uma "?", etc...

    Também como combinar um ícone com grupo de botões...

    Mas para o que você quer, basta fazer assim:

    MsgBox NotPresent,,"Aviso"


    Última edição por Marcelo David em 28/8/2020, 13:25, editado 1 vez(es)


    .................................................................................
    [Resolvido]Titulo da MsgBox Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Titulo da MsgBox Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Titulo da MsgBox Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Titulo da MsgBox Marcel11
    • Ir para o topo
    Alexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº3

    [Resolvido]Titulo da MsgBox Empty Re: [Resolvido]Titulo da MsgBox

    Mensagem  Alexandre Fim 28/8/2020, 13:24

    Bom dia Assis,

    Coloque assim:

    MsgBox NotPresent, vbInformation, "Aviso"


    Boa sorte


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Titulo da MsgBox Setinf11
    Sistemas e Tecnologia Ltda
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº4

    [Resolvido]Titulo da MsgBox Empty Re: [Resolvido]Titulo da MsgBox

    Mensagem  Assis 28/8/2020, 13:33

    Obrigado Amigos


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

    Marcelo David gosta desta mensagem

    • Ir para o topo
    Alexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº5

    [Resolvido]Titulo da MsgBox Empty Re: [Resolvido]Titulo da MsgBox

    Mensagem  Alexandre Fim 28/8/2020, 13:36

    Valeu Assis...boa sorte!!!

    Marcelo, enquanto eu estava mandando a mensagem, vc já tinha enviado...não vi..me desculpe



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Titulo da MsgBox Setinf11
    Sistemas e Tecnologia Ltda

    Marcelo David gosta desta mensagem

    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3947
    Registrado : 21/04/2011
    • Mensagem nº6

    [Resolvido]Titulo da MsgBox Empty Re: [Resolvido]Titulo da MsgBox

    Mensagem  Marcelo David 28/8/2020, 13:41

    Ótimo que deu certo Assis! Very Happy

    Alexandre, esse Fórum
    é tão bom o quanto é devido a pessoas iguais a você.
    Tem conhecimento e repassa as informações! Parabéns!


    .................................................................................
    [Resolvido]Titulo da MsgBox Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Titulo da MsgBox Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Titulo da MsgBox Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Titulo da MsgBox Marcel11

    Kaynan gosta desta mensagem

    • Ir para o topo
    Alexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3492
    Registrado : 13/12/2016
    • Mensagem nº7

    [Resolvido]Titulo da MsgBox Empty Re: [Resolvido]Titulo da MsgBox

    Mensagem  Alexandre Fim 28/8/2020, 14:34

    Marcelo,
    Não é a toa que vc é um Moderador.
    Sempre atento às dúvidas dos membros do fórum.
    Além de resolver a questão do amigo Assis, ainda sugeriu outras formas de exibir a mensagem.
    Isso chama-se Excelência.

    Parabéns !!!



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Titulo da MsgBox Setinf11
    Sistemas e Tecnologia Ltda

    Marcelo David e Kaynan gostam desta mensagem

    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]Titulo da MsgBox Empty Re: [Resolvido]Titulo da MsgBox

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 22/11/2024, 00:15