Category Archives: Exemplos

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

Menu de Inicio

Hoje apresento um exemplo de um menu feito por mim, que é bastante simples de fazer.
Este menu é composto por botões que dão acesso aos outros formulários(que neste exemplo só tem um para demonstração) e também para sair da aplicação. Apresenta a data no rodapé e a hora corrente (hora do computador)no topo direito.

Podem ver o exemplo aqui para poder ver como foi feito. Se tiverem alguma dúvida, é só perguntar.

Soma corrente ( extracto )

Este é um pequeno exemplo que demonstra como podemos fazer uma soma corrente, ou seja, como se vê nos extractos bancários por exemplo.

Para o campo total utilizamos a função Dsoma para calcular o valor anterior mais o crédito e subtrair o débito.
Para fazer download do exemplo clique aqui

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