[Resolvido]relatório com campo de pesquisa de valor multiplo

Fala galera,

Estou começando a mexer em access e estou com umas duvidas. Criei um relatorio com base em uma consulta de pessoas e treinamentos, quando exibo o relatorio aparecem todas as pessoas com seus respectivos treinamentos, eu gostaria que não fosse mostrada todas as pessoas e sim somente as que eu selecionar. Consegui criar um formulario com uma combox onde consigo selecionar uma pessoa e mostrar seus respectivos treinamentos no relatorio ... queria saber um modo de selecionar mais pessoas e exibir no relatorio.


Abraços

Poste a forma que conseguiu com a combo para vermos como adaptar. O processo seria utilizando uma listbox com seleção múltipla ou um formulário contínuo com uma checkbox para a seleção.

Segue abaixo BD.

desde já agradeço pela ajuda.

Candido

Tente seguir os passos abaixo:

1 - Insira uma listbox no formulário;

2 - Vá nas propriedades da combo, aba "Dados", linha "Origem da Linha" e copie a instrução SQL para a mesma propriedade da listbox;

3 - Vá nas propriedades da listbox, aba "Outra", linha "Seleções múltiplas" e escolha "Simples" caso queira selecionar e tirar a seleção linha a linha ou "Estendida" para selecionar e tirar a seleção usando as teclas Shift e/ou Control;

4 - Exclua a macro do botão que abre o relatório;

5 - Abra o evento "Ao clicar" do botão e coloque o código abaixo (estou supondo que a listbox se chama lstFuncionarios):

Código:

Dim Filtro As String, N As Integer

Filtro = "funcionario='"

For N = 0 To Me.lstFuncionarios.ListCount - 1
    If Me.lstFuncionarios.Selected(N) = True Then
        If Filtro = "funcionario='" Then
            Filtro = Filtro & Me.lstFuncionarios.Column(0, N) & "'"
        Else
            Filtro = Filtro & " Or funcionario='" & Me.lstFuncionarios.Column(0, N) & "'"
        End If
    End If
Next

DoCmd.OpenReport "rel_moinho", acPreview, , Filtro

valeu Criquio, o comando funcionou, só que tive q colocar no evento "ao sair" pq "ao clicar" quando eu selecionava uma pessoa, ele já abria o relatorio.

se possivel tire outra duvida minha ... é possivel eu colocar um formulario que atualize varias tabelas ao mesmo tempo?? se sim como posso fazer isso???


Abraços

Seria no "Ao clicar" do botão e não do campo.

Quanto à outra dúvida, nova dúvida, novo tópico. Mas de antemão pesquise por Recordset e Execute que tem alguns tópicos já resolvidos com algumas dicas sobre o assunto.

Se esse está resolvido, favor clicar no botão Resolvido.

valeu criquio

Estou com outra duvida a respeito da abertura do relatório, pelo codigo abaixo ele abre o relatório no modo visualização de impressão. Como faço para que ele abra o relatório mesmo sem ser a visualização para impressão? já tentei mudar o acPreview da ultima linha para acReport mas ele apresenta um erro.


Dim Filtro As String, N As Integer

Filtro = "funcionario='"

For N = 0 To Me.lstFuncionarios.ListCount - 1
If Me.lstFuncionarios.Selected(N) = True Then
If Filtro = "funcionario='" Then
Filtro = Filtro & Me.lstFuncionarios.Column(0, N) & "'"
Else
Filtro = Filtro & " Or funcionario='" & Me.lstFuncionarios.Column(0, N) & "'"
End If
End If
Next

DoCmd.OpenReport "rel_moinho", acPreview, , Filtro


Abraços
Candido

Tente acReport. Após resolver, pode clicar no botão Resolvido.

já tentei acReport mas ele apresenta o erro "2505"

Já tentou acViewReport?

opa acViewReport funcionou ... valeu Criquio

Grato pelo retorno. O fórum agradece.