Category Archives: Módulos

Exibir uma mensagem de cumprimento

Através de um pequeno código podemos dar as boas vindas ao utilizador dependendo da hora em que abra o formulário. Neste exemplo podemos ver três mensagens diferentes:
1-Até às 12:00 Bom dia;
2-Até às 19:00 Boa tarde;
3-Entre as 19:00 e as 24:00 Boa noite.

Apenas precisamos de um pequeno código, que é o seguinte:

Public Function Cumprimento()
Dim strMsg As String

If Time < #12:00:00 PM# Then
strMsg = “Ola! Tenha um bom dia!”
ElseIf Time <= #7:00:00 PM# Then
strMsg = “Ola! Tenha uma boa tarde!”
Else
strMsg = “Ola! Tenha uma boa noite!”

End If
Cumprimento = strMsg
End Function

Depois para chamar o código, utilizamos uma caixa de texto e como origem do controlo escrevemos =cumprimento().

Download: Cumprimento

Número de registos

Através de um pequeno módulo podemos ver quanto registos temos num formulário e em qual deles nos encontramos. Ou seja, para quem não quer ter os botões de navegação na parte de baixo do formulário, que permite navegar nos registos, pode em alternativa usar este método para informar qual o número de registo em que se encontra e quantos existem num formulário.

Download: Registos

Valor em Euros por extenso

Este é um exemplo bastante útil, que utiliza um módulo para escrever um número por extenso. Por exemplo, nós introduzimos o valor 100,50 num campo e noutro campo ele escreve o valor por extenso em Euros ( Cem Euros e cinquenta cêntimos ).

Download: extenso