Início
Agravina 25/3/2012, 12:55 Bom Dia! como impedir abri relatório se após filtro não contém dados?
2 participantes
[Resolvido]Não abrir relatório sem registros
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Gilberto Rocha- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010
No botão que abre o relatório:
Dim X As String
X = DCount("*", "SuaTabela")
If X <= 0 Then
MsgBox "Não existem dados", vbInformation, "Alerta"
DoCmd.CancelEvent
Exit Sub
Else
Endif
On Error Resume Next
DoCmd.OpenReport "SeuRelatorio", acPreview
DoCmd.RunCommand acCmdZoom75
DoCmd.RunCommand acCmdPreviewEightPages
Dim X As String
X = DCount("*", "SuaTabela")
If X <= 0 Then
MsgBox "Não existem dados", vbInformation, "Alerta"
DoCmd.CancelEvent
Exit Sub
Else
Endif
On Error Resume Next
DoCmd.OpenReport "SeuRelatorio", acPreview
DoCmd.RunCommand acCmdZoom75
DoCmd.RunCommand acCmdPreviewEightPages
Última edição por topbr em 26/3/2012, 02:13, editado 1 vez(es)
Agravina- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1623
Registrado : 18/07/2010
Perfeito Topbr funcionou perfeitamente,agora uso form com criterios de datas , se houver dados cancela o evento abrir relatório.
Valeu obrigado
Valeu obrigado
Gilberto Rocha- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010
Valeus!!
Conteúdo patrocinado
Tópicos semelhantes
» [Resolvido]Caixa de Listagem - Registros [Abrir Cadastro e Relatório]
» [Resolvido]Preencher os registros do detalhe do relatório em modo empilhado no rodapé do relatório
» [Resolvido]Abrir Relatório ao Abrir o Access
» [Resolvido]Filtrar sub relatorio ao abrir um Relatorio Principal
» [Resolvido]Não Abrir Relatório Pop-Up c/ Sub Relatório sem Dados
» [Resolvido]Preencher os registros do detalhe do relatório em modo empilhado no rodapé do relatório
» [Resolvido]Abrir Relatório ao Abrir o Access
» [Resolvido]Filtrar sub relatorio ao abrir um Relatorio Principal
» [Resolvido]Não Abrir Relatório Pop-Up c/ Sub Relatório sem Dados