MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 13/03/2011

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Ronaldo Costa Qui 12 Ago - 10:40

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Alexandre Fim Qui 12 Ago - 10:55

    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



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Setinf11
    Sistemas e Tecnologia Ltda
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 13/03/2011

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Ronaldo Costa Qui 12 Ago - 11:06

    Grato pela atenção, mas continua o erro!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Alexandre Fim Qui 12 Ago - 11:30

    acredito que o erro esteja aqui:

    todosFamiliares = familiares & " | " & familiares

    O correto é:

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

    É ISSO

    fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Setinf11
    Sistemas e Tecnologia Ltda
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 13/03/2011

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Ronaldo Costa Qui 12 Ago - 11:48

    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?
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 13/03/2011

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Ronaldo Costa Qui 12 Ago - 11:57

    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
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Alexandre Fim Qui 12 Ago - 12:18

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Setinf11
    Sistemas e Tecnologia Ltda
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 13/03/2011

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Ronaldo Costa Qui 12 Ago - 13:47

    Tudo certo. Obrigado!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Empty Re: [Resolvido]Parâmetro insuficiente. Eram esperados 1

    Mensagem  Alexandre Fim Qui 12 Ago - 13:58

    Valeu Ronaldo...
    O fórum agradece.

    Boa sorte e sucesso!!


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Parâmetro insuficiente. Eram esperados 1 Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: Sab 1 Out - 12:26