[Resolvido]Recordset de consultas prontas

Boa noite pessoa.
Tenho uma consulta pronta e quero criar um recordset a partir dela.
O critério da consulta é fornecido por uma chave fornecida em um form e a consulta é o recordsource do subform. Até ai tudo funciona bem.
Mas quando tento criar um recordset desta consulta só estou encontrando erro.

-Tentativa
dim cn as adodb.connection
dim rs as adodb.recordset
set cn=currentproject.connection
set rs=new adodb.recordset
rs.open "qryTeste",cn,,adcmdtable

Erro: Nenhum valor foi fornecido para um ou mais parâmetros necessários.

Tentei (considerando qye uma consulta fosse um procedimento armazenado)
rs.open "qryTeste",cn,,adcmdstoredproc

Erro: Parâmetros insuficientes. Eram esperados 1

-com DAO
dim db as dao.database
dim rs as dao.recordset
set db=currentdb
set rs=db.openrecordset("qryTeste",dbopendynaset)

Erro: Parâmetros insuficientes. Eram esperados 1

-novamente

dim db as dao.databse
dim rs as dao.recordset
dim qryA as dao.querydef
set db=currentdb
set qryA=db.querydef("qryTeste")
set rs=db.openrecordset(qryA)

Erro: Tipos incompatíveis.

Nota : qryTeste é o nome da consulta.
Alguém poderia me mostrar onde estou errando. Desde já agradeço.

Boa tarde Plínio,

Sugestão:
Abra a Consulta no modo estrutura, no campo que você quer usar para fazer sua pesquisa, na propriedade 'Critério:' coloque: Como "*" & [Forms]![Nome_do_seu_Formulário]![Localizar] & "*"
Crie no formulário uma 'Caixa de texto' e dê o nome de 'Localizar' para coincidir com o procedimento anterior.
Clique com o botão direito neste controle e depois em 'Propriedades'.
Na propriedade 'Ao apertar tecla', abra o console do VBA e coloque:
If KeyCode = 13 Then
Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim str As String

str = "SELECT [Nome_da_Consulta].[Nome_do_Campo] FROM [Nome_da_Tabela] WHERE [Nome_do_Campo] Like '*" & [Forms]![Nome_do_Formulário]![Localizar] & "*' ;"

Set db = CurrentDb()
Set rs = db.OpenRecordset(str)
End if

Observação: Na hora que rodar a tela para testar, digite o que procura e tecle ENTER.

Boa tarde Clynton.
Obrigado por responder-me.
Fiz como sugeriu, exceto que na instrução "from [nome da tabela]" eu coloquei o nome da consulta, qryTeste e o campo da consulta o nome do campo de pesquisa da consulta.
Nesta tentativa deu o erro: Parâmetros insuficientes. Eram esperados 3.

Como ficou a string
str = "SELECT [qryTeste].[MovtoEstProdID] FROM [qryTeste] WHERE [MovtoEstProdID] Like '*" & [Forms]![frmMovtoEstoqueProdutosSai]![MovtoEstProdID] & "*' ;"

critério colocado no campo MovtoEstProdID da consulta
Como "*" & [Formulários]![frmMovtoEstoqueProdutosSai]![MovtoEstProdID] & "*"

Não sei porque dá este erro se a consulta não é com parâmetros. Será que não deveria deixar o campo de critério da consulta sem nada?

Plínio, você poderia anexar seu BD com os objetos envolvidos para eu analisar?

Vou providenciar isto. Minha duvida fica na questão do tipo de arquivo de compactação, pois o que tenho é rar e me parece que aqui tem que ser zip.
Quase todas as formas de abrir o recordset que segui foram tiradas do site da Microsoft e mesmo assim não funcionaram e este problema não é relatado.
Ontem fiz um teste mudando a consulta que é feita encima de 3 tabelas para uma tabela apenas e ocorreu o mesmo erro. Parece ser uma questão de sintaxe.
Hoje vou fazer um roteiro meio burro. Vou inserir os dados da consulta em uma tabela temporária e depois criar o recordset. Vamos ver.
De qualquer forma é importante descobrir a origem deste erro pois já vasculhei a internet e sempre citam problemas de sintaxe, mas nada explicito.

Estou com parte do bd pronto e em rar.
Como passo ele para zip manualmente? Renomeando e trocando a extensão?

Esta anexado. Ve se abre.
O formulário para uso é: frmMovtoEstoqueProdutosSai

Não veio o BD.

Estou em duvida quanto ao processo.
Seleciono o arquivo em Procurar...
Enviar Consulta? Cliquei e o arquivo selecionado sumiu.
Pressiono Enviar normalmente?

Lembrando que o arquivo tem que estar com a extensão ZIP, clica em 'Responder', logo abaixo você clica em 'Selecionar arquivo', após selecionar, clique em 'Enviar dados' e após carregar, clique logo abaixo em 'Enviar'.

