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]Errro 3061 tá me torturando

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Errro 3061 tá me torturando Empty [Resolvido]Errro 3061 tá me torturando

    Mensagem  Ronaldo Costa 21/11/2021, 16:40

    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

    [Resolvido]Errro 3061 tá me torturando Consul10
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8200
    Registrado : 05/11/2009

    [Resolvido]Errro 3061 tá me torturando Empty Re: [Resolvido]Errro 3061 tá me torturando

    Mensagem  Alexandre Neves 21/11/2021, 17:14

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


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Errro 3061 tá me torturando Empty Re: [Resolvido]Errro 3061 tá me torturando

    Mensagem  Ronaldo Costa 21/11/2021, 18:56

    Já verifiquei minuciosamente várias vezes. não consigo ver erro deste tipo.
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Errro 3061 tá me torturando Empty Re: [Resolvido]Errro 3061 tá me torturando

    Mensagem  Ronaldo Costa 21/11/2021, 20:31

    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

      Data/hora atual: 25/9/2022, 15:03