Pada pertemuan minggu lalu (https://rahmadyatrias.wordpress.com/2012/10/30/koneksi-dua-tabel-dalam-satu-form/) kita membuat satu form yang berisi koneksi dua tabel (adodc1 dan adodc2). Sekarang kita akan mencoba mengimplementasikan suatu manipulasi terhadap tabel kedua, misalnya transaksi barang. Barang yang dijual harus berada pada tabel material.

Buat isian pada input transaksi. Karena barang yang dijual harus berada di tabel material (bagian atas), maka di sini diberi tombol tekan “cari brg” agar sebelum transaksi, barang dipastikan ada pada tabel material. Gunakan kode berikut di tombol ‘Cari Brg’

Private Sub Command5_Click()

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find “kode=” + Text5.Text + “”

If Not Adodc1.Recordset.EOF Then

Text6.Text = Adodc1.Recordset.Fields(1)

Else

MsgBox “maaf barang tidak ada”

End If

End Sub

Sedangkan untuk mengaktifkan tombol tekan input, gunakan kode berikut (perhatikan posisi text1, text2, dst harus sesuai dengan nama yang anda buat).

Private Sub Command4_Click()

Adodc2.Recordset.AddNew

Me.Adodc2.Recordset.Fields(0) = Text4.Text

Me.Adodc2.Recordset.Fields(1) = Text6.Text

Me.Adodc2.Recordset.Fields(2) = Text7.Text

End Sub

Ketika tombol CARI BRG ditekan akan menampilkan nama barang. Selanjutnya tinggal mengisi kolom isian lainnya sebelum tombol input ditekan