1- Vamos criar uma tabela onde vamos guardar o nome que queremos dar a cada um dos formulários e o nome do formulario que vamos abrir. No exemplo criei a tabela ‘tblmenu’ com os seguintes campos:
Campo        Tipo
Nomedomenu    texto -> Nome que vai ser visto no menu (caixa de combinação)
formulario    texto -> Nome do formulário que vai abrir

Depois introduzimos os dados que no exemplo são os seguintes:

NomedoMenu    Formulario

Contas        formulario1
Depósitos    formulario2
Movimentos    formulario3
Conta-Caixa    formulario4
Conta-Conta    formulario5
Extracto    formulario6

2- Depois vamos criar uma consulta da tabela anterior:
Escolhemos a tabela tblmenu e depois escolhemos os dois campos em que escolhemos a ordenação  ascendente para o nomedomenu para ser mais fácil de encontrar o menu que queremos quando tempos bastantes formulários para abrir. A esta consulta dei o nome de ‘CsMenu’.

3- Vamos criar o formulário ‘Menu’, ou seja escolhemos novo formulário em vista de estrutura. Depois vamos criar uma caixa de combinação e modificar as seguintes propriedades:
- Nº de colunas: 2
- LArgura das colunas: 1cm;0cm;
- origem da linha: csmenu ( que é o nome da consulta criada no ponto anterior )

4- No mesmo formulário vamos criar um subformulário desvinculado do formulário principal(No exemplo dei o nome de menuquadro). É neste formulário que vai ser aberto cada um dos formulários que escolher no menu (caixa de combinação).

5- Agora vamos criar o módulo que nos vai permitir abrir o menu que é selecionado na caixa de combinação no subformulário.
Criamos um módulo (ao qual eu chamei de ‘abrirmenu’) e colamos o seguinte código:

Public Function AtivarMenu(Combmenu As ComboBox, subabrir As SubForm)
Dim abrirform As String
abrirform = Combmenu.Column(1)
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = “”
subabrir.LinkMasterFields = “”
End Function

Depois vamos às propriedades da caixa de combinação no formulário Menu e no evento Depois de Actualizar colocamos a função criada: =ativarmenu([Menu];[menuquadro]) em que ‘Menu’ é o nome da caixa de combinação e ‘menuquadro’ o nome do subformulário.

E finalmente o menu está pronto a utilizar. É só testar e usar. Espero que tenham gostado desta dica.
Download: Menu

Abaixo uma imagem do menu.

Menu Personalizado

Download: Teste Hora

=formatar([o nome do campo data];”yyyy mm dd”)

e nas propriedades do campo pôr a seguinte expressão na máscara de introdução: 0\ 0\ 0\ 0\ 0\ 0\ 0\ 0\ 0

Bastante simples e fácil. Segue o exemplo para download: Formatar data

1. Depois de abrir a folha de dados que quer alterar vamos ao menu Formatar e escolhemos Folhas de dados.
2. Irá aparecer o quadro formatação de folhas de dados. Na primeira opção temos o efeito das células, que pode ser plano, alto relevo e baixo relevo. As duas últimas opções só nos permitem obter um aspecto de alto ou baixo relevo e não podemos escolher mais nada, é na opção plano que poder escolher mais efeitos.
3. A segunda opção é Linhas de grelha o que nos permite escolher se queremos as linhas verticais ou horizontais activas ou não.
4. Cor de fundo: tal como o nome diz serve para escolher a cor das células é só escolher uma da lista.
5. Cor das linhas de grelha: é a mesma função que no número anterior mas para as linhas de grelha.
6. Estilos de limite e de linha: permite alterar o aspecto das linhas de grelha, do sublinhado do cabeçalho da coluna e o estilo do limite da folha de dados. Na lista da esquerda escolhemos a linha que queremos alterar e na lista da direita o estilo de linha.
7. Direcção: aqui podemos alterar a forma como os campos se apresentam em termos de ordem, podemos ter a direcção normal que é da esquerda para a direita ou podemos escolher da direita para a esquerda o que vai trocar a ordem dos campos e encostar à parte direita da folha de dados. O que podemos verificar na imagem 2. Nota: esta alteração só pode ser feita em tabelas e não em folhas de dados nos formulários.

Imagem1:

Imagem 2:

O que este exemplo mostra e faz é criar automaticamente, com um clique num só botão, as prestações de um contrato de venda mediante os dados inseridos. Ou seja, introduzimos o nome do cliente a data de inicio do contrato e o valor total a pagar. Depois basta clicar no botão “calcular prestações” que ele gera automaticamente o número de prestações indicadas e divide o valor por cada uma delas e calcula a data de cada prestação( uma por cada mês). Este também é um exemplo que demonstra como acrescentar vários registos de uma só vez, porque ao clicar no botão ele acrescenta um registo para cada uma das prestações.

Download: Inserir Vários Registos

Para fazer isto é muito fácil, basta seleccionar os campos e escolher a cor de fundo que queremos que apareça quando está o cursor no campo e de seguida alterar a cor para transparente.

Download: Mudar cor campo de dados

Download:  Abrigo Animais

Qualquer modificação é só comentar aqui.

Para esse efeito é disponibilizada uma página inteira só com banners de 125×125. Para poderem ter o vosso banner grátis durante 30 dias, basta fazerem uma pequena referência (50 a 60 palavras), sobre esta iniciativa no vosso site ou blog com um link para o site NokiaPortugal.

Aproveitem que pelo menos 10000 visitas é provável que a página vá ter durante estes 30 dias.

É um exemplo básico, mas com alguns pormenores mais avançados em que o que se pretende com ele é fazer o controle das entradas e saídas dos funcionários, verificar se trabalharam um turno de 12 horas e somar as horas trabalhadas a mais e as horas trabalhadas a menos.

Tudo isto para obter um relatório mensal de assiduidade de cada funcionário.

Download: Ponto