olá eu gostaria de uma ajuda eu tenho sistema de vendas e ele estava salvado em db todas as vendas. Agora eu queria dividir num campo as a dinheiro e o outro a prazo.

o codigo para salvar agora que eu estou usando é esse:

o avista e o prazo estão numa opção combox.

eu crie na tabela vendas um campo avista e aprazo já.

Private Sub Command1_Click()
Dim AreaTrabalho As Workspace
Dim query As String
Dim xxbco As Database

Set AreaTrabalho = DBEngine.Workspaces(0)
Set xxbco = AreaTrabalho.OpenDatabase(App.Path & "Estoque.Mdb", False, False)

 

query = "Select * From Venda where D1 = '" & D1 & "'"
Set dyn = xxbco.OpenRecordset(query)

If dyn.EOF Then

dyn.AddNew
dyn("V1") = C2
dyn("D1") = C3
dyn("P1") = C1 "Aqui é a forma de pagamento avista ou aprazo"
dyn("V2") = lblvrtotal "Aqui é o total da venda"
dyn("h1") = Text1
dyn("desconto") = Text2.Text
dyn("diferença") = Text3.Text
dyn.Update

End If
xxbco.Close

MsgBox "Venda realizada com sucesso."

grato..