[Resolvido]Parâmetro insuficiente. Eram esperados 1

Olá pessoal!

Peço que me orientem em relação ao erro que aparece na execução da linha neste código. Já vi alguns tópicos no fórum, mas não me serviu.

A consulta "cst_filtroFamilia" possui 3 campos: ID, NOME e PARENTESCO

Dim dbs As Database
Dim StrSQL As String

   Set dbs = CurrentDb
   StrSQL = "SELECT * FROM cst_filtroFamilia"
   Set Rst = dbs.OpenRecordset(StrSQL)
   familiares = ""
   Do While Not Rst.EOF
       todosFamiliares = familiares & " | " & familiares
       Rst.MoveNext
    Loop
   MsgBox todosFamiliares
   Exit Sub

Bom dia,

A variável "Rst" não está declarada.
A não ser quer já esteja declarada no inicio, como pública do formulário.

Segue instruçao:

Dim Rst as DAO.Recordset


tente isso.

[]'s


FIM

Grato pela atenção, mas continua o erro!

acredito que o erro esteja aqui:

todosFamiliares = familiares & " | " & familiares

O correto é:

todosFamiliares = familiares & " | " & Rst("NOME")

É ISSO

fim

Estamos no mesmo caminho.

1) troquei a consulta por uma tabela temporária que é criada antes da execução do código. O erro não apareceu mais.

2) Sua observação no código: 'todosFamiliares = familiares & " | " & Rst("NOME")' casou com o que eu tinha feito antes de ver essa sua resposta.

mas, deixe eu lhe dizer qual a minha intenção:

Suponhamos que a tab temporária filtre os nome de 3 parentes, pois esta é a função dela. Eu gostaria de em "msgbox todos os familiares" apresentar os nomes dos três.

Entende?

Alexandre, eu consegui. Mudei a linha conforme abaixo.

todosFamiliares = familiares & " | " & Rst("NOME")

por

todosFamiliares = todosFamiliares & " | " & Rst("NOME")


MAS... só mais uma coisinha...

O valor de todos os familiares que inserir em uma tbl_alunos, no campo 'alu_familiares' desta tabela.
Estou usando o código abaixo, mas está dando erro de sintaxe.

CurrentDb.Execute "UPDATE tbl_alunos SET alu_familiares =" & todosfamiliares & "where alu_id = " & Me.familia_id_aluno

A instrução estava errada. Segue correta:

Código:



CurrentDb.Execute "UPDATE tbl_alunos SET alu_familiares ='" & todosfamiliares & "' WHERE alu_id = " & Me.familia_id_aluno &""



O WHERE estava "colado" com a variável.
E quando se trata de string não pode esquecer do APÓSTROFO (') para separá-las.

é isso

[]'s

FIM

Tudo certo. Obrigado!

Valeu Ronaldo...
O fórum agradece.

Boa sorte e sucesso!!