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


2 participantes

    [Resolvido]Formulário Saudação

    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    [Resolvido]Formulário Saudação Empty [Resolvido]Formulário Saudação

    Mensagem  Wilson90 9/6/2017, 14:04

    Olá a todos!

    Tenho um projecto e gostaria de saber como colocar saudação no formulário ao abrir (Bom dia, boa tarde ou boa noite)?
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Formulário Saudação Empty Re: [Resolvido]Formulário Saudação

    Mensagem  thiagomcosta 9/6/2017, 14:19

    Se for uma mensagem ao abrir um determinado formulário, pode colocar o codigo abaixo no evento "Ao abrir" do formulario.
    Código:
    Sub Saudacao()
    Dim vHoraAgora As Date
    vHoraAgora = Time
    If vHoraAgora < #12:00:00 PM# Then
        MsgBox "Boa dia!"
    ElseIf vHoraAgora < #6:00:00 PM# Then
        MsgBox "Bom tarde!"
    Else
        MsgBox "Boa noite!"
    End If
    End Sub
    avatar
    Wilson90
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 59
    Registrado : 19/10/2015

    [Resolvido]Formulário Saudação Empty Re: [Resolvido]Formulário Saudação

    Mensagem  Wilson90 9/6/2017, 21:37

    Valeu... Funcionou

    Conteúdo patrocinado


    [Resolvido]Formulário Saudação Empty Re: [Resolvido]Formulário Saudação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 15:16