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

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Faz a exportação de registro somente depois de fechar o formulário e exportar novamente Empty [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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    marcelo3092
    marcelo3092
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Faz a exportação de registro somente depois de fechar o formulário e exportar novamente Empty 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

    http://www.redeaccess.com.br/viewtopic.php?f=7&t=2018
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Faz a exportação de registro somente depois de fechar o formulário e exportar novamente Empty 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.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 06:32