[Resolvido]Localizar e Imprimir os registros digitados em uma caixa de mensagem.

Bom dia Pessoal,

Eu preciso saber se é possivel em uma MsgBox (caixa de mensagem) eu digitar por exemplo: 1;2;5;10 ou 2-8 como na hora de imprimir que podemos especificar apenas as páginas que queremos visualizar/imprimir. Assim eu colocaria um critério na consulta e ao executar o relatório a msgbox é exibida e eu digito quais registros eu quero visualizar ao invés de ser apenas um ou todos.

Alguém sabe se isso é possível e pode me ajudar?

abraços

Mazon

Olá

Acho que vc deve usar um formulário de critério(s).

No comando para abrir o relatório, chama-se esse formulário de critério:
DoCmd.OpenForm "NomeFormCriterioParaRelatorio"
No form se encontra o campo (ou campos) que define o(s) critério(s) para o relatório, e um botão que abre o relatório com o filtro definido no form de critério aplicado na consulta-base do relatório:
DoCmd.OpenReport "NomeRelatorio", acViewPreview, , "Nome ConsultaBase!NomeCampoCriterio = Forms!NomeFormCriterioParaRelatorio!NomeCampoParaCriterio"

Dependendo da natureza do critério, pode-se usar uma caixa de mensagem para obte-lo:
=CaixaDeEntrada("Texto do corpo da Mensagem.";"Titulo da janela da Mensagem")

Boa Tarde,

Merito, vou verificar se funciona como estou pensando e lhe retorno..

por enquanto, obrigado!

Mazon

Boa Tarde,

Merito o que vc me passou funciona muito bem, mas apenas se eu quiser exibir um relatório filtrado com base no que eu digitei no campo de um formulário. Entretanto o que preciso mesmo é o seguinte: tenho vários funcionários e preciso por exemplo visualizar a ficha de cadastro do funcionário de código (222) e o funcionário de código (333) inserindo estes códigos num mesmo campo para que a ficha apenas destes dois sejam exibidas.

espero ter sido mais claro!

agradeço se puder me ajudar.

Mazon.

Amigo, fiz um exemplo ainda pouco que TALVEZ possa lhe ajudar!
https://www.maximoaccess.com/t26532-formulario-como-filtro-para-consulta
Veja o exemplo... Mostro todos os Produtos(no seu caso os funcionários) e na hora de gerar o relatório o usuário clica em cima de cada funcionário que ele quiser... e manda gerar o relatório...

Agora se, vc realmente quer que o usuario digite o codigo faça assim:

Baseado no exemplo do topico referenciado a cima faça:

Crie um botão e uma caixa de texto (nesse caso txt1) onde o usuario digitara o codigo do funcionario assim: 1,223,100

No comando do Botão devera conter os comandos:

Private Sub Comando5_Click()
'Abre o Relatorio
DoCmd.OpenReport "rel1", acViewReport
'Aplica o resultado da consulta filtrando os codigos digitados no campo txt1.
Reports!rel1.RecordSource = "Select * from tb1 WHERE [Código] in (" & Me.txt1 & ")"

End Sub

Bom dia,

FabioPaes, está perfeito era algo exatamente assim que precisava, muito mais muito obrigado mesmo.

Está Resolvido!

Trabalho de Mestre.

Meus cumprimentos,

Mazon

Que bom que era isso... Postei la no Repositório, se baixou ontem veja la que melhorei implementando sua duvida.