[Resolvido]Consulta como parâmetro de Recordset

Usei a expressão abaixo para acessar dados de uma tabela e uma consulta.
O acesso à tabela funcionou, mas à consulta não. Isolei a consulta e mesmo assim nada.
Como consertar???

--------------
rs acessa a tabela tblTrabalhador;
qry deveria acessar a consulta qryTrabSalario.
O erro é "Parametros insuficientes. Eram esperados 2."

Dim rs As Recordset, qry As Recordset

Select Case Me.CodEvento1
Case Is = 1
Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblTrabalhador WHERE CodTrabalhador=" & Forms!frmFolha!CodTrabalhador)
Set qry = CurrentDb.OpenRecordset("SELECT * FROM qryTrabSalario WHERE CodEvento1 = " & Me.CodEvento1 & "AND CodTrabalhador = " & Forms!frmFolha!CodTrabalhador)

Me.RefValor = rs!DiasTrab
Me.RefValor2 = rs!HrTrabMes
Me.Valor = qry!Valor

End Select
rs.Close
qry.Close
Set rs = Nothing
Set qry = Nothing

boas
tente alterar as " , coloque no final antes do )
cumps
acao

Boa tarde, rgondim

Será
Set qry = CurrentDb.OpenRecordset("SELECT * FROM qryTrabSalario WHERE CodEvento1 = " & Me.CodEvento1 & " AND CodTrabalhador = " & Forms!frmFolha!CodTrabalhador)

boas
antes do parentese tem que ter sempre ", mesmo na primeira deveria ter ""
cumps
acao


tente assim

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblTrabalhador WHERE CodTrabalhador=" & Forms!frmFolha!CodTrabalhador &";")
Set qry = CurrentDb.OpenRecordset("SELECT * FROM qryTrabSalario WHERE CodEvento1 = " & Me.CodEvento1 & "AND CodTrabalhador = " & Forms!frmFolha!CodTrabalhador &";")
se algum dos campo for texto em vez de "& tem que levar '"&

cumps
acao

boas
o codtrabalhador pertence a tabela qryTrabSalario?

Olá Alexandre, Noberto e acao.

nenhuma das dicas funcionou. Todos os campos envolvidos na função são númericos.

Lembrando que tblTrabalhador é uma tabela e Set rs... acessa ela.
Já qryTrabSalario é uma consulta e Set qry... tenta de acessa.

O problema é que o procedimento não está aceita consulta na cláusula FROM. Retirei WHERE.. para verificar
(Set qry = CurrentDb.OpenRecordset("SELECT * FROM qryTrabSalario") e continua dando o erro:
"Parametros insuficientes. Eram esperados 1."

Como resolver?

Não Norberto, não é esse o problema, a sintaxe está correta.
Atualizei minha resposta anterior. O problema é o fato de estar fazendo referencia a uma consulta.

boas
qual é o «CommandType» que você está a usar


testei assim e funciona

Private Sub cmdConsulta_Click()
Dim com As New Command
'comando sem parâmetros
com.ActiveConnection = CurrentProject.Connection
com.CommandText = "SELECT *FROM Teste where ID = 1"
com.CommandType = adCmdText: Set rst = com.Execute
Texto2.SetFocus
Texto2.Text = rst!nome
com.Cancel

End Sub

cumps
acao

boas
nao esqueça de adicionar a referencia ADO
diga se deu certo senao tenho outra possibilidade.
cumps
acao