[Resolvido]Consultas com vários critérios.

Olá. Estou tentando criar uma consulta para gerar um relatório, o resultado desta consulta tem vários critérios da seguinte forma:

Há um campo de controle do tipo Sim/Não que é a chave da consulta. Caso ele seja "falso" já é o primeiro critério.

O problema que preciso resolver são nos seguintes critérios:

No formulário de entrada de dados tenho 13 campos que em alguns caso pode haver os 13 itens ou não.
Ao lado de cada campo, há um campo tipo "Sim/Não", quando este estiver clicado indica que o item deve entrar na lista(relatório) desde que a primeira chave esteja atendendo "falso".

Fico no aguardo da ajuda e agradeço.

Olá amigo.. Deixa eu ver se intendo o que vc quer.. vc quer selecionar um registro através do campo sim/não e enviar para um relatório? Se for crie uma tabela para receber os itens selecionados com os mesmos campos da tabela original, depois crie uma consulta baseada na tabela origina e no campo sim/não coloque critério verdadeiro. no seu formulário creio que tenha um botão para executar o procedimento, se tiver vá em propriedades do botão, eventos, ao clicar e coloque o código.


Dim strSql As String, strSQLBackupDados As String


strSQLBackupDados = "INSERT INTO suatabeleoriginal Select * FROM nomeda consulta"
DoCmd.RunSQL (strSQLBackupDados)

Olá matheuspereira.

Não é bem isso que eu desejo.

Vou tentar esclarecer:

tenho no formulário um campo chamado "item" n vezes ex: item1, item2, etem3 etc...
Ao lado deste campo há outro campo do tipo "sim/não".

Toda  as vezes que o usuário clicar neste campo "sim/nao" ao lado do item, ele tá informando que o item deve entrar na lista(relatório).

o que preciso?  Que o item "tal" apareça no relatório/pesquisa somente se o campo "sim/não" correspondente ex: "Sel1", estiver "verdadeiro".

Não estou conseguindo efetuar esta operação via critério do designe da consulta.

Amigo, se puder poste uma parte de seu bd.

Amigo, tente adaptar este código em seu projeto, e rumo ao que vc quer fazer.. Se não der poste seu bd

coloque sua listbox seleções mutiplas = simples

e no codido ao clicar do listbox supor que seja lista1
Private Sub Lista1_Click()
Dim x As Integer
filtro = "cliente in('"
For x = 0 To Me.Lista1.ListCount - 1
If Me.Lista1.Selected(x) = True Then
filtro = filtro & Me.Lista1.Column(0, x) & "','"
End If
Next
filtro = filtro & "')"
docmd.openreport "seu relatorio",acviewpreview,,filtro 'aqui abre o relatório mas poderia usar este filtro para filtrar o que quizer.

End Sub

Muito obrigado amigo.

Consegui resolver a situação com o código abaixo fornecido pelo nosso amigo Avelino Sampaio.


Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim j
For j = 1 To 13
Me("Pn" & j).Visible = Nz(Me("sel" & j), 0)
Next j
End Sub