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

3 participantes

    [Resolvido]Gravar todos os dados de um sub-formulário

    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

    [Resolvido]Gravar todos os dados de um sub-formulário Empty [Resolvido]Gravar todos os dados de um sub-formulário

    Mensagem  FernandoRogerio 7/11/2020, 13:03

    Olá, estou com um projeto que é para uma escola, onde eu já tenho uma turma com um código, e quero cadastrar novamente os dados da turma existente com outro código, gerando assim uma nova turma. Porém quando executo o código, ele só cadastro o primeiro registro do sub-formulário.

    Podem me ajudar a gravar todos?

    Desde já agradeço.

    Código:
    'CADASTRO DOS DADOS
       Dim rs As DAO.Recordset
        Set bancodados = CurrentDb() 'Abre Bando de Dados
        Set rs = bancodados.OpenRecordset("CadTurma", dbOpenDynaset) 'Abre a Tabela
        rs.AddNew 'Insere novo registro
       rs("Codturma") = Me.CODNOVO
       rs("Estudante") = Form_SUBCADTURMA.Estudante.Value
       rs.Update
       rs.MoveLast
       DoCmd.SetWarnings False
         rs.Close
      Set rs = Nothing

    segue o link do projeto:
    https://www.dropbox.com/s/h373cbe1764pmto/Projcad.rar?dl=0
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 901
    Registrado : 11/11/2009

    [Resolvido]Gravar todos os dados de um sub-formulário Empty Re: [Resolvido]Gravar todos os dados de um sub-formulário

    Mensagem  scandinavo 7/11/2020, 14:12

    teste

    'faz a copia dos dados do subformulario
    'usando access Avelino Sampaio
    Dim rs As DAO.Recordset
    Dim rsB As DAO.Recordset
    'Abre a tabela que receber? os dados
    Set rs = CurrentDb.OpenRecordset("CadTurma", dbOpenDynaset)
    'carrega os dados do subformul?rio
    Set rsB = SUBCADTURMA.Form.RecordsetClone
    'Percorre os registros do subformul?rio um a um
    Do While Not rsB.EOF
    'Copia os dados do subformul?rio para a tabela
    rs.AddNew
    rs("Codturma") = Me.CODNOVO
    rs("Estudante") = rsB!Estudante
    rs.Update
    'vai para o pr?ximo registro do subformul?rio
    rsB.MoveNext
    Loop
    rs.Close
    rsB.Close
    Set rsB = Nothing
    Set rs = Nothing
    Set db = Nothing
    MsgBox "Dados copiados...", vbInformation, "Duplica??o de Receituario"
    '*******************************************
    Me.SUBCADTURMA.Requery
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

    [Resolvido]Gravar todos os dados de um sub-formulário Empty Re: [Resolvido]Gravar todos os dados de um sub-formulário

    Mensagem  FernandoRogerio 7/11/2020, 14:18

    Olá, muito obrigado meu amigo.
    A primeira vez que executei deu certo, porém na segunda vez em diante, ele não cadastra mais.
    Oque poderá ser ?

    [Resolvido]Gravar todos os dados de um sub-formulário A10
    [Resolvido]Gravar todos os dados de um sub-formulário B10
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

    [Resolvido]Gravar todos os dados de um sub-formulário Empty Re: [Resolvido]Gravar todos os dados de um sub-formulário

    Mensagem  FernandoRogerio 7/11/2020, 14:30

    Olá, eu percebi, que toda vez que quiser cadastrar a turma em um novo código, eu tenho que fechar o formulário e abrir novamente, assim dá certo.
    Seria assim então?
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3740
    Registrado : 04/04/2010

    [Resolvido]Gravar todos os dados de um sub-formulário Empty Re: [Resolvido]Gravar todos os dados de um sub-formulário

    Mensagem  Avelino Sampaio 7/11/2020, 17:40

    Olá!

    experimente, acrescentando o deslocamento do ponteiro para o primeiro registro:

    ...
    Set rsB = SUBCADTURMA.Form.RecordsetClone
    'Percorre os registros do subformul?rio um a um
    rsB.MoveFirst
    Do While Not rsB.EOF
    'Copia os dados do subformul?rio para a tabela
    rs.AddNew
    ...


    Aguardamos



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 901
    Registrado : 11/11/2009

    [Resolvido]Gravar todos os dados de um sub-formulário Empty Re: [Resolvido]Gravar todos os dados de um sub-formulário

    Mensagem  scandinavo 7/11/2020, 20:06

    Sica a dica do Avelino que vai vai funcionar.
    FernandoRogerio
    FernandoRogerio
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 30/12/2016

    [Resolvido]Gravar todos os dados de um sub-formulário Empty Re: [Resolvido]Gravar todos os dados de um sub-formulário

    Mensagem  FernandoRogerio 8/11/2020, 01:00

    Perfeito!
    Muito obrigado gente, por compartilhar este conhecimento.

      Data/hora atual: 16/10/2021, 22:31