Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Cn.Open()
Cmd = New OleDbCommand("Update Tableposdetails Set Qty=Qty+@Qty , SubTotal=SubTotal+@SubTotal Where codeproduct=@codeproduct And InvoiceNo=@InvoiceNo", Cn)
With Cmd.Parameters
.AddWithValue("@Qty", Me.TextBox4.Text)
.AddWithValue("@SubTotal", Me.TextBox8.Text)
.AddWithValue("@codeproduct", Me.TextBox1.Text)
.AddWithValue("@InvoiceNo", Me.TextBox5.Text)
End With
If Cmd.ExecuteNonQuery() = 0 Then
Cmd = New OleDbCommand("Insert into Tableposdetails ( InvoiceNo , codeproduct , nameproduct , uniteprice , Qty , SubTotal) Values ( @InvoiceNo , @codeproduct , @nameproduct , @uniteprice , @Qty , @SubTotal)", Cn)
With Cmd.Parameters
.AddWithValue("@InvoiceNo", Me.TextBox5.Text)
.AddWithValue("@codeproduct", Me.TextBox1.Text)
.AddWithValue("@nameproduct", Me.TextBox2.Text)
.AddWithValue("@uniteprice", Me.TextBox3.Text)
.AddWithValue("@Qty", Me.TextBox4.Text)
.AddWithValue("@SubTotal", Me.TextBox8.Text)
End With
Cmd.ExecuteNonQuery()
End If
Cn.Close()
loadrecord()
Pid = ""
Call Update_Tablepos()
Me.TextBox1.Text = String.Empty
Me.TextBox2.Text = String.Empty
Me.TextBox3.Text = String.Empty
Me.TextBox4.Text = String.Empty
Catch ex As Exception
Cn.Close()
MsgBox(ex.Message, vbCritical)
End Try
End Sub