MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Inserir registros em tabela com subformulário contínuo

    avatar
    jachornung
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 17/08/2020

    Inserir registros em tabela com subformulário contínuo Empty Inserir registros em tabela com subformulário contínuo

    Mensagem  jachornung em 6/11/2020, 14:07

    Olá pessoal!

    estou com o seguinte problema: meu formulário possui um subformulário continuo, onde tenho 3 campos (caixas de texto) que serão preechidos quantas vezes for necessário, por exemplo, posso preencher apenas 1 linha, como também posso preencher 10 linhas.

    O código abaixo está funcionando, porém quando grava os dados na tabela, ele repete a última linha preenchida, e as linhas anteriores não gravam o campo IDRelatorio2.

    Obs.: o txt_IDRelatorio2 é um novo cadastro e já vem preenchido automaticamente com o novo código que foi preenchido em outro campo na página anterior, além de ser um campo referenciado de outra tabela.

    Código:
    Private Sub btn_ProximaPaginaItens_Click()
        
        Dim rs As DAO.Recordset
        Set rs = CurrentDb.OpenRecordset("tblListaInterfacesPorRelatório")
        
        If Not rs.BOF Then
        
        rs.AddNew
        
        rs![InterfaceA] = Me!subfrmCadastroInterfaces!txt_InterfaceA
        rs![InterfaceB] = Me!subfrmCadastroInterfaces!txt_InterfaceB
        rs![IDRelatorio2] = Me!subfrmCadastroInterfaces!txt_IDRelatorio2
        
        rs.Update
        
        Me.GuiaCadastroNovoRelatorio.Pages("Cadastro de Itens").SetFocus
        
        End If
        
        rs.MoveNext
        
        Me!subfrmCadastroInterfaces.Enabled = False
              
        rs.Close: Set rs = Nothing

    End Sub
    avatar
    jachornung
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 17/08/2020

    Inserir registros em tabela com subformulário contínuo Empty Re: Inserir registros em tabela com subformulário contínuo

    Mensagem  jachornung em 9/11/2020, 11:23

    Alguém teria ideia de como resolver meu problema?
    avatar
    jachornung
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 17/08/2020

    Inserir registros em tabela com subformulário contínuo Empty Re: Inserir registros em tabela com subformulário contínuo

    Mensagem  jachornung em 11/11/2020, 20:46

    Eu alterei o código conforme abaixo, porém agora se eu incluir mais de 1 linha, todas as linhas ficam com a mesma informação da última linha preenchida.

    Código:
    Dim rs As DAO.Recordset
        
        Set rs = Me!subfrmCadastroInterfaces.Form.RecordsetClone
        
        rs.MoveFirst
        Do While Not rs.EOF
            rs.Edit
            rs![InterfaceA] = Me!subfrmCadastroInterfaces!txt_InterfaceA
            rs![InterfaceB] = Me!subfrmCadastroInterfaces!txt_InterfaceB
            rs![NumRelInterfaces] = Me!txt_NúmeroRelatório
            rs.Update
            rs.MoveNext
        Loop

    Agradeço muito se alguém se dispuser em me ajudar!
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 236
    Registrado : 19/08/2010

    Inserir registros em tabela com subformulário contínuo Empty Re: Inserir registros em tabela com subformulário contínuo

    Mensagem  marcelo3092 em 11/11/2020, 20:51

    Melhor vc posta parte do projeto
    Para entender melhor como tá a estrutura
    Nesse caso geralmente se faz a inserção pelo formulário no subformularios e ao adicionar pede um
    Requery do subformulario
    avatar
    jachornung
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 9
    Registrado : 17/08/2020

    Inserir registros em tabela com subformulário contínuo Empty Re: Inserir registros em tabela com subformulário contínuo

    Mensagem  jachornung em 11/11/2020, 21:43

    Segue parte do projeto.
    Anexos
    Inserir registros em tabela com subformulário contínuo AttachmentBDTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (166 Kb) Baixado 3 vez(es)

      Data/hora atual: 29/11/2020, 16:08