[Resolvido]Errro 3061 tá me torturando

olá pessoal!

Já tentei quase tudo, menos o que não sei.

Ao executar o código abaixo me aparace "Erro 3061. Parâmetro insuficiente, era espera 1" na linha em destaque.

Vejam na imagem como fica minha consulta "cst_filtroDisciplinas".

Private Sub btDiscipinas_Click()
Dim rsBuscaDisciplinas  As DAO.Recordset
Dim rsInclueDisciplinas As DAO.Recordset
Dim intFiltroDisciplina As Integer

   Set rsInclueDisciplinas = CurrentDb.OpenRecordset("tbl_turmasDet")
   
  Set rsBuscaDisciplinas = CurrentDb.OpenRecordset("cst_filtroDisciplinas")
           
   rsBuscaDisciplinas.MoveFirst
   
   Do While Not rsBuscaDisciplinas.EOF
       rsInclueDisciplinas.AddNew
           rsInclueDisciplinas!turmaDet_idTurma = Me.turma_id
           rsInclueDisciplinas!turmaDet_idDisciplina = rsBuscaDisciplinas!discDet_idDisc
       rsInclueDisciplinas.Update
       rsBuscaDisciplinas.MoveNext
   Loop
   rsBuscaDisciplinas.Close
   rsInclueDisciplinas.Close
   Set rsBuscaDisciplinas = Nothing
   Set rsInclueDisciplinas = Nothing
   Me.frm_turmasDet.Requery
End Sub

Boa tarde
Reveja os nomes dos campos, algum estará errado

Já verifiquei minuciosamente várias vezes. não consigo ver erro deste tipo.

Resolvi aqui.

Aparentemente o problema era com o critério de filtragem usado na consulta para filtra os dados de outra tabela.
Transformei a consulta em uma consulta CRIAR TABELA e substitui o nome 'cst_filtroDisciplina' pelo nome da tabela criada e deu certo.

grato