[Resolvido]Filtro em relatório usando a propriedade TAG e SQL

Prezados,

Fiz uma automatização em um formulário que quando escolho o relatório de uma lista aparece algumas escolhas para preencher (tipo, data inicial, data final etc..).

Essas escolhas eu coloquei no TAG (marca) do relatório e quando eu mando visualizar, eu busco neste TAG também quais os campos que devo colocar na string SQL.

Está funcionando muito bem.

Mas preciso escolher entre dois campos quando uma das escolhas for um certo valor.
Tentei colocar na TAG um " Case When" mas dá erro na SQL.

Alguem pode me ajudar?

A paz

Coloque o código completo para ver se entendemos melhor. Para mim ficou meio confuso.

Evento no formulario:
Private Sub btImprimir2_Click()
Dim n As Integer
Dim dadosFiltro
Dim ctl As control
Dim a As Integer
'Conto a quantidade de campos usados como filtros
QuantFiltro = 0
For Each ctl In [Formulario Filtro Relatorio].Controls
a = ctl.ControlType
If a = acTextBox Or a = acComboBox Or a = acOptionGroup Then
QuantFiltro = QuantFiltro + 1
End If
Next ctl
If IsNull(Me!cboLista.Value) Or (Me!cboLista.Value) = "" Then
MsgBox "Selecione um relatório da lista...", vbInformation, "Aviso"
Exit Sub
End If
Dim strSql As String, intCounter As Integer
' Build SQL String.
IndiceVetor = 0
For intCounter = 1 To QuantFiltro
If Not [Formulario Filtro Relatorio]("Filter" & intCounter).Locked Then
IndiceFiltro = intCounter
n = IndiceVetor + (QuantFiltroReal)
If [Formulario Filtro Relatorio]("Filter" & intCounter) <> "" Then
If [Formulario Filtro Relatorio]("Filter" & intCounter).Name = "Filter1" Or [Formulario Filtro Relatorio]("Filter" & intCounter).Name = "Filter2" Then
dadosFiltro = fncAcertaData([Formulario Filtro Relatorio]("Filter" & intCounter).Value)
ElseIf [Formulario Filtro Relatorio]("Filter" & intCounter).Name = "Filter8" Then
dadosFiltro = [Formulario Filtro Relatorio]("Filter" & intCounter)
Else
dadosFiltro = Chr(34) & [Formulario Filtro Relatorio]("Filter" & intCounter) & Chr(34)
End If
strSql = strSql & Vetor1(n) & dadosFiltro & " And "
End If
IndiceVetor = IndiceVetor + 1
End If
Next
'Retiro o ultimo AND.
If strSql <> "" Then
strSql = Left(strSql, (Len(strSql) - 5))
End If
DoCmd.OpenReport Me!cboLista.Column(0), acViewReport, , strSql
End Sub

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Tag nos relatórios

1,2,3,4,[DataMovimento]>=,[DataMovimento]<=,[tipomovimento]=,[respmovimento]=


Tag que tentei alterar

1,2,5,8,"case [Filtradata] when 1 then [datavencimento]>= when 2 then [datapagamento]>= end",[datavencimento]<=,[fornecedornf]=,[FiltraData]=

A Paz

E aí amigo, conseguiu resolver?

Prezado Criquio,

Ainda não resolvi. Fiquei na esperança de vc com o código, poder ter uma idéia.

Mas não desisti. Ainda aceito sugestões.

A Paz

Boa noite, ruiborges
Explique o que quer dizer com

Tag nos relatórios

1,2,3,4,[DataMovimento]>=,[DataMovimento]<=,[tipomovimento]=,[respmovimento]=


Tag que tentei alterar

1,2,5,8,"case [Filtradata] when 1 then [datavencimento]>= when 2 then [datapagamento]>= end",[datavencimento]<=,[fornecedornf]=,[FiltraData]=

A TAG ou Marca são dados extras que podemos armazenar com o objeto, no caso, com o relatório. Está na folha de propriedades do relatório na guia "outra" (access 2007).

