[Resolvido]Exportar dados filtrados a partir de um campo do formulário

Boa Tarde!!!

Pesquisei de várias maneiras e não consegui o que pretendo com a filtragem e logo exportação, se alguém puder me ajudar desde já agradeço.
Bom, na minha estrutura tenho o seguinte:

- Uma consulta simples onde tenho o campo ID
     No critério da consulta para o campo ID uso o código: [Forms]![FrmMenuRelatórioSolicitaçãoNota]![Texto]
- Um formulário chamado FrmMenuRelatórioSolicitaçãoNota contendo o campo Dados o campo Texto e o controle Exportar
     No campo Dados vou digitando os Ids que quero na minha consulta pra depois exportar então no evento após atualizar deste campo tenho o código: Me.Texto = Me.Texto & " ou " & Me.Dados, que vai gerando no campo texto uma sequência tipo "ID1 ou ID2 ou ID3, etc..."
     No controle Exportar tenho os seguintes códigos:
         Texto = Mid([Texto], 5), para excluir os primeiros caracteres da sequência pois sempre esta gerando " ou " antes do primeiro ID;
             DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "CstCadastroEquipamentosSolicitaçãoNota", "C:\MFFAplicaçõesAccess\Ceos\Tabelas\Solicitação de Nota" & ".xls", True
   MsgBox "O arquivo: Solicitação de Notas.xls" & " foi salvo no seguinte caminho: C:\MFFAplicaçõesAccess\Ceos\Tabelas", vbOKOnly + vbInformation, "Exportação Concluída com Sucesso!!!"

Até ai ta tudo funcionando porém não exporta para a planilha se no campo texto contiver uma sequência maior do que um ID, não dá erro nenhum apenas o arquivo gerado fica somente com os campos que escolhi sem dados, já se eu deixar apenas um ID no campo texto ele então exporta normalmente as informações daquele ID, o que estou fazendo de errado?

Cria uma combobox pra fazer o filtro.

Se não der certo posta o banco, ou parte dele pra gente poder ajudar.

Isto é o que pretendo.
Descompactar na unidade c:\ para poder utilizar, executar o arquivo ceos dentro da pasta sistema.
https://drive.google.com/file/d/1NkvtDiVsHyzWt5Ibliy1dqOU33Knk3YZ/view?usp=sharing

Nenhuma idéia?

Amigo, baixei o exemplo aqui e à primeira vista eu entendo que o problema está no campo de critério da tua consulta. Tu tá apontando para um campo texto e nenhum registro na tua tabela vai atender a vários critérios como está montado no texto.

Quando tu seleciona mais de um registro o access vai tentar montar uma SQL tipo assim "SELECT is, equipamento, filial FROM cadastroEquipamento WHERE id = '1, 2, 3, 4'"

Posso estar enganado mas aparentemente o problema está aí.

Depois eu vou fazer mais testes aqui.

Uma dica:
No campo critério tenta mudar esse código

Código:

[Forms]![FrmMenuRelatórioSolicitaçãoNota]![Texto]

para esse:

Código:

In([Forms]![FrmMenuRelatórioSolicitaçãoNota]![Texto])

E na caixa de texto do formulário principal tenta montar a sequência assim:

Código:

1; 3; 5

Obs.: Com ponto e vírgula entre cada número e sem ponto e vírgula no final

Resumindo: Se você selecionasse os id's "1, 5, 8 e 12" o campo de o critério no campo ID da sua consulta deveria entender assim:

Código:

In (1;5;8;12)

Na dúvida experimenta colocar esse código no lugar do outro e vê como fica a planilha exportada.

Pronto. Desenvolvi um exemplo usando as tuas tabelas e a tua consulta. Veja aí se está de acordo com o pretendido.

Espero ter ajudado.

Amigo, hoje refatorei o código e dei uma melhorada no visual.
Nessa nova versão, ao invés de usar uma caixa de texto com apenas a informação dos id's eu implementei uma caixa de listagem com todas as informações.
Também implementei um botão para excluir algum item da lista que por ventura tenha incluído sem querer.



Espero ter ajudado.

Obrigado renpv, eu não conseguiria fazer tão perfeito, ficou excelente, obrigado pela ajuda.

Marceff@bol.com.br escreveu:Obrigado renpv, eu não conseguiria fazer tão perfeito, ficou excelente, obrigado pela ajuda.

Valeu. Bons estudos.