[Resolvido]transferir dados do orçamento para venda

boa tarde pessoal eu aqui mais uma vez precisando da ajuda de vocês, estou com uma dúvida na transferência de dados do orçamento para venda, minha dúvida e na hora de transfir de um subformulario para o outro
se alguém puder me ajudar eu agradeço

Feliz ano novo
abraço

Olá, bom dia.

Adapte o código abaixo as tuas necessidades.

Código:

Private Sub bt_gerarPedido_Click() ' fazer alterações necessárias.
Dim dbOrc As Database, rs1, rs2, rs3 As DAO.Recordset

    If MsgBox("Deseja Gerar Pedido do Orçamento?", vbYesNo + vbQuestion, Me.Caption) = vbYes Then
   
        Set dbOrc = CurrentDb
       
        Set rs1 = dbOrc.OpenRecordset("TblPedido") ' abre a tabela pedido, inserindo os campos.
           
        With rs1
       
        .AddNew
        ![CodOrc] = Me.CodOrc
        ![Dataped] = Me.DataOrc
        ![CodCliente] = Me.CodCliente
        ![Cliente] = Me.Cliente
        ![Endereco] = Me.Endereco
        ![Numero] = Me.Numero
        ![Bairro] = Me.Bairro
        ![Cidade] = Me.Cidade
        ![Estado] = Me.Estado
        ![FoneComercial] = Me.FoneComercial
        ![Celular] = Me.Celular
        ![WhatApps] = Me.WhatApps
        ![CNPJ] = Me.CNPJ
        ![EmailNF] = Me.EmailNF
        ![InscrEstadual] = Me.InscrEstadual
        ![CEP] = Me.CEP
        .Update
       
        End With
     
        Set rs2 = dbOrc.OpenRecordset("SELECT * FROM tblDOrc WHERE CodOrc=" & Me.CodOrc) ' aqui os campos que geram o subformulario
        Set rs3 = dbOrc.OpenRecordset("DPedido") ' é exportado para cá.
       
     
        While (Not rs2.EOF)
            With rs3
                .AddNew '  ![campo subformulario]= rs2![campotabela]
                ![CodSubped] = DMax("CodPed", "Tblpedido")
                ![CodProduto] = rs2![CodProduto]
                ![Produto] = rs2![Produto]
                ![TUnidade] = rs2![TUnidade]
                ![PrecoVenda] = rs2![PrecoVenda]
                ![Qtd] = rs2![Qtd]
                ![TotaItens] = rs2![TotaItens]
                .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 "frmpedido", acNormal, , "codorc = " & Me.CodOrc & ""
        MsgBox "Pedido Gerado !", vbInformation, Me.Caption
       
        DoCmd.Close acForm, "frmorcamento"
        DoCmd.OpenForm "frmpedido"
      Else
     
      DoCmd.CancelEvent
     
    End If
End Sub

bom dia Silvio no subformulario deu certinho agora o q esta pegando e no formulário aonde os campos não estão acoplado e outra aonde eu colocaria para abrir o formulário venda com os último dados transferidos
meu amigo o subformulario contas a receber ele também já deve ser preenchido automatico ?

aguardo

Algo parecido com isso...

![seucampotabela] = Forms!SeuformularioPrincipal!seucampodesaclopado


Para abrir no último registro no formulário vendas,também algo parecido com isso:

DoCmd.OpenForm "frmpedido", acNormal, , "codorc = " & Me.CodOrc & ""
Obs. necessário ter na tabela o campo com o numero de orçamento e exportar o mesmo também.

Bons estudos.

boa tarde Silvio o problema de transferência deu certo era um erro que tinha em minha tabela, eu não estava salvando o vendedor e outros dois campos eu so ñ estou conseguindo e abrir o formulário venda nos dados transferidos
o nome do formulário é frm_vendas o código e codvenda eu estou fazendo a transferência do formulário orçamento mesmo coloquei apenas um botão em relação a gerar as parcelas eu devo gerar depois que o formulário venda for aberto ou tenho que fazer esta transferência também

obrigado

bom dia Silvio consegui resolver o problema de abrir a venda no registro que foi transferido fiz o seguinte ao enviar fechei o formulário orçamento e abrir a venda no último registro a única duvida que tenho e se eu ja devo transferir os dados da conta a receber também

mais uma vez obrigado Silvio
abraço