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

É fácil basta colocarmos o código abaixo nas propriedades do formulário no evento ‘ao abrir’:

If Form.RecordsetClone.RecordCount = 0 Then
MsgBox “Não encontrei registos.”, vbExclamation, “Erro!!!”
DoCmd.Close acForm, “localizar dados”
Exit Sub
End If

Para ver um exemplo faça o download: Impedir Formulário de Abrir

2- Nas propriedades do formulário, no evento ‘com a tecla em baixo’ colocar o seguinte código:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF2
DoCmd.OpenForm “formulario1″
Case vbKeyF3
DoCmd.OpenForm “formulario2″
Case vbKeyF4
DoCmd.OpenForm “formulario3″
Case vbKeyF5
Dim Calculadora As Double
Calculadora = Shell(”calc.exe”, vbNormalFocus)
Case vbKeyF6
DoCmd.Close
Case Else
End Select
End Sub

O que este código faz é o seguinte:
- Ao pressionar a tecla F2 abre o formulário1
- Ao pressionar a tecla F3 abre o formulário2
- Ao pressionar a tecla F4 abre o formulário3
- Ao pressionar a tecla F5 abre a calculadora do Windows
- Ao pressionar a tecla F6 fecha o formulário

Além das tecla de funções F1, F2…etc, também podemos utilizar qualquer outra tecla para executar funções, mas tendo em atenção que se estivermos num formulário para introduzir dados não convêm utilizar teclas que são usadas para escrever os dados nos campos.
Outra coisa é o facto de só funciona no formulário onde colocarem os códigos acima mencionados.

Download: Teclas

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