Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda neste codigo


jntrindade

Pergunta

boa note, sou novato no forum gostaria que me ajudassem no codigo abaixo, o que ta faltando e tranferir os dados do subformulario orcamento para o subformulario pedido. Desde já agradeço pela atençaõ. fico no aguardo.

Dim db1 As Database, db2 As Database, rs1 As Recordset, rs2 As Recordset, i As Long

If MsgBox("Confirma a venda?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set db2 = CurrentDb

Set rs1 = db1.OpenRecordset("tblvenda", dbOpenTable)

Set rs2 = db2.OpenRecordset("tblpedido", dbOpenTable)

rs1.AddNew

rs1("Datavenda") = Me.Datavenda

rs1("hora") = Me.hora

rs1("cod_vendedor") = Me.cod_vendedor

rs1("vendedor") = Me.vendedor

rs1("valor") = Me.valor

rs1.Update

rs1.Close

Set rs1 = Nothing

Set db1 = Nothing

For i = 0 To Me.codvenda

rs2.AddNew

rs2("codvenda") = DMax("codvenda", "tblvenda")

rs2("cod_produto") = Forms!frmorcamento!frmsuborcamento![cod_produto]

rs2("produto") = Forms!frmorcamento!frmsuborcamento![produto]

rs2("precounit") = Forms!frmorcamento!frmsuborcamento![precounit]

rs2("quant") = Forms!frmorcamento!frmsuborcamento![quant]

rs2("desc") = Forms!frmorcamento!frmsuborcamento![desc]

rs2("total") = Forms!frmorcamento!frmsuborcamento![total]

rs2("Iditem") = Forms!frmorcamento!frmsuborcamento![codpedido]

rs2.Update

Next i

rs2.Close

Set rs2 = Nothing

Set db2 = Nothing

MsgBox "Venda confirmada.", vbOKOnly + vbInformation, "Concluído"

DoCmd.OpenForm "frmindica", acNormal

Exit Sub

End If

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,2k
×
×
  • Criar Novo...