Menggunakan Beberapa Form Dalam DataBase Microsoft Visual Basic 6.0

Syntax Text1

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

Ketiklah Syntax sebagai berikut :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Data2.Recordset.Index = "N_S"

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

If Not Data2.Recordset.NoMatch Then

MsgBox ("Data Sudah Ada")

BERSIH

Else

Text2.SetFocus

End If

End If

End Sub