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

    [Resolvido]Inserir registros em tabela com subformulário contínuo

    avatar
    jachornung
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  jachornung 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 : Respeito às Regras 100%

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

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

    Mensagem  jachornung 9/11/2020, 11:23

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

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  jachornung 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 : Respeito às Regras 100%

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

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

    Mensagem  marcelo3092 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 : Respeito às Regras 100%

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

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

    Mensagem  jachornung 11/11/2020, 21:43

    Segue parte do projeto.
    Anexos
    [Resolvido]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 9 vez(es)
    avatar
    jachornung
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  jachornung 2/3/2021, 20:54

    Problema resolvido.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2816
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. 6/3/2021, 14:58

    O fórum agradece o retorno.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: 13/6/2021, 00:52