Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax Combo 1

Syntax ini berfungsi untuk mengeluarkan data dari form 1 atau Table satu ke Form 2 atau Table dua, yang ketentuanya Outputnya telah anda buat pada Syntax Form_Active.

Disini kita mengguanakn name Index “NO” dari form 1 yang akan kita munculkan pada form 2.

Ketiklah Syntax sebagai berikut :

Private Sub Combo1_Click()

Data1.Recordset.Index = "NO"

Data1.Recordset.Seek "=", Combo1.Text

If Not Data1.Recordset.NoMatch Then

Text4.Text = Data1.Recordset.Fields!RUANG

Text5.Text = Data1.Recordset.Fields!TARIF

End If

End Sub

Catatan : Anda dapat menambah jumlah field yang akan anda keluarkan pada form kedua.