Pengisian koding pada tombol Cari dan Keluar

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

Koding Cari

Private Sub Command5_Click()

On Error Resume Next

Dim kode As String

kode = InputBox("Ketik Kode Nasabah:")

Data1.Recordset.Index = "idxnasabah"

Data1.Recordset.Seek "=", kode

If Data1.Recordset.NoMatch Then

Text1.Text = Data1.Recordset.Fields(0)

Text2.Text = Data1.Recordset.Fields(1)

Text3.Text = Data1.Recordset.Fields(2)

Text4.Text = Data1.Recordset.Fields(3)

Text5.Text = Data1.Recordset.Fields(5)

response = MsgBox("data tidak ditemukan..!!", 0, "Pencarian data nasabah"

End If

End Sub

Koding Keluar

Private Sub Command6_Click()

Unload Me

End Sub

Setelah setiap tombol Tambah, Simpan, Edit, Hapus, Cari, dan Keluar sudah diisi koding maka dapat di run seperti gambar dibawah ini :

Alhamdulillah selesai...