A paz

Boa noite,

E a explicação do resto?

Tag nos relatórios
1,2,3,4,[DataMovimento]>=,[DataMovimento]<=,[tipomovimento]=,[respmovimento]=

Esses são os dados que coloco na TAG do relatório e funciona perfeitamente


Tag que tentei alterar
1,2,5,8,"case [Filtradata] when 1 then [datavencimento]>= when 2 then [datapagamento]>= end",[datavencimento]<=,[fornecedornf]=,[FiltraData]=

Esses são os novos valores que tentei colocar na TAG que deram erro.


A paz

Amigão, isso está bastante confuso. Explique melhor o que você precisa fazer.

Bem...
Acho que não sei explicar melhor.
Já coloquei as informações nas postagens anteriores, inclusive o código.
Para mim está muito difícil de resolver.
Mas mesmo assim obrigado.
A paz

Amigo, explique a lógica do que você espera dessas linhas. Quando a linha for alguma coisa, deve retornar algo de alguma maneira.

1,2,3,4,[DataMovimento]>=,[DataMovimento]<=,[tipomovimento]=,[respmovimento]=

Nessa linha acima,o que quer dizer cada número e cada campo quando "maior ou igual" ou "menor ou igual"? Na outra linha, o que deveria acontecer que não está acontecendo?

Explique a função desses caracteres para ver se entendemos melhor.

Vamos lá.
Fiz um formulário que me da a possibilidade de escolher qualquer relatório que adiciono ao sistema, através de uma combo.

Neste formulário existem campos variados que insiro dados para os filtros dos relatórios.
Por exemplo: Data de inicio; Data de fim; Responsável e etc..
Esses campos podem ser digitados,em combos ou em caixa de seleção.
São campos quase todos comums aos relatórios.

Armazenei uma string na TAG dos reatórios e coloco esta string em um vetor que me diz o seguinte:
Ex: 1,2,3,4,[DataMovimento]>=,[DataMovimento]<=,[tipomovimento]=,[respmovimento]=
Os números 1,2,3,4 representam um índice de quais campos vou utilizar do formulario.
Os dados seguintes são as strings (com os nomes dos campos dos relatórios específicos) que vou colocar dentro da SQL para a filtragem.
as virgulas separam os os campos.

Com os indices dos campos varro o formulário e verifico se ele tem algum dado digitado pelo usuário (chamei os campos de campo1; campo2; etc..).
Vou armazenando esses dados coletados na SQL
ex: [datamovimento]>=01/03/2012 and [datamovimento]<=10/03/2012 and [tipomovimento]="" and [respmovimento]="Rui Borges"

O que eu quero fazer é saber qual foi a escolha do usuário em um "grupo de opções" e adiciona-lo a SQL.
ex:1,2,5,8,"se a escolha for 1 então ([datavencimento]>=) se for 2 então ([datapagamento]>=)",[fornecedornf]=,[FiltraData]=

Se o usuario escolher a opção 1, significa que escolheu filtrar por "data de vencimento".
Se escolheu 2, escolheu filtrar por "data de pagamento"
Preciso que entre a SQL ou só "[datavencimento]>=" ou só "[datapagamento]>=".

Está tudo funcionando, mas não consigo fazer esta escolha para colocar dentro da SQL.

Pode me ajudar?

Muito obrigado. A Paz.

Boa noite, rui

Parece-me, à primeira vista, que está a embrulhar um bocado. Mas, para facilitar na parte que necessita, utilize a função IIF

Usei o IIF deu o seguinte erro:

Erro de sintaxe (operador faltando) na expressão de consulta "iif([Filtradata]=1;"[datavencimento]>=";"[datapagamento]>=)"#1/1/2012# And [datavencimento]<=#1/30/2012# And [FiltraData]=1

Relativamente ao IIf
iif([Filtradata]=1;"[datavencimento]>=";"[datapagamento]>=")

Tópico resolvido, por falta de retorno atempado.