[Resolvido]Saudação no formulário

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.

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

Bom dia ahteixeira.

Funcionou, obrigado.

Abraço

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

Olá amigo,

pode me passar como chamar esta função ?

Olá Nilton,

Pode ser numa caixa de texto, coloque assim na origem dos dados ou valor por defeito:

=fncBoasVindas()

Abraço

Não deu certo,
estou enviando novamente, para vc me passar onde está o erro.

Olá Nilton, faltou anexo.
Veja como fazer:
https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

Abraço

Esqueci de usar o submit(Enviar dados), fui logo no enviar.

Aqui envio o anexo, para vc me passar onde está o erro.

Olá Nilton,

É por causa do relógio, então devemos usar no evento "No cronometro" (Form_Timer)

Código:

Me.texto0 = fncBoasVindas

A outra função Saudacao apresentave erro e não é necessária, foi eliminada.

Segue o meu teste:
cld.pt/dl/download/74ec613e-5086-48b5-987c-077a4131f6a9/Saudacao_na_legenda.zip
Copiar e colar no navegador

Abraço