Hoje adicionei o botão +1 do Google Plus. Esta é mais uma forma de divulgar os posts. Caso ainda não tenha convite para o Google Plus deixe um comentário com o seu email que envio o convite.

Esta é uma base de dados muito simples que serve para controlar as depesas do dia a dia.

Menu Principal
Na imagem 1 podemos ver o menu princípal bastante simples e funcional. No topo podemos ver o ano em que estamos a trabalhar.

Ano de trabalho
Para alterar o ano de trabalho clicamos no botão escolher ano e abrimos o formulário (imagem 2) e digitamos o ano que queremos.

Despesas
No botão despesas abrimos o formulário (imagem 3) para introdução de dados. Ao lado da categoria temos um botão ‘+’ para adicionar categorias e ao lado da subcategoria temos um botão ‘+’ para adicionar as subcategorias (ao clicar no botão subcategorias caso ainda não tenha escolhido a cetegoria, dá erro e pede para selecionar a categoria. Caso tenha a categoria selecionada ele abre o formulário categorias, na categoria selecionada).
No campo fornecedor podemos escolher um da lista e caso não exista ele pergunta se deseja adicionar.

Categorias
Este formulário (imagem 4) serve para gerir (inserir / alterar / eliminar / pesquisar) as categorias e respectivas subcategorias.

Fornecedores
Neste formulário serve para gerir (inserir / alterar / eliminar / pesquisar) os nomes dos fornecedores.

Relatórios
Ao clicar neste botão abre o menu (imagem 5) dos relatórios onde podemos escolher 4 tipos de relatórios:

- despesas do ano actual (imagem 6): mostra um relatório com a categoria, subcategoria e valor total por mês, do ano com que estamos a trabalhar. Mostra também o total de despesas por mês e total por subcategoria.
Neste relatório incluí um gráfico por subcategoria que mostra a evolução mensal de cada subcategoria. Este gráfico não é da minha autoria, no módulo respectivo tem os dados do autor, nomeadamente:

‘Author : Philippe Bonnardel (based on an idea of Edward Tufte)

- despesas por ano (imagem 7): mostra um formulário com as depesas por categoria num determinado ano. Podemos escolher o ano das despesas, desde que exista registada uma despesa nesse ano e visualizar o respectivo gráfico. Ao fazer duplo clique na categoria abre o relatório anual das subcategorias que tem o mesmo formato. Ao fazer duplo clique na subcategoria abre o detalhe (imagem 8 ) das despesas efectuadas nessa subcategoria.

Detalhe

- despesas por mês: igual às despesas por ano mas aqui podemos escolher o ano e o mês que desejamos.

- despesas por fornecedor: mostra um formulário com as despesas por fornecedor em determinado ano, e o respectivo gráfico. Neste relatório apenas podemos escolher o ano que desejamos visualizar.

Comparação Anual
Mostra a evolução das despesas dos últimos 10 anos. Mostra os valores por ano e mostra um gráfico.

Aguardo comentários desta base de dados, entretanto vou acrescentar funcionalidades ao exemplo, como a possibilidade de imprimir os relatórios.

Download do exemplo: DESPESAS

Neste actualização do sistema de vendas as alterações foram as seguintes:
Colocar a imagem da empresa no relatório, que não estava aparecer.
Reformulação do aspecto da impressão da venda e colocação do campo “produto” que não estava na impressão.
Colocação da tabela de IVa e totais.
Criação do formulário de listagem de vendas diárias, onde podemos ver todas as vendas efectuadas no dia e uma listagem por tipo de pagamento.
Alteração do código para introduzir a imagem do logotipo da empresa. Como a imagem esta ligada ao campo ‘localfoto’ que é o caminho no disco onde está a imagem, caso a imagem não se encontre no local dava erro e não abria o formulário “dados da empresa”. Assim sendo coloquei uma rotina que verifica se dá erro e caso isso aconteça esconde a imagem e sai da função para não dar erro. Basicamente volta ao estado inicial como se ainda não tivesse imagem.
Alterado no formulário e no relatório de impressão da venda.
Fornecedores – Foi criado o formulário de fornecedores. Sempre que inserir uma nova compra e o fornecedor não existir, pergunta se deseja adicionar. Em caso afirmativo abre o formulário “Fornecedores” para introduzir os dados.
Compras – Se o artigos não existir, pergunta se quer inserir.

