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

    [Resolvido]Exportar dados para duas tabelas ao mesmo

    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 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."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 15/8/2019, 16:47

    Silvio, e o banco?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    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 : Respeito às Regras 100%

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

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

    Mensagem  Silvio 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."

      Data/hora atual: 24/7/2021, 09:40