[Resolvido]Mensagem de saudação na tela de inicialização do access

Olá, quero saber como fazer com que no meu formulário que eu estou criando para ser a tela de inicialização apareça a sudadação (bom dia, boa tarde,...) de acordo com a hora. Preciso que detalhe pois não entendo muito, passo a passo para inceri-lo no formulário. Desde já agradecida!

Com o link que te passei, lá pelo meu site, não resolveu ?

http://comunidade.itlab.com.br/eve/forums?a=search&reqWords=bom+dia%2C+boa+tarde

Bom estudo!

Bom, uma vez eu procurei por isso e não tive respostas. Fiz do meu jeito mesmo. Não ficou perfeito mas funciona.

Crie um campo não-acoplado no seu formulário de abertura.
Nome: HoraAgora
Fonte do Controle: =Tempo()
Visível: não

Crie um campo não-acoplado para a manhã:
Nome: HoraAgora1
Fonte do Controle: =SeImed(Esquerda([HoraAgora];2)<12;"Bom dia,";"")

Crie um campo não-acoplado para a tarde:
Nome: HoraAgora2
Fonte do Controle: =SeImed(Esquerda([HoraAgora];2) Entre 12 E 17;"Boa tarde,";"")

Crie um campo não-acoplado para a noite:
Nome: HoraAgora3
Fonte do Controle: =SeImed(Esquerda([HoraAgora];2) Entre 18 E 24;"Boa noite,";"")

Agora crie outro campo não-acoplado para se unir a esses três:
Nome: DataAgora
Fonte do Controle: =Data()

Coloque todos eles com fundo invisível e sem borda e uma cor de fonte apropriada para a cor do seu fundo do formulário.

Alinhe os 3 campos acima um em cima do outro, crie um rótulo com o texto "hoje é" e em seguida alinhe o último campo com a data.

Deverá ficar assim:

"Boa tarde, hoje é 10 de fevereiro de 2012".

Aqui está o que uso:

Código:


If Time >= "06:00" And Time <= "12:00" Then
 
  Me![lblSaudação].Caption = "Bom Dia !"
  Me![lblSaudação].Visible = True

ElseIf Time >= "12:01" And Time <= "18:00" Then
 
  Me![lblSaudação].Caption = "Boa Tarde !"
  Me![lblSaudação].Visible = True
ElseIf Time >= "18:01" Then
  Me![lblSaudação].Caption = "Boa Noite !"
  Me![lblSaudação].Visible = True

End If



Abraços

Obrigada! Vcs são d+++!!!! Agora é só testar. abraços

If time() >= #6:00:00 AM# And time() < #12:00:00 PM# Then
Call MsgBox("O Rogiel deseja-lhe um Bom Dia", vbExclamation, "Rogiel")
Else
If time() >= #12:00:00 PM# And time() <= #6:00:00 PM# Then
Call MsgBox("O Rogiel deseja-lhe uma Boa Tarde", vbExclamation, "Rogiel")
Else
Call MsgBox("O Rogiel deseja-lhe uma Boa Noite", vbExclamation, "Rogiel")
End If
End If

colca no evento ao carregar do form.

achei isso no procurando no forum.

Muitas cabeças pensando, muitas formas de se chegar no mesmo objetivo, isso é programação, Access, VBA. Viva ao nosso ganha pão!!!

Como a autora de tópico não se manifestou.

Considero o tópico resolvido.