If notrans_36110037.Text.Length = 0 Then

            MsgBox("nomor transaksi harus terisi")

        ElseIf jnstrans_36110037.Text.Length = 0 Then

            MsgBox("Isi kie nomor transaksita'..")

        ElseIf table.Rows.Count = 0 Then

            MsgBox("data table tidak boleh kosong")

            Exit Sub

4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.

5. buat form dengan menggunakan toolbox.
6. setelah form selesai, ubah nama textbox dan button menggunakan properties window

7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public NotInheritable Class Latihan_37_36110037

    Dim rhepoet As New ByIskandar.CariKeDataBaseByIskandar

    Dim table As New DataTable

    Dim rpt As New OleDb.OleDbCommand

    Dim hubung As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataMajemuk.accdb'")

  

    Private Sub resky()

        Dim resky1 As Integer = 0

        For Each resky2 As DataRow In table.Rows

            resky1 += resky2("JUMLAH")

        Next

        total_36110037.Text = resky1

    End Sub

    Private Sub kb_36110037_leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36110037.Leave

        If kb_36110037.Text.Length = 0 Then

            Exit Sub

        End If

        rhepoet.AturPencarianDataBase("barang", "kodebarang", kb_36110037.Text, 1, hubung)

        If rhepoet.JumlanBaris > 0 Then

            kb_36110037.Text = rhepoet.DataTablenya.Rows(0).Item("KODEBARANG")

            nb_36110037.Text = rhepoet.DataTablenya.Rows(0).Item("NAMABARANG")

        Else

            MsgBox("Kode barang tidak terdaftar")

            kb_36110037.Text = ""

            kb_36110037.Focus()

            Exit Sub

        End If

    End Sub

    Private Sub kb_36110037_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_36110037.TextChanged

        nb_36110037.Text = ""

        unit_36110037.Text = ""

        harga_36110037.Text = ""

    End Sub

    Private Sub Latihan_37_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & notrans_36110037.Text & "'", hubung)

        table.Rows.Clear()

        adapter.Fill(table)

        adapter.Dispose()

        kertas_36110037.DataSource = table

        Dim datakolom(1) As DataColumn

        datakolom(0) = table.Columns("kodebarang")

        table.PrimaryKey = datakolom

    End Sub

    Private Sub tambah_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles tambah_36110037.Click

        If kb_36110037.Text.Length = 0 Then

            MsgBox("kode barang tidak terisi")

            kb_36110037.Focus()

        ElseIf Val(unit_36110037.Text) = 0 Then

            MsgBox("unit tidak terisi")

            unit_36110037.Focus()

        ElseIf Val(harga_36110037.Text) = 0 Then

            MsgBox("harga barang tidak terisi")

            harga_36110037.Focus()

            Exit Sub

        End If

        Dim dt As DataRow

        dt = table.Rows.Find(kb_36110037.Text)

        If dt Is Nothing Then

            dt = table.NewRow

            dt("KODEBARANG") = kb_36110037.Text

            dt("NAMABARANG") = nb_36110037.Text

            dt("UNIT") = Val(unit_36110037.Text)

            dt("HARGA") = Val(harga_36110037.Text)

            dt("JUMLAH") = Val(jumlah_36110037.Text)

            table.Rows.Add(dt)

            kb_36110037.Text = ""

            unit_36110037.Text = ""

            harga_36110037.Text = ""

        Else

            MsgBox("kode barang telah terdaftar,")

        End If

        resky()

    End Sub

    Private Sub simpan_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles simpan_36110037.Click

        If notrans_36110037.Text.Length = 0 Then

            MsgBox("nomor transaksi harus terisi")

        ElseIf jnstrans_36110037.Text.Length = 0 Then

            MsgBox("Isi rong Jenis Transaksi na..")

        ElseIf table.Rows.Count = 0 Then

            MsgBox("data table tidak boleh kosong")

            Exit Sub

        End If

        rhepoet.AturPencarianDataBase("mastertransaksi", "notrans", notrans_36110037.Text, 1, hubung)

        If rhepoet.JumlanBaris > 0 Then

            MsgBox("nomor transaksi telah ada")

            Exit Sub

        End If

        rpt = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_36110037.Text & "',#" & tgl_36110037.Value.Month & "/" & tgl_36110037.Value.Day & "/" & tgl_36110037.Value.Year & "#,'" & jnstrans_36110037.Text & "')", hubung)

        hubung.Open()

        rpt.ExecuteNonQuery()

        hubung.Close()

        For Each x As DataRow In table.Rows

            rpt = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & notrans_36110037.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", hubung)

            hubung.Open()

            rpt.ExecuteNonQuery()

            hubung.Close()

        Next

        rpt.Dispose()

        notrans_36110037.Text = ""

        jnstrans_36110037.Text = ""

        table.Rows.Clear()

        resky()

    End Sub

    Private Sub unit_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles unit_36110037.TextChanged

        jumlah_36110037.Text = Val(unit_36110037.Text) * Val(harga_36110037.Text)

    End Sub

    Private Sub harga_36110037_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles harga_36110037.TextChanged

        jumlah_36110037.Text = Val(unit_36110037.Text) * Val(harga_36110037.Text)

    End Sub

End Class

8. Uji program dengan mengklik "Start Debugging".

9. Save program dengan mengklik icon "save".

10. Selesai.