MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Salvar dados do subformulário em um tabela

    Compartilhe

    heyama
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 23/11/2010

    Salvar dados do subformulário em um tabela

    Mensagem  heyama em 15/6/2018, 15:12

    Bom dia aos colegas tenho um subformulário na qual preciso salvar os dados em uma determinada tabela.
    Tenho um código na qual eu peguei aqui no fórum fiz as adaptações necessárias mas esta salvando somente o primeiro registro do subformulário é como o comando rst.MoveNext
    não estivesse atuando no procedimento.
    Obrigado a todos!!! Abraços


    Código:
    Dim db As Database
    Dim rst As Object

    Set db = CurrentDb()
    Set rst = db.OpenRecordset("Tab_ReqSalva") '------esta tabela e para ser a tabela destino dos meus registros----------
    Dim cont As Integer
    Dim condi as Integer
    cont = 1
    condi = Form_Frm_SelP.txtConta
    If condi >= 1 Then
       Do Until cont > condi
           rst.AddNew
           rst.[Paciente] = [Forms]![Frm_SelPaciente]![Qry_SelPaciente subformulário]!Paciente
           rst.[Matricula] = Forms!Frm_SelPaciente![Qry_SelPaciente subformulário]!Matricula
           rst.[Dt] = Now
           rst.Update
           rst.MoveNext
           cont = cont + 1
       Loop
       DoCmd.Close
    Else
       MsgBox "Não exixte pacientes selecionados"
    End If
    rst.Close
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Re: Salvar dados do subformulário em um tabela

    Mensagem  FabioPaes em 25/11/2018, 20:55

    Amigo da uma assistida nesse video aqui

    youtube.com/watch?v=pvxWXjAXhos&list=PL7JtSlkTtSeF_mEceaAo8IIggsToHBhFW&index=1


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 17/1/2019, 23:53