[Resolvido]Como Filtrar Combo Box e Grupo de Opções

Boa tarde,
Tenho procurado executar, uma Combo Box e Filtrar um Grupo de Opções, e não tenho obtido sucesso. Alguem pode me dar uma ajuda, segue em anexo o codigo.

Bem vindo ao fórum...

Filtrar um grupo de opções???

Não sei o que quer, mas costumo usar guias no form para selecionar determinados controles...
Seja o mais claro possível...

Olá David
Estou feliz por estar participando deste Forum, onde possibilita uma discusão de nossas dificuldades em programação em Access.
Minha dificuldade esta em criar um codigo, que filtre os dados de um campo em um relatorio.
Possuo um campo com sinal Débito "D" e Crédito "C", e gostaria de filtrar usando um grupo de opções agrupadas 1 = Débito; 2 = Crédito; 3 = Ambas Opções.
Segue abaixo codigo, que não consegui executar:
Private Sub Comando43_Click()
If opc_PG = 1 Then
DoCmd.OpenReport "Rel_PrestCtas-Todas", acViewPreview
ElseIf opc_PG = 2 Then
DoCmd.OpenReport "Carta_EncProf", acViewPreview
End If
Dim strWhere As String 'Guarda na memoria String Onde
Select Case Me.fraSinal.Value
Case 1
strWhere = "D"
Case 2
strWhere = "C"
Case 3
strWhere = "Like '*'"
End Select
End Sub

Se eu entendi, voce que "agrupar" todos os "D" e os "C" respectivamente?

Exemplo:

Compras

Débito
Compra 1
Compra 3

Crédito
Compra 2
Compra 4


Seria isso que voce quer no relatório?

Certo, David
Alem da seleção p/ Combo Box, quero agrupar Débito ou Crédito ou Ambos, dependendo da opção escolhida.

Qual a versão do seu Access?

Versão 2007

No próprio relatório, na guia Disigner tem o botão Classificar e agrupar. Ao clicar lá, abrirá em baixo do relatório os comandos para agrupar. Agora é só escolher qual campo voce quer agrupar que o access faz o resto para voce...

Irei montar um exemplo, e envio para voce, a opção que eu quero executar não é fixa, ela depende da necessidade.

Boa Noite, David
Segue em link do exemplo
http://dl.dropbox.com/u/19763281/VerbaPublica.zip

E assim?



Private Sub Comando43_Click()
Dim stDocName As String
Dim stLinkCriteria As String
Dim strWhere As String

Select Case Me.fraSinal.Value
Case 1
strWhere = "D"
Case 2
strWhere = "C"
Case 3
strWhere = "Like '*'"
End Select

If opc_PG = 1 Then
stDocName = " Rel_PrestCtas-Todas "
stLinkCriteria = "[SeuCampo]=" & "'" & strWhere & "'"
DoCmd.OpenReport stDocName, acViewPreview , , stLinkCriteria

ElseIf opc_PG = 2 Then
stDocName = Carta_EncProf "
stLinkCriteria = "[SeuCampo]=" & "'" & strWhere & "'"
DoCmd.OpenReport stDocName, acViewPreview , , stLinkCriteria


End If
End Sub

OU assim.. retirei as aspas simples do criterio na abertura do relatorio.. pois o campo a ser comparado é texto

Private Sub Comando43_Click()
Dim stDocName As String
Dim stLinkCriteria As String
Dim strWhere As String

Select Case Me.fraSinal.Value
Case 1
strWhere = "D"
Case 2
strWhere = "C"
Case 3
strWhere = "Like '*'"
End Select

If opc_PG = 1 Then
stDocName = " Rel_PrestCtas-Todas "
stLinkCriteria = "[SeuCampo]=" & "" & strWhere & ""
DoCmd.OpenReport stDocName, acViewPreview , , stLinkCriteria

ElseIf opc_PG = 2 Then
stDocName = Carta_EncProf "
stLinkCriteria = "[SeuCampo]=" & "" & strWhere & ""
DoCmd.OpenReport stDocName, acViewPreview , , stLinkCriteria


End If
End Sub

Isso ja da pra começar a brincar...

O problema aqui e somente no case que direciona para todos...

O melhor é criar uma condição para os dois relatorios..

If Me.ChkBox x = -1 Then
Codigo para o relatorio 1
Else
Código para o relatorio 2
End if


Isso nao fiz..

Mas eis ai

http://dl.dropbox.com/u/26441349/Souza_18_09_11.rar

Cumprimentos

Bom dia, Harysohn

Agradeço sua atenção, gostaria que voce desse uma olhada no modelo que foi postado não consegui gerar os relatorios, apresenta erro no campo "DC", na combobox, data inicio e data fim estão relacionados na consulta, deveria fazer o mesmo para a opção por grupo.

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Ola, Vieira
Não consegui solução para esta pendencia.

D ou C e respectivo relatório já funciona como deseja, veja:

http://dl.dropbox.com/u/8080696/Integrado/VerbaPublicaImplementada.rar

Você poderá tornar invisiveis as textBox'es chamadas "txtVarWhere" e "txtReport"

A parte para filtrar ambas, programe para que toda vez que a opção Ambas for apertada, lhe traga uma janela para que escolha qual dos relatórios. Para isso terá que copiar e colar a sua consulta e reproduzir ambos relatórios que se ligarão a esta nova consulta, dela retire o critério do campo DC e manda abrir.

Boa tarde, Dilson
Grato pelo envio, e solução do programa.

Caro Vieira
Pode dar baixa como resolvido.

A função chamada "ConfiguraValor" utilizada na solução foi postada há um tempo atraz por Plinio Mabesi em resposta em outra situação ocorrida no expertAccess.

Alegres por ter dado certo no seu caso Disponha sempre!