Download: Sistema de Vendas

Agradeço que testem e comentem, para melhorar o sistema.

No exemplo do abrigo animais e no exemplo sistema de vendas existe um formulário onde podemos colocar uma foto. Após utilização desse código verifiquei que como a imagem esta ligada ao campo ‘localfoto’ que é o caminho no disco onde está a imagem, caso a imagem não se encontre no local dava erro e não abria o formulário. Assim sendo coloquei uma rotina que verifica se dá erro e caso isso aconteça esconde a imagem e sai da função para não dar erro. Basicamente volta ao estado inicial como se ainda não tivesse imagem.

Na próxima mensagem vou colocar a próxima actualização do sistema de vendas onde poderemos ver o código em funcionamento. Entretanto podemos fazer um teste que é colocar o sistema de vendas numa pasta diferente e verificar o que acontece quando abrimos o formulário dos dados da empresa.

O código actualizado é o seguinte:

‘www.accessexemplos.com
‘José Martins
’2011-02-28

On Error GoTo Err_mostraimagem

If IsNull(Me.Localfoto) = False Then
Me.FOTO.Picture = Me.Localfoto
FOTO.Visible = True
SEMFOTO.Visible = False
Else
Me.FOTO.Picture = “”
SEMFOTO.Visible = True
FOTO.Visible = False
End If

Exit_mostraimagem:
Exit Sub

Err_mostraimagem:
Select Case Err.Number
Case 2220 ‘ Não encontra a imagem
FOTO.Visible = False
SEMFOTO.Visible = True
Resume Exit_mostraimagem:
Case Else ‘ Outro Erro.
MsgBox Err.Number & ” ” & Err.Description
Resume Exit_mostraimagem:
End Select

Para que um utilizador quando estiver a introduzir dados escreva sempre em maiúsculas basta colocar o seguinte código nas propriedades do campo, no evento ‘ao premir a tecla’ (OnKeyPress ):

KeyAscii = Asc(UCase(Chr(KeyAscii)))

onde keyascii vai receber o novo código ASCII

chr = exibe o carácter do código ASCII

Função ‘Asc’: Devolve um número inteiro que representa o código (ASCII) de carácter correspondente à primeira letra numa cadeia.

Função Ucase: converte uma cadeia de caracteres para maiúsculas.

Função Chr: mostra o carácter do código ASCII

Para converter para minúscula basta alterar Ucase por Lcase:

KeyAscii = Asc(LCase(Chr(KeyAscii)))

tenho notado que alguns leitores enviam a mesma mensagem várias vezes, pois pensam que a primeira não foi submetida com sucesso.
Se é a primeira vez que está a comentar, essa mensagem tem que ser aprovada, o que também o aprova como apto para comentar.
Trata-se de uma protecção contra o SPAM, para não aparecerem mensagens que não tenham a ver com o blogue.
Assim sendo após o envio da primeira mensagem, só tem que aguardar que seja aprovada e partir daí as próxima mensagens já aparecem automaticamente.

Ainda hoje apaguei 252 mensagens de spam…

Conforme tinha dito na mensagem anterior, alterei o local onde se encontram os ficheiros para download.
A partir de agora estão alojados no serviço da BOX.NET, onde pelo menos já não se tem que esperar pelo download nem tem publicidade.

Ainda faltam actualizar alguns links, que durante a próxima semana estarão concluídos. Coloquei também um link no menu do blogue “DOWNLOADS” que faz a ligação para a pasta no BOX.NET onde estão todos os ficheiros disponíveis para download.

Qualquer dúvida ou ficheiro que se encontre trocado, agradeço que me informem.

