Contoh latihan:

Private Sub CMDDELETE_Click()
If MsgBox("Yakin Akan Hapus Data?", vbYesNo, "Info Azach") = vbYes Then
Data1.Recordset.Delete
Data1.Recordset.MoveFirst
End If
End Sub

Private Sub CMDEXIT_Click()
X = MsgBox("Yakin Akan Keluar??", vbOKCancel, "Bioskop 21 Nonstop")
If X = vbOK Then
End
End If
End Sub


Private Sub CMDNEW_Click()
TXTJUDUL = ""
TXTSTUDIO = ""
TXTHARGA = ""
TXTJB = ""
TXTJML = ""
TXTDISCOUNT = ""
TXTTOTAL = ""
Combo1.SetFocus
End Sub

Private Sub CMDSAVE_Click()
Data2.Recordset.AddNew
Data2.Recordset!Kd_Film = Combo1
Data2.Recordset!Judul = TXTJUDUL
Data2.Recordset!Studio = TXTSTUDIO
Data2.Recordset!Harga = TXTHARGA
Data2.Recordset!Jml_Beli = TXTJB
Data2.Recordset!Jumlah = TXTJML
Data2.Recordset!Discount = TXTDISCOUNT
Data2.Recordset!Total = TXTTOTAL
Data2.Recordset.Update
End Sub

Private Sub CMDSEARCH_Click()
X = InputBox("Silahkan Input Kode Film Yang Anda Cari!!", "Pencarian Data")
Data1.Recordset.Indeks = "KODE"
If Data1.Recordset.NoMatch Then
X = MsgBox("Data Tidak Ditemukan", vbInformation, "Pencarian Data")
End If
End Sub


Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
TXTJUDUL = "BROWNIES"
TXTSTUDIO = 1
TXTHARGA = 20000
Case 1
TXTJUDUL = "EKSKUL"
TXTSTUDIO = 1
TXTHARGA = 22500
Case 2
TXTJUDUL = "HEART"
TXTSTUDIO = 1
TXTHARGA = 15000
Case 3
TXTJUDUL = "MISSION IMPOSIBLE"
TXTSTUDIO = 1
TXTHARGA = 25000
Case Else
TXTJUDUL = "RUMAH PONDOK INDAH"
TXTSTUDIO = 2
TXTHARGA = 17500
End Select
End Sub

Private Sub Form_Activate()
Combo1.AddItem "BR102"
Combo1.AddItem "EL102"
Combo1.AddItem "HR101"
Combo1.AddItem "MI101"
Combo1.AddItem "PI203"
End Sub

Private Sub TXTDISCOUNT_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTTOTAL = Val(TXTJML) - Val(TXTDISCOUNT)
End If
End Sub

Private Sub TXTJB_Change()
TXTJML = Val(TXTHARGA) * Val(TXTJB)
If Val(TXTJB) >= 10 Then
TXTDISCOUNT = 0.1 * Val(TXTJML)
ElseIf Val(TXTJB) >= 5 Then
TXTDISOUNT = 0.05 * Val(TXTJML)
Else
TXTDISCOUNT = 0
End If
End Sub