DATA BUKU
LISTING PROGRAM :
Private Sub CMDBATAL_Click()
NONAKTIF
BERSIH
CMDTAMBAH.SetFocus
End Sub
Private Sub CMDHAPUS_Click()
On Error GoTo errhapus
Dim a As String
a = MsgBox("Yakin Mau Hapus ?", vbInformation + vbYesNo, "Data Buku")
If a = vbYes Then
Data1.Recordset.Delete
...