Após algum tempo sem actualizar o Blogue, finalmente consegui algum tempo para actualizar o sistema de vendas. Muitos leitores não conseguiam entrar devido ao sistema de login que pedia password. Assim sendo, removi o sistema de login para facilitar o acesso.
Além desta alteração fiz as seguintes alterações:

V 0.5.0 (2010-08-19)
- Removi o login e utilizadores.
- Acrescentei campos (família, iva e unidade) na tabela produtos.
- Criei a tabela de IVA.
- Alteração do formulário Produtos. (novos campos, aspecto, nova forma de localizar registos).
- Criei a tabela família (de produtos).
- alterei o formulário de compras: só se inseria um produto de cada vez. Coloquei no formulário de compras um subformulário onde se pode inserir vários produtos comprados num determinado fornecedor.

Download: Vendas 2010

Agradeço comentários para numa nova actualização corrigir ou acrescentar funcionalidades.

De futuro estou a pensar em mudar o local de onde se fazem os downloads dos arquivos, uma vez que se não houver actividade num arquivo durante algum tempo, o arquivo é removido. Assim sendo vou procurar uma alternativa ao easy-share para que isso não aconteça.

No próximo post irei colocar uma versão de como calcular prestações similar ao que aqui já tem neste post, mas que em vez de ter apenas prestações mensais podemos escolher o números de dias que decorrem entre cada prestação. Esse exemplo servirá também para responder a uma questão de um leitor (Marcelo).

Hoje vou demonstrar como se cria uma barra de menus, passo a passo, para dar um aspecto mais profissional e apenas dar acesso às opções que realmente interessam para o utilizador final de um projecto em Access.
No final iremos ter uma barra de menus com um aspecto igual à imagem abaixo.

1- Ir ao menu ‘Ferramentas’ e escolher ‘personalizar’. Aparece o seguinte menu:

2- Escolher o separador ‘Barras de Ferramentas’ e escolher ‘nova’ e digitar o nome que queremos dar à barra de ferramentas, eu escolhi “menu”. Clicar em OK e aparece a barra de ferramentas sobre a qual vamos trabalhar, que para já ainda não tem opções.

3- Com a barra de ferramentas seleccionada clicar em ‘propriedades’ e aparece o seguinte menu:

4- Alterar o ‘Tipo’ para ‘Barra de Ferramentas’ e depois clicar em fechar.

5- Clicar no separador ‘comandos’ e na listagem do lado esquerdo que diz ‘categorias’ escolher ‘novo menu’ que deve estar na última posição. Depois Clicar na caixa do lado direito ‘comandos’ e arrastar ‘novo menu’ para cima da nossa barra de menus como exemplifica a imagem abaixo.

Arrastar ‘novo menu’ para cima da nossa barra de menus, as vezes necessárias mediante o número de menus que precisarmos, neste exemplo vou arrastar 3 vezes, para fazer dois menus e um submenu. Para fazer um submenu basta arrastar ‘novo menu’ para dentro de um menu. Nota: O número de menus pode ser alterado posteriormente, pode-se acrescentar ou diminuir mediante o que precisar.

6- Clicar com o botão do lado direito do rato em cima de ‘novo menu’ da nossa barra de ferramentas e alterar o nome conforme pretendido. No exemplo eu escolhi ‘Clientes’ para o 1º e ‘Fornecedores’ para o 2º.

7- Agora vamos colocar nos menus os formulários que pretendemos abrir. Clicar no separador ‘comandos’ e escolher a categoria ‘Todos os formulários’ e no lado direito irá aparecer todos os formulário existentes no projecto actual. Clicar no formulário que queremos e arrastar para a nossa barra de ferramentas. No exemplo eu escolhi vários formulários e relatórios e também a opção SAIR (para fechar o Access). Nesta etapa podemos escolher o que queremos que a nossa barra de ferramentas abra para isso basta escolher nas categorias o que pretendemos (tabelas, formulários, relatórios, consultas, acções dos menus do Access que aparece como barra de menus por defeito, etc.)

