Pessoal, tava querendo colocar o filtro no botao de abrir um relatorio, mas nao sei inserir o filtro na linha alguem podria me ajudar.

codigo do botao:

Private Sub Imprimir_Click()
'Visualizar Relatorio.

DoCmd.OpenReport "RelatorioTal", acNormal, "", ""

End Sub

o filtro para este relatorio é:

[forms]![inicial]![Mescolaborador] 'para a coluna MES
e
[forms]![inicial]![colaborador] E É Negado Nulo E Negado Entre "func 01" E "func 24" 'para coluna Colaborador


como se insere o filtro ao doCmd...

Valeu

Lourival

olá colega os filtros que uso é assim..

Private Sub imprimir_Click()
On Error GoTo Err_imprimir_Click

Dim stDocName As String

stDocName = "tblPicture2"
DoCmd.OpenReport stDocName, acViewPreview, , "IdPicture=" & Me.IdPicture
Me.Visible = False

Exit_imprimir_Click:
Exit Sub

Err_imprimir_Click:
MsgBox Err.Description
Resume Exit_imprimir_Click

End Sub

eduardo nao é bem assim que gostaria, pois o filtro esta baseando em um formulario aberto que fica oculto ao abrir os reltorios é tipo um formulario principal.

OK

Não seria melhor usar uma consulta na origem do relatório, e aplicar os filtros na consulta?

eu ja uso isso, mas queria complicar as coisas, mesmo assim obrigado pelo interesse

Valeu

Lourival

Seria algo assim:

DoCmd.OpenReport "RelatorioTal", acNormal, "", "[MES] = " & Forms![inicial]![Mescolaborador] & " And [Colaborador] = '" & [Forms]![inicial]![colaborador] & "' And [Colaborador] Not Between 'func 01' And 'func 24' And [Colaborador] Is Not Null"

ou

DoCmd.OpenReport "RelatorioTal", acNormal, "", "[MES] = " & Forms![inicial]![Mescolaborador] & " And [Colaborador] = '" & [Forms]![inicial]![colaborador] & "' And [Colaborador] Not Between 'func 01' And 'func 24' And Not IsNull([Colaborador])"