Povo, bom dia
Como eu faço para essa ideia funcionar?
São vários campos para filtrar. Primeiro curso_nivel, depois semestre, depois professor, depois dia, depois horário.
Se eu coloco um só, tudo bem. O problema é quando eu tento aplicar o segundo filtro.
Como eu tenho que arrumar o código abaixo?
Private Sub Report_Load()
Dim filtro As String
'Dim filtro1 As String
'Dim filtro2 As String
'Dim filtro3 As String
'Dim filtro4 As String
filtro = "Tab_aulas.Curso_nível = '" & [Forms]![Sub_aulas]!CbocursoNivel.Column(0) & "'"
'filtro1 = "Tab_aulas.ProfPrat = '" & [Forms]![Sub_aulas]!CboprofPrat.Column(0) & "'"
'filtro2 = "Tab_aulas.DiaPrat = '" & [Forms]![Sub_aulas]!CboDiaPrat.Column(0) & "'"
'filtro3 = "Tab_aulas.HorPratIni = '" & [Forms]![Sub_aulas]!CboHorPratI.Column(0) & "'"
'filtro4 = "Tab_aulas.Semestre = '" & [Forms]![Sub_aulas]!SemesAula & "'"
DoCmd.ApplyFilter , filtro
'DoCmd.ApplyFilter , filtro1
'DoCmd.ApplyFilter , filtro2
'DoCmd.ApplyFilter , filtro3
'DoCmd.ApplyFilter , filtro4
DoCmd.Maximize
End Sub
Como eu faço para essa ideia funcionar?
São vários campos para filtrar. Primeiro curso_nivel, depois semestre, depois professor, depois dia, depois horário.
Se eu coloco um só, tudo bem. O problema é quando eu tento aplicar o segundo filtro.
Como eu tenho que arrumar o código abaixo?
Private Sub Report_Load()
Dim filtro As String
'Dim filtro1 As String
'Dim filtro2 As String
'Dim filtro3 As String
'Dim filtro4 As String
filtro = "Tab_aulas.Curso_nível = '" & [Forms]![Sub_aulas]!CbocursoNivel.Column(0) & "'"
'filtro1 = "Tab_aulas.ProfPrat = '" & [Forms]![Sub_aulas]!CboprofPrat.Column(0) & "'"
'filtro2 = "Tab_aulas.DiaPrat = '" & [Forms]![Sub_aulas]!CboDiaPrat.Column(0) & "'"
'filtro3 = "Tab_aulas.HorPratIni = '" & [Forms]![Sub_aulas]!CboHorPratI.Column(0) & "'"
'filtro4 = "Tab_aulas.Semestre = '" & [Forms]![Sub_aulas]!SemesAula & "'"
DoCmd.ApplyFilter , filtro
'DoCmd.ApplyFilter , filtro1
'DoCmd.ApplyFilter , filtro2
'DoCmd.ApplyFilter , filtro3
'DoCmd.ApplyFilter , filtro4
DoCmd.Maximize
End Sub