Este é o código associado ao botão que abre o relatório
Private Sub previsualizar_Click()
Dim criterio As String
On Error GoTo Err_previsualizar_Click
criterio = Me.Filter
If criterio = "" Then
DoCmd.OpenReport "ProcessosDocumentos", acViewPreview
Else
DoCmd.OpenReport "ProcessosDocumentos", acViewPreview, , criterio
End If
Exit_previsualizar_Click:
Exit Sub
Err_previsualizar_Click:
MsgBox Err.Description
Resume Exit_previsualizar_Click
End Sub
Este é o código associado ao relatório
Private Sub Report_Activate()
DoCmd.Maximize
DoCmd.ShowToolbar "Relatorios", acToolbarYes
DoCmd.Close acForm, "ProcessosLDocumentos", acSaveNo
End Sub
Private Sub Report_Close()
DoCmd.ShowToolbar "Relatorios", acToolbarNo
End Sub
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Não existem dados de Processos para visualizar", vbInformation, "A listagem está vazia"
Cancel = True
End Sub