Access Exemplos

Calculos com horas

Este exemplo mostra como efectuar cálculos com horas. É útil para quem precisa de saber quanto tempo decorreu entre uma hora de inicio e uma hora de fim. Não basta fazer a subtracção da hora de fim pela hora de inicio, porque caso a hora de fim passe de um dia para o seguinte as contas já não darão certas, por exemplo:

Hora Inicio: 23:00:00

Hora Fim: 02:00:00

Hora Fim – Hora Inicio = 02:00:00 – 23:00:00 = -21:00:00

Obviamente que não é assim tão simples trabalhar com horas, porque assim em vez de termos 3 horas como resultado correcto teríamos -21 horas erradamente.

Para contornar esta situação em que o período passa de um dia para outro temos que verificar primeiro se a hora de fim é superior à hora de inicio, caso seja maior então o cálculo é: Hora Fim – Hora Inicio.

Caso seja menor então temos que fazer o cálculo de outra forma, ou seja:

Hora Inicio: 23:00:00

Hora Fim: 02:00:00

Total de Horas: 23:59:59

Acerto: 00:00:01

Basicamente o que vamos fazer é somar 24:00:00 ao valor da subtracção para nos dar as três horas correctas. Ou seja:

Hora Fim – Hora Inicio + Total de Horas + Acerto = 02:00:00 – 23:00:00 + 23:59:59 + 00:00:01 = -21:00:00 + 24:00:00 = 03:00:00

Download: Calculo com Horas

Escrito em Exemplos, Formulários, Horas, Módulos | 20 Comentários »

Calendário PopUp

Este exemplo mostra como escolher uma data através de um calendário PopUp. Ou seja, através de um módulo e de um formulário podemos escolher uma data como se trata-se de um calendário. No exemplo podemos escolher a data clicando no botão ao lado do campo data ou clicando com o botão do lado direito do rato no campo data. Esta forma de introduzir datas é bastante prática uma vez que nos permite ver um calendário e assim escolher melhor a data que pretendemos.

Download: Calendário PopUp

Escrito em Datas, Exemplos, Formulários, Módulos | 1 Comentário »

Sistema de Vendas (actualização)

Acrescentei o módulo Localizar: para localizar ficheiros gráficos para acrescentar o logótipo da empresa no formulário dados da empresa.
Alteração da tabela Dados da Empresa: Remoção do campo “logo” e acrescentei o campo “localfoto”.
Alteração do formulário dados da empresa: alteração do modo como se insere o logótipo da empresa, através de botões de comando.
Introdução de sistema de login com diferentes tipos de acessos: Administrador sistema / administrador / utilizador: o que permite definir o que cada tipo de utilizador pode fazer no programa e permite identificar a pessoa que vai utilizar o posto de venda que de futuro irá permitir elaborar mapas por vendedor.
Acrescentei o modulo “ponteiro_mouse”: para mudar o ícone do rato no menu administrador.
Menu Administrador: activar/desactivar a tecla Shift; acrescentar utilizadores; alterar utilizadores; permisões.

Download: Sistema de Vendas

Escrito em Exemplos, Sistema Completo | 23 Comentários »

Desactivar a roda do rato (botão central)

Normalmente quando rodamos o botão central de um rato num formulário, o access muda de registo. Em algumas situações pode ser bastante útil que isso não aconteça.
Este exemplo utiliza um modulo, no evento ao carregar do formulário, para impedir que o utilizador navegue pelos registos utilizado o scroll do rato. Para testar podemos utilizar a roda do rato (botão central) para ver que não muda de registo.

Download aqui: Roda do rato

Escrito em Exemplos, Formulários, Módulos, Rato, Registos | Sem Comentários »

Saldo Inicial

Exemplo de como visualizar um extracto de conta de um determinado período e mostrar o saldo inicial no inicio desse período.

Para testar introduza uma data entre o período inicial e o final como mostrado na imagem e verifique se o saldo inicial está correcto.

Download: Saldo Inicial

Escrito em Datas, Exemplos, Formulários | 1 Comentário »

Contar registos

Mais um exemplo fácil de fazer, é este que podemos utilizar quando temos uma base de dados de clientes e queremos contar o número de clientes começados por cada letra.

Ou seja:
Cliente
Alberto
Ana
Manuel

Começados por “A”: 2 registos
Começados por “M”: 1 registos

Veja o exemplo: Contar Registos

Escrito em Consultas, Exemplos, Expressões, Formulários | Sem Comentários »

Manipular a janela do Access

Este exemplo utiliza um módulo que esconde a janela principal do Microsoft Access, ficando apenas a janela do formulário visível.
Para utilizar este módulo temos que utilizar o seguinte comando no evento ao abrir do formulário: call fsetAccessWindow (SW_HIDE).

Para verificar através de um exemplo faça o downloa: Manipular Janela do Acces

Escrito em Exemplos, Formulários, Módulos | 8 Comentários »

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

Escrito em Exemplos, Formulários, Horas, Módulos | 2 Comentários »

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

Escrito em Exemplos, Formulários, Módulos, Registos | Sem Comentários »

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.

Escrito em Exemplos, Formulários | 23 Comentários »