|
|
Postada em 25/06/2004 15:19 hs
Cara, eu tenho certeza que coloquei uma barra entre as aspas
vo ve se dessa vez vai:
.ReportFileName = App.Path & IIf(Right$(App.Path, 1) = "", "", "") & "RelGerDivAtivPag.rpt"
---------------------------------------
num foi de novo....
.ReportFileName = App.Path & IIf(Right$(App.Path, 1) = "<barrainvertida>", "", "<barrainvertida>") & Str_Nome & ".rpt"
________________________ Té + Que NIMB role bons Dados! 
|
|
TÓPICO EDITADO
|
|
|
|
|
|
|
|
Postada em 25/06/2004 15:27 hs
fiz assim e deu o mesmo erro. Dim Str_Nome As String
Str_Nome = "RelGerDivAtivPag.rpt"
.ReportFileName = App.Path & IIf(Right$(App.Path, 1) = "", "", "") & Str_Nome & ".rpt" será que a escrita da formula esta correnta, ou seja, primeiro consulta em todos os campos a data inicial e depois consulta em todos os campos a data final. isso nao esta meio confuso??
|
|
|
|
|
|
Postada em 25/06/2004 15:37 hs
Tenta alternar então:
.SelectionFormula = "({CadPagamento.DatPgtParcUnica} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParcUnica} >= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc1} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc1} >= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc2} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc2} >= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc3} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc3} >= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc4} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc4} >= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc5} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc5} >= date(" & Format(Text2.Text, "yyyy,mm,dd") & "))"
Eu não sei mas eu tô sismado que o erro não tá na fórmula...
Eu tentei simular aqui e só deu o erro no .action = 1, pq eu não tenho esse relatório aqui.
________________________ Té + Que NIMB role bons Dados!
|
|
|
|
|
|
Postada em 25/06/2004 15:40 hs
Perai que a fórmula tava errada. É maior e igual a data inicial e menor e igual a data final, né?
.SelectionFormula = "({CadPagamento.DatPgtParcUnica} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParcUnica} <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc1} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc1} <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc2} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc2} <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc3} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc3} <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc4} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc4} <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"({CadPagamento.DatPgtParc5} >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"{CadPagamento.DatPgtParc5} <= date(" & Format(Text2.Text, "yyyy,mm,dd") & "))"
________________________ Té + Que NIMB role bons Dados!
|
|
|
|
|
|
Postada em 25/06/2004 16:21 hs
rapaz, fiz isso, mas nao consegui, uma observacao... Para esse campo que é inserido o valor da data de pagamento, eu formatei no banco de dados como TEXTO, pois, se eu formatar como DATA e digitar uma data e apagar, ele nao aceita valor nulo... e da erro, por isso eu deixei como texto, sera que nao mudaria a forma de pesquisar no banco de dados... ou seja, a data esta no banco como texto... |
|
|
|
|
|
Postada em 25/06/2004 16:52 hs
Olha, eu uso Campo Data/Hora (no ACCESS) normal.
Quando o campo é nulo eu só coloco rcs("Data") = Null
Nunca tive esse problema aí não.
Mas tenta formatar o Campo tb:
.SelectionFormula = "(Date(Format({CadPagamento.DatPgtParcUnica}, 'yyyy,mm,dd')) >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"Date(Format({CadPagamento.DatPgtParcUnica}, 'yyyy,mm,dd')) <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"(Date(Format({CadPagamento.DatPgtParc1}, 'yyyy,mm,dd')) >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"Date(Format({CadPagamento.DatPgtParc1}, 'yyyy,mm,dd')) <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"(Date(Format({CadPagamento.DatPgtParc2}, 'yyyy,mm,dd')) >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"Date(Format({CadPagamento.DatPgtParc2}, 'yyyy,mm,dd')) <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"(Date(Format({CadPagamento.DatPgtParc3}, 'yyyy,mm,dd')) >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"Date(Format({CadPagamento.DatPgtParc3}, 'yyyy,mm,dd')) <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"(Date(Format({CadPagamento.DatPgtParc4}, 'yyyy,mm,dd')) >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"Date(Format({CadPagamento.DatPgtParc4}, 'yyyy,mm,dd')) <= date(" & Format(Text2.Text, "yyyy,mm,dd") & ")) OR " & _
"(Date(Format({CadPagamento.DatPgtParc5}, 'yyyy,mm,dd')) >= date(" & Format(Text1.Text, "yyyy,mm,dd") & ") AND " & _
"Date(Format({CadPagamento.DatPgtParc5}, 'yyyy,mm,dd')) <= date(" & Format(Text2.Text, "yyyy,mm,dd") & "))"
________________________ Té + Que NIMB role bons Dados!
|
|
|
|
|
