DataBase Microsoft Visual Basic 6.0

Rumus/Syntax DataBase Pada General

sebelum menuli rumus berikut klik Object sampai menunjukan General.

kemudian tulis rumus/syntax berikut :
Private Sub BERSIH()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""  

Text4.Text = ""   

Text5.Text = ""

Text6.Text = ""

SIMPAN.Enabled = False

EDIT.Enabled = False

CHAPUS.Enabled = False

TAMBAH.Enabled = True

End Sub

Jika Name pada Data dirubah maka pada penulisan sintax/rumus berikut anda sesuaikan pada Name Data yang anda rubah.

Private Sub TAMPIL()

With Data1

Text1.Text = .Recordset.Fields(0)

Text2.Text = .Recordset.Fields(1)

Text3.Text = .Recordset.Fields(2)

Text4.Text = .Recordset.Fields(3)

Text5.Text = .Recordset.Fields(4)

End With

End Sub

(menggunakan urutan field)

Private Sub TAMPIL()

Text1.Text = Data1.Recordset.Fields!KODE_BARANG

Text2.Text = Data1.Recordset.Fields!NAMA_BARANG

Text3.Text = Data1.Recordset.Fields!HARGA_BARANG

Text4.Text = Data1.Recordset.Fields!JUMLAH

Text5.Text = Data1.Recordset.Fields!TOTAL

End Sub
(menggunakan nama field)
anda cukup menggunakan salah satu rumus/syntax diatas karena semuanya fungsinya sama.