✔ Programação GLOBAL®: VBA Access | 🖨️ Como Abrir Relatórios Filtrados de Forma Eficiente

VBA Access | 🖨️ Como Abrir Relatórios Filtrados de Forma Eficiente - How to Open Filtered Reports Efficiently

Automatizar a abertura de relatórios filtrados no Access melhora significativamente a eficiência e a usabilidade das suas aplicações. Com o código VBA apresentado, você pode facilmente personalizar relatórios para atender às necessidades dos seus usuários.

Manipulando Impressoras e Impressões:

Se você achou este artigo útil, compartilhe-o com sua rede e acompanhe o blog para mais dicas sobre VBA e Access!

O Microsoft Access é uma ferramenta poderosa para criar aplicações baseadas em banco de dados. Uma funcionalidade comum é abrir relatórios baseados em filtros aplicados a formulários. Neste artigo, você aprenderá a usar VBA para abrir relatórios filtrados de forma dinâmica e eficiente.

Por que Utilizar VBA para Relatórios Filtrados?

Automatiza o processo de exibição de relatórios.
Reduz erros ao evitar a necessidade de aplicar filtros manualmente.
Melhora a experiência do usuário ao fornecer relatórios precisos e personalizados.

O Código

O exemplo de código abaixo verifica se um filtro foi aplicado ao formulário ativo antes de abrir o relatório correspondente. Caso nenhum filtro esteja presente, uma mensagem é exibida para o usuário.

' **Sub OpenFilteredReport**
' Abre um relatório com base no filtro aplicado ao formulário.
Private Sub cmdOpenReport_Click()
' Declarações de variáveis
Dim reportName As String ' Nome do relatório a ser aberto
Dim formFilter As String ' Filtro aplicado ao formulário

' Nome do relatório
reportName = "rptCustomers"

' Verifica se há um filtro aplicado ao formulário
formFilter = Me.Filter

If formFilter = "" Then
' Exibe uma mensagem caso nenhum filtro esteja aplicado
MsgBox "Por favor, aplique um filtro ao formulário antes de abrir o relatório.", _
vbExclamation, "Filtro Ausente"
Else
' Abre o relatório com o filtro aplicado
DoCmd.OpenReport reportName, acViewReport, , formFilter
End If
End Sub