Veja se chegou o arquivo.
Fiz na sequencia me informou.

Não, o arquivo não veio.

Ve se recebeu o arquivo agora.
Se não foi desta vez eu vou encerrar este post pois como não consegui resolver o problema procurei por uma solução alternativa e deu certo.
Mas gostaria de saber qual a causa do erro.

Ainda não recebemos o arquivo, tente hospedar por exemplo no dropbox e mandar o link pelo post para que possamos fazer o download e a devida análise.

Bom dia.
Segue link:

https://www.dropbox.com/s/uk7t0dx4sbbuj0d/BDMaximo.accdb?dl=0

Bom dia Clynton.
Conseguiu acessar a dropbox?

Olá,

O botão "TESTE" no formulário "frmMovtoEstoqueProdutosSai" está funcionando, o erro mencionado só ocorre quando não é informado o "Pedido Nº" antes de clicar no botão.

Obrigado pelo retorno.
O valor para Pedido Nº é passado de outro form via procedimento como um argumento, ou, como no arquivo enviado, digitado manualmente.
Vou tentar novamente usando este mesmo arquivo e ver se não ocorre o erro. Este arquivo é parte de um projeto maior e eu não testei ele isoladamente. Retorno tão logo eu tenha testado.

Peguei o mesmo bd que enviei para voces e fiz o teste aqui.
Dá o mesmo erro. "Parâmetros insuficientes. Eram esperados 1."
Alguma coisa relacionada a alguma configuração?

Também baixei o mesmo arquivo novamente.

Digitei 10 no Pedido Nº, cliquei no botão Teste e o formulário foi preenchido com dois registros, sem ocorrer o erro mencionado.

E foi criada a tabela temporária a partir da consulta?
Eu digito o numero do pedido e a listbox é preenchida. Mas o recordset não é criado a partir da consulta. Gera erro de parâmetros insuficientes.
Meu access é 2010.

No evento do botão Teste não há nada referente a criação de tabela temporária.
Após preencher a listbox, a consulta qryMovtoEstoqueProdutosSai apresenta os dois registros.
É isso a que você se refere?

Boa tarde Claudio.
No evento Ao Clicar do botão Teste tem uma rotina para criar um recordset de uma consulta.
Quando clico no botão aciona esta rotina:

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Set db = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "qryMovtoEstoqueProdutosSai", db, , , adCmdStoredProc
rs.MoveLast
rs.MoveFirst

Com ela eu criaria um recordset baseado na consulta. Mas dá o erro: Parametros insuficientes.Eram esperados 1.

Claudio.
Tenho um enrosco a resolver e mesmo violando um pouco os critérios do forum, até porque não sei nem como daria um nome a este enrosco, transcrevo ele neste espaço, e espero que me perdoe pela violação das regras.
Tenho uma tabela onde cadastro todos os insumos utilizados na produção. Vamos chamá-la de CadastroInsumos e nela registrar os produtos cujos códigos seriam: A;B;C;D e E com suas respectivas chaves primárias.
Tenho uma outra tabela, que podemos chamar de MovtoEntradaInsumos, onde é registrado cada aquisição de insumos. Nela eu teria a data do movimento de entrada, a chave do insumo e a quantidade.
Preciso obter uma consulta, pré formatada no access ou uma SQL (podendo até criar uma tabela temporária do resultado), onde eu some todas as entradas de cada insumo a partir de uma data até a data atual. Eventualmente pode ocorrer de algum insumo não ter sido adquirido naquele período de consulta e não constar na consulta. Neste caso, a consulta retornaria a chave do insumo e/ou código com a quantidade "0" (zero) .
Seria algo como:
Insumos cadastrados:
A
B
C
D
E

Soma das quantidades de cada insumo adquirido no período:
A=5
C=10

Resultado da consulta:
A=5
B=0
C=10
D=0
E=0

A estrutura do resultado é importante pois tenho uma tabela de EstoqueInsumos com os saldos contabilizados (inclusive quando a quantidade é zero). Na atualização do estoque eu somo o saldo com as quantidades que entraram e faço a atualização.
Como disse, não importa o caminho, consultas prontas, instruções SQL, tabelas temporárias ou recordsets ou qualquer outro caminho que desconheço rssss, desde que chegue a este resultado.
Se puder dar uma luz eu agradeço.

Então, se com o método que está tentando aplicar vai obter o resultado esperado, basta informar "Pedido Nº" antes de clicar o botão "Teste".

Agradeço a todos que procuraram de alguma forma solucionar este problema. Como em outros pc´s o problema não acontece mas acontece no meu, acredito que seja algum problema de configuração.
Sempre que eu tento criar um recordset de uma consulta eu tenho este erro de parâmetros insuficientes. A saída que encontrei foi criar uma tabela temporária da consulta e depois um recordset desta tabela. Como atende minhas necessidades vou dar este tópico como encerrado.