Uma dúvida com minha aplicação com Access

[RaphaelML]

Olá boa noite,

Eu estou com o seguinte projeto

onde eu quero assim que selecionar o código do cliente e o código do produto e também selecionada a quantidade que o seja gravado na minha tabela de vendas já com o (valor*quantidade), por enquanto estou com essa linha de código

Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click

Dim intdia, intmes, intano As Integer

Dim intcodigodoproduto, intnomedocliente As Integer

intdia = Calendario.SelectionStart.Day

intmes = Calendario.SelectionStart.Month

intano = Calendario.SelectionStart.Year

Dim strquantidade, strvalorfinal As String

Dim dtDataVenda As New System.DateTime(intano, intmes, intdia)

intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value

intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value

strquantidade = QUANTIDADENumericUpDown.Value

strvalorfinal = VALORMaskedTextBox.Text

Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal)

MsgBox("Venda Efetuada!")

Me.Close()

End Sub

End Sub

porém não sei como fazer com que já seja mostrado esse valor final da compra e como fazer para que ele já seja inserido no meu vendastableadapter

O que eu devo inserir a mais na linha de código para que quando meu numberUpDown for mudando o meu valor também mude ?

Agradeço desde já.

.....

Enquanto isso, eu mudei algumas linhas

Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click

Dim intdia, intmes, intano As Integer

Dim intcodigodoproduto, intnomedocliente As Integer

intdia = Calendario.SelectionStart.Day

intmes = Calendario.SelectionStart.Month

intano = Calendario.SelectionStart.Year

Dim strquantidade, strvalorfinal As Integer

Dim dtDataVenda As New System.DateTime(intano, intmes, intdia)

intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value

intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(0).Value

strquantidade = QUANTIDADENumericUpDown.Value

strvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value)

Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal)

MsgBox("Venda Efetuada!")

End Sub

Agora eu já consigo fazer essa multiplicação mas não consigo ve-la sem fazer a venda acontecer, porém agora estou com o seguinte problema

quando vou olhar na tabela de vendas o código do produto está no nome do cliente e o código do cliente esta no código do produto, estão invertidos kkk e na verdade nesse relatório eu quero o nome do cliente e não o código dele. será que alguém pode me ajudar ?

PESSOAL KKKK CONSEGUI CORRIGIR ESSES ERROS

Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click

Dim intdia, intmes, intano As Integer

Dim strnomedocliente, strnomedoproduto As String

intdia = Calendario.SelectionStart.Day

intmes = Calendario.SelectionStart.Month

intano = Calendario.SelectionStart.Year

Dim intquantidade, intvalorfinal As Integer

Dim dtDataVenda As New System.DateTime(intano, intmes, intdia)

strnomedoproduto = DataGridPRODUTOS.CurrentRow.Cells(1).Value

strnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value

intquantidade = QUANTIDADENumericUpDown.Value

intvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value)

Me.VendasTableAdapter1.Insert(dtDataVenda, strnomedocliente, strnomedoproduto, intquantidade, intvalorfinal)

MsgBox("Venda Efetuada!")

End Sub

TROQUEI UNS INTEGER POR UNS STRING E ALGUMAS ORDENS E DEU TUDO CERTO MUITO OBRIGADO

Editado Julho 6, 2014 por RaphaelML