[Resolvido]Transformar Orçamento em pedidos

Código:

Private Sub BtGerarOrdServ_Click()

Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset

If MsgBox("Deseja Gerar Ordem de Serviço do Orçamento?", vbYesNo + vbQuestion, "Inclusão do Orçamento na Venda") = vbYes Then

Set dbOrc = CurrentDb

Set rs1 = dbOrc.OpenRecordset("Pedido", dbOpenTable)

With rs1

.AddNew
![IdCliente] = Me.IdCliente

.Update

End With


Set rs2 = dbOrc.OpenRecordset("SELECT * FROM OrcamentoDetalhe WHERE CodigoOrcamento=" & Me.IdPedido)
Set rs3 = dbOrc.OpenRecordset("PedidoDetalhe", dbOpenTable)


While (Not rs2.EOF)
With rs3
.AddNew
![CodigoOrcamento] = DMax("CodigoPedido", "Pedido")
![CombinaçãoProduto] = rs2![CombinaçãoProduto]
![QtdePedido] = rs2![QtdePedido]
![VlUnitario] = rs2![VlUnitario]
![Comprimento] = rs2![Comprimento]

![SomaVlUnitario] = rs2![SomaVlUnitario]




.Update
rs2.MoveNext
End With
Wend

rs1.Close
Set rs1 = Nothing

rs2.Close
Set rs2 = Nothing

rs3.Close
Set rs3 = Nothing

Set dbOrc = Nothing

DoCmd.OpenForm "Pedido_Multiplo1", acNormal, "IdCliente = " & Me.IdCliente & ""
DoCmd.Close acForm, "Orçamento1"
Else

DoCmd.CancelEvent

End If
'DoCmd.OpenForm "frmpedido", acNormal, , "Idorcamento = " & Me.IdOrcamento & ""
'DoCmd.Close acForm, "frmorcamento"
End Sub

Dim dbOrc As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
         Set dbOrc = CurrentDb
         Set rs1 = dbOrc.OpenRecordset("Pedido")
         With rs1
     
       .AddNew
       ![IdCliente] = Me.IdCliente
       ![PlacaNo] = Me!PlacaNo
       .Update
       End With
         
       Set rs2 = dbOrc.OpenRecordset("SELECT * FROM OrcamentoDetalhe WHERE idPedido=" & Me.IdPedido)
       Set rs3 = dbOrc.OpenRecordset("PedidoDetalhe")
       
     
       While (Not rs2.EOF)
           With rs3
               .AddNew
               ![IdPedido] = DMax("idPedido", "Pedido")
        '      ![CombinaçãoProduto] = rs2![CombinaçãoProduto]
               ![QtdePedido] = rs2![QtdePedido]
               ![VlUnitario] = rs2![VlUnitario]
        '      ![Comprimento] = rs2![Comprimento]
               
        '       ![SomaVlUnitario] = rs2![SomaVlUnitario]
               .Update
               rs2.MoveNext
           End With