[Resolvido]Dois ou mais resultados na pesquisa de um campo programados na consulta e não no vba

olá pessoal, tenho uma tabela com "cód" e "nome", tenho um formulário com o campo "digitecódigo" que serve como filtro para um relatório "relatório1" minha dúvida é: como programar uma consulta (criar consulta)para que no campo "digitecódigo" eu possa colocar vários cógigos "cód" (separados por um espaço ou vírgula)e a consulta (criar consulta) possa embasar o relatório?

devo usar a expressão "in"? como programa-la neste caso?

Olá, seja bem vindo ao fórum!

Não entendi o que precisa. Poderia exemplificar?

vou tentar exemplificar: no meu formulário tem um campo que serve como filtro para uma consulta, se coloco o valor "1" ele abre o relatório com o cod "1", porém gostaria de programar a consulta(não vba) para aceitar vários valores diferentes neste campo do formulário.ex:"1","2","5", neste caso o relatório sairia com os cod 1, 2 e 5. tenho que programar na consulta no campo"critérios" e não sei como...

Esse tipo de coisa só mesmo via VBA. É por isso que existe o VBA, para suprir as deficiências de outras áreas. No fórum há exemplos de funções simples para filtrar relatórios de acordo as linhas selecionadas em uma listbox. Eles podem ser adaptados para números de códigos de um campo separados por espaços ou algum caractere. Por exemplo 1 5 28 ou 1;5;28.

será que pelo vba teria como programar sem listbox, fazendo o filtro por um campo? vc podeira me passar o cod vba?e as explicações também.....rsss

Código:

Dim qdfTemp As QueryDef

Set CurrentDb.qdfTemp = .CreateQueryDef("nova consulta", "SELECT * FROM [sua tabela] WHERE [sua tabela].cód) In (" & Me![txtCods] & ";")
CurrentDb.Close

Esse código cria uma consulta chamada "nova consulta", considerando que o mesmo está em um formulário com uma caixa de texto txtCods, onde deverá digitar os códigos na seguinte forma, por exemplo:

"01","05","10"

uma tabela "tabela1" com campo "cód" e "nome", tenho um formulário "formulário1" com o campo "digitecódigo" que serve como filtro para um relatório "relatório1" e botão "abrir formulário"

desculpe meu conhecimento limitado. será possível um dos mestras preencher os comandos vba já com os nomes acima citados.

desde já agradeço.

muito obrigado avelino (já acompanho seu trabalho a algum tempo)!!!!!!!!!!! depois de muito tentar, consegui entender seu código. usei assim:

Private Sub Comando2_Click()
DoCmd.OpenReport "relatório1", acViewPreview, , "Cód in(" & digitecódigo & ")"
End Sub

muito obrigado aos outros mestres que também contribuíram.

Então está resolvido? Se sim, pode clicar no botão Resolvido ali ↓embaixo↓