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]Exportar dados para duas tabelas ao mesmo

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exportar dados para duas tabelas ao mesmo Empty [Resolvido]Exportar dados para duas tabelas ao mesmo

    Mensagem  Silvio em 15/8/2019, 15:13

    Prezados bom dia.

    Estou tendo problemas de não exportar dados para uma segunda tabela.

    Na primeira rotina funfa legal, exporta. Mas na segunda o mesmo não exporta os dados.

    O Código está abaixo..

    '----------------------------------------------------------------------------------------
    'aqui inicio a cópia para a TblSubServPAg, funciona perfeitamente.

    Dim dbPedido As Database, rs1, rs2, rs3 As DAO.Recordset
    Set dbPedido = CurrentDb


    ' aqui eu faço a inserção na tbl TblSubServPAg, para o acerto dos prestadores de servicço

    Set rs1 = dbPedido.OpenRecordset("SELECT * FROM TblServico WHERE idServico= " & Me.IdServico)
    Set rs2 = dbPedido.OpenRecordset("SELECT * FROM TblSubServico WHERE IdServico=" & Me.IdServico)
    Set rs3 = dbPedido.OpenRecordset("TblSubServicoPag", dbOpenTable)



    While (Not rs2.EOF)
    With rs3
    .AddNew
    ![IdServico] = rs2![IdServico]
    ![IdSubServico] = rs2![IdSubServico]
    ![NomeCliente] = rs1![NomeCliente]
    ![NumSenha] = rs1![NumSenha]
    ![DataServico] = rs1![DataServico]
    ![HoraServico] = rs1![HoraServico]
    ![Prestador] = rs2![Prestador]
    ![CodBarras] = rs2![CodBarras]
    ![Descricao] = rs2![Descricao]
    ![ValorServico] = rs2![ValorServico]


    .Update
    rs2.MoveNext
    End With
    Wend





    '----------------------------------------------------------------------------------------------
    'aqui exporto os valores para a tblrecebimento para acerto do cliente, aqui ele não funciona, precede a leitura mas não adiciona
    ' nada na tblrecebimento.

    Dim DB1 As Database
    Dim rs6, rs7 As DAO.Recordset

    Set DB1 = CurrentDb

    Set rs6 = DB1.OpenRecordset("Select * FROM TblSubServico WHERE IdServico =" & Me.IdServico)
    Set rs7 = DB1.OpenRecordset("tblrecebimento", dbOpenTable)

    While (Not rs6.EOF)
    With rs7
    .AddNew
    ![IdServico] = rs6![IdServico]
    ![NomeCliente] = rs6![NomeCliente]
    ![NumSenha] = rs6![NumSenha]
    ![DataServico] = rs6![DataServico]
    ![HoraServico] = rs6![HoraServico]
    ![Prestador] = rs6![Prestador]
    ![CodBarras] = rs6![CodBarras]
    ![Descricao] = rs6![Descricao]
    ![ValorServico] = rs6![ValorServico]


    .Update
    rs6.MoveNext
    End With
    Wend


    rs6.Close
    Set rs6 = Nothing

    rs7.Close
    Set rs7 = Nothing

    Set DB1 = Nothing



    rs1.Close
    Set rs1 = Nothing

    rs2.Close
    Set rs2 = Nothing

    rs3.Close
    Set rs3 = Nothing


    Set dbPedido = Nothing

    Sinceramente ao meu ver, era para funcionar e não sei o por que disso.

    Se um dos colegas puderem me ajudar, agradeço.


    .................................................................................
    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."
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exportar dados para duas tabelas ao mesmo Empty Re: [Resolvido]Exportar dados para duas tabelas ao mesmo

    Mensagem  IvanJr. em 15/8/2019, 16:47

    Silvio, e o banco?


    .................................................................................
    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.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Exportar dados para duas tabelas ao mesmo Empty Re: [Resolvido]Exportar dados para duas tabelas ao mesmo

    Mensagem  Silvio em 15/8/2019, 18:21

    Boa tarde Ivan....

    Me passou desapercebido, um detalhe pouco importante ( sendo muito sarcástico !!! ).....esqueci de algo chamado....relacionamento entre as tabelas.
    Foi somente relacionar as mesmas e tudo funcionou como em um passe de mágica.

    Valeu nobre Ivan.


    .................................................................................
    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]Exportar dados para duas tabelas ao mesmo Empty Re: [Resolvido]Exportar dados para duas tabelas ao mesmo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:02