Segunda-feira, Janeiro 14th, 2008 |
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
Escrito em Exemplos, Formulários, Horas, Módulos | 2 Comentários »
Sábado, Janeiro 12th, 2008 |
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
Escrito em Exemplos, Formulários, Módulos, Registos | Sem Comentários »
Terça-feira, Janeiro 2nd, 2007 |
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
Escrito em Exemplos, Expressões, Módulos | 1 Comentário »
