Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax  Text 1

Syntax ini berfungsi untuk menandai dimana Primary key atau Index berada.

Ketikan Syntax sebagai berikut :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

DATA_KAMAR.Recordset.Index = "NO"

DATA_KAMAR.Recordset.Seek "=", Text1.Text

If Not DATA_KAMAR.Recordset.NoMatch Then

MsgBox ("DATA INI SUDAH ADA")

BERSIH

Else

Text2.SetFocus

End If

End If

End Sub

Catatan :

NO adalah nama dari Table diVisData.

Fungsi dari MsgBox diatas jika data dengan nomor sama akan ada peringatan sesuai yang anda tulis di MsgBox.