Listing VB1_PASCA UTS

Desain form barang diatas:
ini listingnya...kalo ada yang mau ditanyakan,silahkan tinggalkan jejak dengan memberi komentar.
Private Sub add_Click()
aktif
bersih
tkode_barang.SetFocus
save.Enabled = True
cancel.Enabled = True
add.Enabled = False
hapus.Enabled = False
End Sub

Private Sub akhir_Click()
data_barang.Recordset.MoveLast
tampil
End Sub

Private Sub awal_Click()
data_barang.Recordset.MoveFirst
tampil
End Sub

Private Sub cancel_Click()
bersih
cancel.Enabled = False
add.Enabled = True
save.Enabled = False
hapus.Enabled = True
edit.Enabled = False
End Sub

Sub bersih()
tkode_barang.Text = ""
tnama_barang.Text = ""
tharga_barang.Text = ""
tsatuan.Text = ""
tstok.Text = ""
End Sub

Sub aktif()
tkode_barang.Enabled = True
tnama_barang.Enabled = True
tharga_barang.Enabled = True
tsatuan.Enabled = True
tstok.Enabled = True
add.Enabled = True
End Sub

Sub nonaktif()
tkode_barang.Enabled = False
tnama_barang.Enabled = False
tharga_barang.Enabled = False
tstok.Enabled = False
tsatuan.Enabled = False
End Sub

Private Sub edit_Click()
data_barang.Recordset.edit
aktif
tkode_barang.Enabled = False
tnama_barang.SetFocus
add.Enabled = False
edit.Enabled = False
save.Enabled = True
hapus.Enabled = False
cancel.Enabled = True
Call tampil
End Sub

Sub tampil()
With data_barang.Recordset
tkode_barang.Text = !kode_barang
tnama_barang.Text = !nama_barang
tharga_barang.Text = !harga_barang
tsatuan.Text = !satuan
tstok.Text = !stok
End With
End Sub

Private Sub exit_Click()
a = MsgBox("YAKIN MAU KELUAR", vbYesNo, "INFO")
If a = vbYes Then
F_MENU.Show
form_barang.Visible = False
End If
End Sub

Private Sub find_Click()
Dim a As String
a = InputBox("Ketik kode yang akan dicari :", "Pencarian")
On Error Resume Next
data_barang.Recordset.Index = "kode_barang"
data_barang.Recordset.Seek "=", a
tampil
tkode_barang.Enabled = False
tnama_barang.Enabled = False
tharga_barang.Enabled = False
tsatuan.Enabled = False
tstok.Enabled = False
If data_barang.Recordset.NoMatch Then
MsgBox "record kode barang " + a + " tidak ada ", vbInformation, "Informasi"
End If
edit.Enabled = True
End Sub

Private Sub Form_Load()
nonaktif
bersih
save.Enabled = False
cancel.Enabled = False
edit.Enabled = False
End Sub

Private Sub Form_Unload(cancel As Integer)
Dim keluar As String
keluar = MsgBox("Anda akan keluar sistem?", _
vbQuestion + vbYesNo, "Message")
Select Case keluar
Case vbYes
End
Case Else: cancel = 1: End Select
End Sub

Private Sub hapus_Click()
data_barang.Recordset.Delete
data_barang.Recordset.MoveFirst
Call tampil
End Sub

Private Sub maju_Click()
data_barang.Recordset.MoveNext
If data_barang.Recordset.EOF Then
MsgBox "Data sudah di akhir record", vbInformation, "info"
data_barang.Recordset.MoveLast
End If
Call tampil
End Sub

Private Sub mundur_Click()
data_barang.Recordset.MovePrevious
If data_barang.Recordset.BOF Then
MsgBox "Data sudah di awal record", vbInformation, "info"
data_barang.Recordset.MoveFirst
End If
Call tampil
End Sub

Private Sub save_Click()
With data_barang.Recordset
.Index = "kode_barang"
.Seek "=", tkode_barang.Text
If .NoMatch Then
.AddNew
'Addnew = untuk membuat atau menambah data baru
'perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
.Fields!kode_barang = tkode_barang.Text
.Fields!nama_barang = tnama_barang.Text
.Fields!harga_barang = tharga_barang.Text
.Fields!satuan = tsatuan.Text
.Fields!stok = tstok.Text
.Update
MsgBox "data tersimpan!", vbInformation, "info"
Else
.edit
.Fields!nama_barang = tnama_barang.Text
.Fields!harga_barang = tharga_barang.Text
.Fields!satuan = tsatuan.Text
.Fields!stok = tstok.Text
.Update
MsgBox "data diperbaharui!", vbInformation, "info"
End If
bersih
nonaktif
add.Enabled = True
save.Enabled = False
cancel.Enabled = False
End With
End Sub

Private Sub tharga_barang_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
    KeyAscii = 0
End If
End Sub

Private Sub Timer1_Timer()
tanggal.Caption = Date
jam.Caption = Time
End Sub

Private Sub tkode_barang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tnama_barang.SetFocus
End If

End Sub

Private Sub tnama_barang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tharga_barang.SetFocus
End If
End Sub

Private Sub tsatuan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
tstok.SetFocus
End If
End Sub

Private Sub tstok_KeyPress(KeyAscii As Integer)
If ((KeyAscii < 48 And KeyAscii <> 8) Or KeyAscii > 57) Then
    KeyAscii = 0
End If
If KeyAscii = 13 Then
save.SetFocus
End If
End Sub