8- Depois de escolhermos tudo aquilo que pretendemos ter na nossa barra de menus podemos clicar em cada um deles com o botão direito do rato ver as propriedades que podemos alterar. Veja a imagem abaixo.

‘repor’ – Serve para por um item como estava originalmente antes de alterar o nome a imagem, etc.
‘eliminar’ – apagar um item do menu
‘nome’ – para alterar o nome do item do menu. Aqui também podemos definir o atalho para esse item utilizando o símbolo & antes da letra que queremos usar como atalho. Por exemplo a opção Sair já vem por defeito assim Sai&r, no menu aparece a letra ‘r’ sublinhada o que nos indica que ao utilizar a tecla ALT + r é executado o item Sair do menu. No exemplo que escolhi &Clientes para a abrir Cliente com o atalho ALT + C.

‘copiar/colar/repor/editar/alterar imagem do botão’ – estes comando servem exactamente para trabalhar a imagem que queremos ver ao lado de cada item. Podemos copiar e colar a imagem para usar num outro item, repor a imagem original, editar a imagem e fazer com o editor um ícone (pixel a pixel) ou escolher uma imagem disponível no menu alterar.

Depois podemos escolher também o aspecto do item, ou seja se queremos só texto ou texto e imagem.

‘iniciar um grupo’ – serve para separar itens através de uma barra horizontal, ou seja criar grupos de itens.

‘atribuir hiperligação’ – para atribuir uma ligação quer para um URL ou para algum objecto na base de dados.

‘propriedades’ – mostra todas as propriedades do item.

9- Agora que já temos a barra de menus pronta temos que a pôr no lugar devido. Para isso clicamos no botão fechar e arrastamos o nosso menu para o canto superior do ecrã até que ele se cole ao local onde está a barra por defeito do Access.

10- Para a barra iniciar ao abrir a base de dados temos que dar a instrução para abrir quando iniciar o Access. Vamos a ‘Ferramentas’ e ‘Arranque’ e em ‘barra de menus’ escolhemos o nome do nosso menu, neste exemplo ‘menu’.

11- Para alterar as imagens de cada um dos itens do menu podemos utilizar outra forma que consiste em inserir uma imagem num formulário e copiar a mesma para o item. Ou seja:

- Criar um formulário na forma de estrutura

- ir ao menu inserir e escolher a opção imagem

- escolher uma imagem qualquer e clicar em inserir

- seleccionar a imagem e com o botão direito do rato escolher copiar

- ir no menu ferramentas e escolher a opção personalizar

- clicar com o botão do lado direito do rato no item que desejamos alterar a imagem e escolher colar imagem do botão.

- Clicar em fechar e fechar o Access

- Iniciar a base de dados para ver o resultado final

NOTA IMPORTANTE: Ao alterar a barra de menus, os menu do Access desaparecem na base de dados em que é feito. Para fazer alterações na mesma é necessário arrancar a base de dados pressionado a tecla SHIFT.

O meu menu ficou assim:

Download: Barra de Menus

Podemos impedir que um relatório abra se não houver dados para mostrar, e para isso podemos utilizar duas formas dependendo da versão do Access:

1- Todas as versões do ACCESS
Colocar o código abaixo nas propriedades do relatório, no evento ‘Ao ativar’

Utilize o evento Ao ativar (Activate) do Relatório:

Private Sub Report_Activate()

If DCount(“*”, Me.RecordSource) = 0 Then

MsgBox “Não existem registos para mostrar”, vbDefaultButton1, “Erro!”

DoCmd.Close acReport, “nome do relatório”

End If

End Sub

2- A partir da versão 7 (Access 95) foi incluido o evento ‘se nenhum dado’, então podemos urilizar o seguinte código:

Private Sub Report_NoData(Cancel As Integer)

MsgBox “Não existem dados no relatório.”, vbInformation, “Erro!!!”

Cancel = True

End Sub

Para ver em funcionamento faça o download do exemplo: Impedir relatório de abrir