สวัสดีค่ะ มีพี่คนไหนรู้code VB ที่ใช้ฐานข้อมูล ACCESSบ้างค่ะ
ปัญหาคือในหน้าขายสินค้า ปุ่มบันทึก พอกดบันทึกแล้ว สินค้าที่ขายออกไปไปตัดใน product แต่ไม่ตัดใน stock
ช่วยดูหน่อยค่ะว่าต้องเพิ่มหรือเขียนยังไง ให้มันตัดสต๊อคทั้ง 2 ค่ะ
code ปุ่มบันทึกค่ะ
  'ปุ่มบันทึก
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Val(TextBox36.Text) < Val(TextBox23.Text) Then
            MessageBox.Show("คุณกรอกจำนวนเงินไม่ครบครับ ", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            TextBox36.Focus()
            TextBox36.Clear()

            Exit Sub
        End If

        'บันทึกข้อมูลในตาราง(sale)
        Dim sql As String
        Dim i As Integer = 0
        If MessageBox.Show("คุณต้องการบันทึกข้อมูลใข่หรือไม่  ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Asterisk) = Windows.Forms.DialogResult.Yes Then

            sql = "insert into sale(sa_id, sa_date, cus_id,emp_id, sa_total, sa_net, sa_status)"
            sql &= " values('" & TextBox1.Text & "',"
            sql &= " '" & DateTimePicker1.Value.ToLongDateString & "',"
            sql &= " '" & TextBox2.Text & "',"
            sql &= " '" & txte_id.Text & "',"
            sql &= " " & Val(TextBox23.Text) & ","
            ' sql &= " " & Val(TextBox25.Text) & ","
            sql &= " " & Val(TextBox26.Text) & ","
            sql &= "'" & 1 & "')"

            da = New OleDbDataAdapter(sql, conn)
            'MessageBox.Show(sql)
            da.Fill(ds, "tb_sale")

            'บันทึกข้อมูลในตาราง(sale_detail)
            For i = 0 To ListView1.Items.Count - 1
                sql = "insert into sale_detail(sa_id,pro_id,sa_num,sa_price,sa_total)"
                sql &= " values('" & TextBox1.Text & "',"
                sql &= " '" & ListView1.Items(i).SubItems(0).Text & "', "
                sql &= " " & Val(ListView1.Items(i).SubItems(5).Text) & ", "
                sql &= " " & Val(ListView1.Items(i).SubItems(4).Text) & ", "
                sql &= " " & Val(ListView1.Items(i).SubItems(7).Text) & ") "

                da = New OleDbDataAdapter(sql, conn)
                'MessageBox.Show(sql)
                da.Fill(ds, "tb_sale_detail")


                'อัพเดตจำนวนสินค้าคงเหลือตารางสินค้า

                sql = "update product set pro_quantity = pro_quantity - " & ListView1.Items(i).SubItems(5).Text & " where pro_id ='" & ListView1.Items(i).SubItems(0).Text & "'"
                da = New OleDbDataAdapter(sql, conn)
                da.Fill(ds, "Pro")

                'อัพเดตจำนวนสินค้าคงเหลือตาราง stock
                'Dim sqll As String
                'sqll = "update stock_exp set unit_qty = unit_qty - " & ListView1.Items(i).SubItems(5).Text & " where pro_id ='" & ListView1.Items(i).SubItems(0).Text & "'"
                'da3 = New OleDbDataAdapter(sqll, conn)
                'da3.Fill(ds3, "Pro")
            Next
            MessageBox.Show("บันทึกข้อมูลเรียบร้อย", "บันทึกข้อมูล")
            dr.Close()
            callprint()
            txtclear()

            autoid()


            Button8.Enabled = False
        End If
        'Button6.Enabled = False
        dr.Close()

        txtclear()

        autoid()
    End Sub