Pengisian koding pada tombol Edit dan Hapus

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

Koding Edit

Private Sub Command3_Click()

On Error GoTo c

Data1.Recordset.Edit

c:

Command1.Enabled = False

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = True

End Sub

Koding Hapus

Private Sub Command4_Click()

On Error GoTo d

Data1.Recordset.Delete

Data1.Recordset.Refresh

Data1.Recordset.MoveLast

d:

Command1.Enabled = True

Command2.Enabled = False

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Command6.Enabled = True

End Sub