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

    [Resolvido]Faz a exportação de registro somente depois de fechar o formulário e exportar novamente

    Compartilhe
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3974
    Registrado : 20/04/2011

    [Resolvido]Faz a exportação de registro somente depois de fechar o formulário e exportar novamente

    Mensagem  Silvio em 21/7/2018, 21:48

    Boa tarde.

    Tenho uma rotina que exporta os dados de um subformulário para uma tabela.
    Acontece que ele exporta uma vez e depois para, tenho que fechar o formulário e abrir novamente e exportar novamente.

    Não sei o que é, já bati cabeça, já acendi vela...kkkk

    Eis o baita...

    Dim dbs As DAO.Database
    Dim rs7 As DAO.Recordset
    Dim tb As DAO.Recordset
    '---------------------------------------

    Set dbs = CurrentDb
    Set tb = dbs.OpenRecordset("TblVendaXFornecedor")
    Set rs7 = Forms!FrmVenda!FrmSubVenda.Form.RecordsetClone
    'Set rs7 = FrmSubVenda.Form.RecordsetClone
    '---------------------------------------------------------------
    'Exportando os campos necessários
    Do While Not rs7.EOF
    tb.AddNew
    tb!IdPedido = rs7!IdPedido
    tb!DataPedido = Me.DataPedido
    tb!Referencia = rs7!Referencia
    tb!Fornecedor = rs7!Fornecedor
    tb!ValorTotal = rs7!ValorTotal
    tb!Qtd = rs7!Qtd

    tb.Update
    rs7.MoveNext

    Loop

    tb.Close
    Set tb = Nothing

    rs7.Close
    Set rs7 = Nothing

    dbs.Close
    Set dbs = Nothing
    'fim da rotina de cópia


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Faz a exportaçao

    Mensagem  marcelo3092 em 21/7/2018, 22:05

    Ola colega jaa tive este problema faz o seguinte



    Dim dbs As DAO.Database
    Dim rs7 As DAO.Recordset
    Dim tb As DAO.Recordset
    '---------------------------------------

    Set dbs = CurrentDb
    Set tb = dbs.OpenRecordset("TblVendaXFornecedor")
    Set rs7 = Forms!FrmVenda!FrmSubVenda.Form.RecordsetClone
    'Set rs7 = FrmSubVenda.Form.RecordsetClone
    Rs7.movefirst
    '---------------------------------------------------------------
    'Exportando os campos necessários
    Do While Not rs7.EOF
    tb.AddNew
    tb!IdPedido = rs7!IdPedido
    tb!DataPedido = Me.DataPedido
    tb!Referencia = rs7!Referencia
    tb!Fornecedor = rs7!Fornecedor
    tb!ValorTotal = rs7!ValorTotal
    tb!Qtd = rs7!Qtd

    tb.Update
    rs7.MoveNext

    Loop

    tb.Close
    Set tb = Nothing

    rs7.Close
    Set rs7 = Nothing

    dbs.Close
    Set dbs = Nothing
    'fim da rotina de cópia


    Qualquer coisa da uma olhada no poste

    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3974
    Registrado : 20/04/2011

    Re: [Resolvido]Faz a exportação de registro somente depois de fechar o formulário e exportar novamente

    Mensagem  Silvio em 21/7/2018, 22:15

    Valeu Marcelo....matou de primeira !

    Obrigado !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: 19/8/2018, 22:44