ERRO COM RELATÓRIO NO CRYSTAL
boa noite pessoal!
ta gerando um erro na selection formula
o que pode ta acontencendo?
obrigado
Private Sub Command3_Click()
Me.MousePointer = vbHourglass
[ô]Criterio = Chr$(39) & Combo1.Text & Chr$(39)
[ô]Criterio1 = Chr$(39) & Combo3.Text & Chr$(39)
Comando = [Ô]DATA;-;true[Ô]
CrystalReport1.ParameterFields(0) = Comando
CrystalReport1.ReportFileName = App.Path + [Ô]\Romaneio_Receitas.rpt[Ô]
CrystalReport1.DataFiles(0) = App.Path + [Ô]\Banco_Agro_Gestao.mdb[Ô]
Filtro = [Ô]({Lancamento_Receitas.Ano_agricola}=[Ô] & [Ô][ô][Ô] & MaskEdBox4.Text & [Ô][ô])[Ô]
If Text2.Text <> Empty Then
Filtro = Filtro & [Ô] AND ({Lancamento_Receitas.Discriminacao_Receita}=[Ô] & [Ô][ô][Ô] & Text2.Text & [Ô][ô])[Ô]
End If
If MaskEdBox1.Text <> Empty Then
Filtro = Filtro & [Ô] AND {Lancamento_Receitas.Data_Vencimento}=[Ô] & [Ô][ô][Ô] & MaskEdBox1.Text & [Ô][ô][Ô]
End If
MsgBox Filtro
CrystalReport1.SelectionFormula = Filtro
[ô]CrystalReport1.SelectionFormula = [Ô]{Lancamento_Receitas.Local}=[Ô] & [Ô][ô][Ô] & Combo1.Text & [Ô][ô] and {Lancamento_Receitas.Ano_agricola}=[Ô] & [Ô][ô][Ô] & MaskEdBox4.Text & [Ô][ô] and {Lancamento_Receitas.Conta}=[Ô] & [Ô][ô][Ô] & Combo3.Text & [Ô][ô][Ô]
CrystalReport1.WindowTitle = [Ô]Romaneio Despesas[Ô]
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
Me.MousePointer = vbDefault
End Sub
ta gerando um erro na selection formula
o que pode ta acontencendo?
obrigado
Private Sub Command3_Click()
Me.MousePointer = vbHourglass
[ô]Criterio = Chr$(39) & Combo1.Text & Chr$(39)
[ô]Criterio1 = Chr$(39) & Combo3.Text & Chr$(39)
Comando = [Ô]DATA;-;true[Ô]
CrystalReport1.ParameterFields(0) = Comando
CrystalReport1.ReportFileName = App.Path + [Ô]\Romaneio_Receitas.rpt[Ô]
CrystalReport1.DataFiles(0) = App.Path + [Ô]\Banco_Agro_Gestao.mdb[Ô]
Filtro = [Ô]({Lancamento_Receitas.Ano_agricola}=[Ô] & [Ô][ô][Ô] & MaskEdBox4.Text & [Ô][ô])[Ô]
If Text2.Text <> Empty Then
Filtro = Filtro & [Ô] AND ({Lancamento_Receitas.Discriminacao_Receita}=[Ô] & [Ô][ô][Ô] & Text2.Text & [Ô][ô])[Ô]
End If
If MaskEdBox1.Text <> Empty Then
Filtro = Filtro & [Ô] AND {Lancamento_Receitas.Data_Vencimento}=[Ô] & [Ô][ô][Ô] & MaskEdBox1.Text & [Ô][ô][Ô]
End If
MsgBox Filtro
CrystalReport1.SelectionFormula = Filtro
[ô]CrystalReport1.SelectionFormula = [Ô]{Lancamento_Receitas.Local}=[Ô] & [Ô][ô][Ô] & Combo1.Text & [Ô][ô] and {Lancamento_Receitas.Ano_agricola}=[Ô] & [Ô][ô][Ô] & MaskEdBox4.Text & [Ô][ô] and {Lancamento_Receitas.Conta}=[Ô] & [Ô][ô][Ô] & Combo3.Text & [Ô][ô][Ô]
CrystalReport1.WindowTitle = [Ô]Romaneio Despesas[Ô]
CrystalReport1.WindowState = crptMaximized
CrystalReport1.Action = 1
Me.MousePointer = vbDefault
End Sub
Faça seu login para responder