DataBase Microsoft Visual Basic 6.0

Rumus/Syntax Pada Simpan (CommandButton)

Sebelum menuliskan Syntax pastikan name data anda sesuai dengan yang anda tuliskan disyntax anda.

Private Sub SIMPAN_Click()

With Data1

.Recordset.AddNew

.Recordset.Fields(0) = Text1.Text

.Recordset.Fields(1) = Text2.Text

.Recordset.Fields(2) = Text3.Text

.Recordset.Fields(3) = Text4.Text

.Recordset.Fields(4) = Text5.Text

.Recordset.Update

BERSIH

SIMPAN.Enabled = False

TAMBAH.Enabled = True

Text1.SetFocus

End With

End Sub

 (Rumus ini menggunakan posisi field)

Private Sub SIMPAN_Click()

Data1.Recordset.AddNew

Data1.Recordset.Fields!KODE_BARANG = Text1.Text

Data1.Recordset.Fields!NAMA_BARANG = Text2.Text

Data1.Recordset.Fields!HARGA_BARANG = Text3.Text

Data1.Recordset.Fields!JUMLAH = Text4.Text

Data1.Recordset.Fields!TOTAL = Text5.Text

Data1.Recordset.Update

BERSIH

SIMPAN.Enabled = False

TAMBAH.Enabled = True

Text1.SetFocus

End Sub

(Rumus ini menggunakan nama field)

catatan :
1. Disini saya menganti name commandbutton pada setip commandButton, jika anda tidak merubahnya maka sesuaikan pada name commandbutton yang sebenarnya.
2. Anda hanya cukup menggunakan salah satu rumus berikut.