Pengisian koding pada tombol Tambah dan Simpan

Sbelum mengisi koding pada tombol masing- masing command, label harus lebih dulu di ubah pada properties di datasource dan datafield nya sesuai dengan label yang dibuat.

Untuk mengisi koding pada setiap command, kita hanya mendoble klik pada setiap tombol maka akan tampil dan kemudian dapat diisi seperti ini :

Koding Tambah

Private Sub Command1_Click()

On Error GoTo a

Data1.Recordset.AddNew

SetFocus

a:

Command1.Enabled = False

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = True

End Sub

Koding Simpan

Private Sub Command2_Click()

On Error GoTo b

Data1.Recordset.Update

Data1.Refresh

Data1.Recordset.MoveLast

b:

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Command6.Enabled = False

End Sub