Impedir um relatório de abrir se não houver dados para mostrar
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
Gostaria de saber qual versão do Access que você usa porque ao abrir o sistema de Vendas na minha máquina, aparece uma mensagem de formato de banco de dados não reconhecido.
Todos os exemplos são feitos no Access 2003. Posso enviar noutro formato anterior ao Access 2003 se quiser.
Bom dia, estou fazendo um tabela com formulario, nesse formulário existem 3 de cada coluna campos com formulas (expressaão) exemplos:
Periodo calculado1 -(menos) periodo calculado2
(espaço p/colocar a data) (espaço p/colocar data)
Periodo calculado3 -(menos) periodo calculado4
(espaço p/colocar a data) (espaço p/colocar data)
Periodo calculado5 -(menos) periodo calculado6
(espaço p/colocar a data) (espaço p/colocar data)
depois que ele faz o resultado da diferença de data depois ele multiplica por 30 com relaçao a um valor mensal “X”, depois do resultado da expressao nessas colunas resultado vai somando um com outro em um campo chamado Credito, sendo que p/ aparecer o resultado no campo crediton tenho q preencher todas as colunas como o campos sao datasn não da nem para colocar a data 00/00/0000 se eu consegui-se isso ja seria o suficiente, só falta isso p/acabar meu trabalho.
Se poder me ajudar te agradeço e parabéns pelo blog Abrç. Thiago
Caso não tenha compreendido poso enviar p/ vc por e-mail desde ja agradeço sua atenção.
Pode utilizar a função NZ
Periodo calculado1 -(menos) nz(periodo calculado2)
Olá José
baixei o teu sistema de vendas, ms possui muitos
para DEPURAR, baixei para fazer sistema de vendas para mim.
grato.
Vocês teriam algum arquivo de exemplo de como utilizar as funções =DPesquisar e =DLookup
Oi, vim conhecer seu blog, e desejar boa tarde
bjsss
aguardo sua visita