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