Boa tarde,
estou tentando filtrar um relatório por datas mas não estou conseguindo, onde estará o problema?
No evento ao clicar do botão TodosColaboradores está assim:
'##########################################
Private Sub TodosColaboradores_Click()
Dim StrFilter, DataIni, DataFim
If IsNull(Me.DataInicial) Then
DoCmd.Close
DoCmd.OpenReport "SaidasPorColaborador", acViewPreview
Else
DataIni = Me.DataInicial
DataFim = Me.DataFinal
StrFilter = "'" & "DataDoPedido= " & "Between " & "#" & DataIni & "#" & " AND " & "#" & DataFim & "#" & "'"
DoCmd.Close
DoCmd.OpenReport "SaidasPorColaborador", acViewPreview, , StrFilter
End If
End Sub
'####################################################
O relatório abre com todos os dados como se não houvesse critério, alguém poderia me dizer onde estou errando, e qual a forma correta?
certo da ajuda dos amigos, obrigado!!!
estou tentando filtrar um relatório por datas mas não estou conseguindo, onde estará o problema?
No evento ao clicar do botão TodosColaboradores está assim:
'##########################################
Private Sub TodosColaboradores_Click()
Dim StrFilter, DataIni, DataFim
If IsNull(Me.DataInicial) Then
DoCmd.Close
DoCmd.OpenReport "SaidasPorColaborador", acViewPreview
Else
DataIni = Me.DataInicial
DataFim = Me.DataFinal
StrFilter = "'" & "DataDoPedido= " & "Between " & "#" & DataIni & "#" & " AND " & "#" & DataFim & "#" & "'"
DoCmd.Close
DoCmd.OpenReport "SaidasPorColaborador", acViewPreview, , StrFilter
End If
End Sub
'####################################################
O relatório abre com todos os dados como se não houvesse critério, alguém poderia me dizer onde estou errando, e qual a forma correta?
certo da ajuda dos amigos, obrigado!!!