[Resolvido]OpenRecordset - Parâmetros insuficientes

Senhores, preciso da ajuda de vocês...

Tenho o seguinte código abaixo:

Código:


Dim db As DAO.Database
Dim rsSQL As DAO.Recordset


Set db = CurrentDb
Set rsSQL = db.OpenRecordset("SELECT * FROM tabela_export WHERE (((tabela_export.id)=[forms]![forms_select]![id_tabela_simulacao_export]) AND ((tabela_export.id_função)=[forms]![forms_select]![tabela_funcoes_id]))", dbOpenDynaset)

rs.Edit

rs![Quantidade] = Me.Quantidade

rs![Salario Total] = Me.sal_total

rs.Update
rs.Close
db.Close
Set db = Nothing

DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNext


O erro que aparece é : "Erro em tempo de execução '3061' Parâmetros insuficientes. Eram esperados 2." E é marcada a linha: "set rsSQL = ..."

Já procurei no fórum mas por mais que tivesse encontrado uma citação do erro, a resolução foi para outro caminho que não se aplica no meu caso.
Desde já agradeço!

Olá André, bem-vindo ao fórum.

Veja as alterações efectuadas e teste:

Código:

    Dim db As DAO.Database
    Dim rs As DAO.Recordset 'rectificado
    Dim strSQL As String 'novo
       
    Set db = CurrentDb
    strSQL = "SELECT * FROM tabela_export WHERE (((tabela_export.id)=[forms]![forms_select]![id_tabela_simulacao_export]) AND ((tabela_export.id_função)=[forms]![forms_select]![tabela_funcoes_id]))" 'alterado , ficou só a instrução sql
   
    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset) 'parte que já tinha mas tem a instrução sql na variavel strSQL
   
    rs.Edit
   
    rs![Quantidade] = Me.Quantidade
   
    rs![Salario Total] = Me.sal_total
   
    rs.Update
    rs.Close
    db.Close
    Set db = Nothing
   
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNext

Não testado.
Abraço

ahteixeira primeiramente muito obrigado pelas boas vindas e por me responder!

O código que me passou aparece a mesma mensagem porém agora informa que eram esperados 3 e não 2 como antes.

Olá, foi lapso meu, repare que tem na instrução de Sql campos do formulario.
Teste assim:

Código:

strSQL = "SELECT * FROM tabela_export WHERE tabela_export.id = " & [Forms]![forms_select]![id_tabela_simulacao_export] & " AND  tabela_export.id_função = " & [Forms]![forms_select]![tabela_funcoes_id] & ";"

Abraço

Obrigado mestre! Funcionou perfeitamente!

Obrigado pela atenção!!

Olá André, obrigado pelo retorno.
Abraço