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]Saudação no formulário

    Compartilhe

    Teacher
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 22/06/2014

    [Resolvido]Saudação no formulário

    Mensagem  Teacher em Dom 10 Set 2017, 17:50

    Boa tarde.

    Em todos os formulários dos meus arquivos, coloco uma saudação na legenda, exemplo:

    "Bem vindo(a) - Bom dia/Boa tarde/Boa noite, domingo, 10 de setembro de 2017 - 13:20:00"

    No evento Inervalo do cronômetro = 1000

    No evento No Timer do formulário:

    Private Sub Form_Timer()

    If Time > #12:00:00 AM# And Time <= #11:59:00 AM# Then

    Me.Caption = "Bem vindo(a) - Bom dia, " & WeekdayName(Weekday(Date)) & ", " & Day(Date) & " de " & MonthName(Month(Date)) & " de " & Year(Date) & " - " & Time

    ElseIf Time > #12:00:00 PM# And Time <= #5:59:00 PM# Then

    Me.Caption = "Bem vindo(a) - Boa tarde, " & WeekdayName(Weekday(Date)) & ", " & Day(Date) & " de " & MonthName(Month(Date)) & " de " & Year(Date) & " - " & Time

    Else

    Me.Caption = "Bem vindo(a) - Boa noite, " & WeekdayName(Weekday(Date)) & ", " & Day(Date) & " de " & MonthName(Month(Date)) & " de " & Year(Date) & " - " & Time

    End If

    End Sub

    Funciona, mas tenho que repetir esses códigos em todos os formulários.
    Gostaria de saber como colocar esses códigos em um módulo, uma função para não ter que repetir, nos formulários eu só chamaria a função.

    Tentei fazer mas aparece o seguinte erro:

    Erro de compilação

    Uso inválido da palavra-chave Me

    Em anexo está um exemplo.

    Desde já agradeço.
    Anexos
    Saudação na legenda.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 5 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4393
    Registrado : 15/03/2013

    Re: [Resolvido]Saudação no formulário

    Mensagem  ahteixeira em Seg 11 Set 2017, 08:14

    Olá Renato, não vi o projecto estou no celular.
    Tem que defenir uma variavel e no fim atribuir ao nome da função.
    Depois no campo onde pretende, colocar a chamada da função.

    Feito a "olho":

    Código:

    Public function fncBoasVindas()
    Dim sBV as string

    If Time > #12:00:00 AM# And Time <= #11:59:00 AM# Then

     sBV = "Bem vindo(a) - Bom dia, " & WeekdayName(Weekday(Date)) & ", " & Day(Date) & " de " & MonthName(Month(Date)) & " de " & Year(Date) & " - " & Time

    ElseIf Time > #12:00:00 PM# And Time <= #5:59:00 PM# Then

     sBV = "Bem vindo(a) - Boa tarde, " & WeekdayName(Weekday(Date)) & ", " & Day(Date) & " de " & MonthName(Month(Date)) & " de " & Year(Date) & " - " & Time

    Else

     sBV = "Bem vindo(a) - Boa noite, " & WeekdayName(Weekday(Date)) & ", " & Day(Date) & " de " & MonthName(Month(Date)) & " de " & Year(Date) & " - " & Time

    End If

    FncBoasVindas = sBV
    End function
    Abraço

    Teacher
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 22/06/2014

    Re: [Resolvido]Saudação no formulário

    Mensagem  Teacher em Seg 11 Set 2017, 12:12

    Bom dia ahteixeira.

    Funcionou, obrigado.

    Abraço
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4393
    Registrado : 15/03/2013

    Re: [Resolvido]Saudação no formulário

    Mensagem  ahteixeira em Qua 13 Set 2017, 12:21

    Olá Renato, obrigado pelo retorno.
    O fórum agradece.
    Abraço

      Data/hora atual: Ter 19 Set 2017, 12:46