MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Formulário Saudação

    Compartilhe

    Wilson90
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Formulário Saudação

    Mensagem  Wilson90 em Sex 09 Jun 2017, 18: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)?
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  thiagomcosta em Sex 09 Jun 2017, 18: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

    Wilson90
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Wilson90 em Sab 10 Jun 2017, 01:37

    Valeu... Funcionou

      Data/hora atual: Ter 21 Nov 2017, 19:16