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 StringIf 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