Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax Form Active

Syntax ini berfungsi sebagai pemangil Field pada form satu yang akan ditampilkan diform dua. dan tampilan dari Field tersebut akan dimasukan kedalam ComboBox.

Ketiklah Syntax sebagai berikut :

Private Sub Form_Activate()

With Data1

If .Recordset.RecordCount = 0 Then

Combo1.Clear

Else

Do Until Data1.Recordset.EOF

Combo1.AddItem (.Recordset.Fields!NO_KAMAR)

.Recordset.MoveNext

Loop

End If

End With

End Sub