Koding Menyimpan Transaksi Many To Many

    Private Sub Bsimpan_Click(sender As Object, e As EventArgs) Handles Bsimpan.Click
        'urutan cara ngapalin, pahami alurnya ya wkwkwk
        '[1]- validasi dulu, jika kosong itu gimana?
        If Tnota.Text = "" Or Ttanggal.Text = "" Or Tbayar.Text = "" Then
            MsgBox("Transaksi belum lengkap")
            Exit Sub
        End If
        '[2]- buat deklarasi simpantransaksi
        Dim simpantransaksi As String = " insert into transaksi values ('" & Tnota.Text & "', '" & Ttanggal.Text & "','" & Ttotalitem.Text & "' , '" & Ttotalharga.Text & "', '" & Tbayar.Text & "', '" & Tkembalian.Text & "')"
        cmd = New OleDbCommand(simpantransaksi, conn)
        cmd.ExecuteNonQuery()
        '[3]- nah buat simpandetail_transaksi
        For baris As Integer = 0 To DGV.RowCount - 2
            Dim simpandetailtransaksi As String = " insert into detail_transaksi values ('" & Tnota.Text & "', '" & DGV.Rows(baris).Cells(1).Value & "', '" & DGV.Rows(baris).Cells(2).Value & "', '" & DGV.Rows(baris).Cells(4).Value & "')"
            cmd = New OleDbCommand(simpandetailtransaksi, conn)
            cmd.ExecuteNonQuery()

            '[4]- bikin pencarian data barang dulu, ada gak nih barangnya yg udah diketik di DGV?
            cmd = New OleDbCommand("select * from barang where kodebarang = '" & DGV.Rows(baris).Cells(1).Value & "'", conn)
            dr = cmd.ExecuteReader()
            dr.Read()
            '[5]- jika barangnya ada, maka deklarasi kurangistok
            If dr.HasRows Then
                Dim kurangistok As String = "update barang set stok='" & dr.Item("stok") - DGV.Rows(baris).Cells(2).Value & "' where kodebarang = '" & DGV.Rows(baris).Cells(1).Value & "' "
                cmd = New OleDbCommand(kurangistok, conn)
                cmd.ExecuteNonQuery()
            End If
        Next
        '[6]- nah tinggal call kosong dan notaotomatis
        Call kosong()
        Call otomatis()
    End Sub