ACCESS LATIHAN DATABASE SAMPAI REPORT

Membuat database

1.      buatlah database Rental VCD dan simpan di folder Anda masing-masing.

Membuat tabel

2.      buatlah tabel Anggota dengan struktur field sebagai berikut :

Field Name	Data Type	Field Size	Format	Caption	Keterangan
noanggota	Text	5	>	Nomor Anggota	Primary Key
namaanggota	Text	30	>	Nama Anggota
alamat	Text	50	>	Alamat
Tlp	Text	13		Telepon

3.      kemudian isikan record berikut ini :

4.      buatlah tabel VCD dengan struktur field sebagai berikut :

Field Name	Data Type	Field Size	Format	Decimal Places	Caption	Keterangan
Kodevcd	Text	5	>		Kode VCD	Primary Key
Judulvcd	Text	30	>		Judul VCD
Tarifsewa	Number	Single	"Rp."#.###,00	2	Tarif Sewa
Tarifdenda	Number	Integer	"Rp."#.###,00	2	Tarif Denda

5.      isikan record berikut :

6.      buatlah tabel Sewa dengan struktur tabel sebagai berikut :

Field Name	Data Type	Field Size	Format	Caption
kodevcd	Text	5	>	Kode VCD
noanggota	Text	5	>	Nomor Anggota
tglpinjam	Date/Time		Medium Date	Tanggal Pinjam
Tglkembali	Date/Time		Medium Date	Tanggal Kembali

7.      buatlah combobox pada tabel sewa untuk field kodevcd dan noanggota.

  8.      isikan record berikut :

Membuat relasi

9.      buatlah relationshipnya.

Membuat query

10.  buatlah query anggota dari tabel anggota.

11.  buatlah query vcd dari tabel vcd.

12.  buatlah query sewa dari tabel sewa.

13.  buatlah query transaksi dengan field-field sebagai berikut :

Field Name	Tables Name
noanggota	Anggota
namaanggota	Anggota
alamat	Anggota
kodevcd	Sewa
judulvcd	Vcd
tarifsewa	Vcd
tarifdenda	Vcd
tglpinjam	sewa
tglkembali	Sewa

14.  tambahkan field baru dengan expression sebagai berikut :

Field Name	Rumus
lamasewa	lamasewa: [tglkembali]-[tglpinjam]
denda	denda: IIf([lamasewa]>7;[tarifdenda]*([lamasewa]-7);0)
totalbayar	totalbayar: [tarifsewa]+[denda]

Membuat form

15.  buatlah form anggota, form vcd, dan form sewa. Tambahkan tombol dan kotak pesan.

16.  untuk menambahkan total, Anda dapat menggunakan Text Box . Gantilah bagian depan menjadi Total dan berikan rumus pada bagian belakang sebagai berikut :

Option Compare Database

Private Sub cmdawal_Click()

On Error GoTo Err_cmdawal_Click

    DoCmd.GoToRecord , , acFirst

    MsgBox "Sudah di Awal Record", vbOKOnly + 48, "Informasi"

Exit_cmdawal_Click:

    Exit Sub

Err_cmdawal_Click:

    MsgBox Err.Description

    Resume Exit_cmdawal_Click

End Sub

Private Sub cmdmundur_Click()

On Error GoTo Err_cmdmundur_Click

    DoCmd.GoToRecord , , acPrevious

Exit_cmdmundur_Click:

    Exit Sub

Err_cmdmundur_Click:

    MsgBox "Record Pertama", vbOKOnly + 48, "Informasi"

    Resume Exit_cmdmundur_Click

End Sub

Private Sub cmdmaju_Click()

On Error GoTo Err_cmdmaju_Click

    DoCmd.GoToRecord , , acNext

Exit_cmdmaju_Click:

    Exit Sub

Err_cmdmaju_Click:

    MsgBox "Record Terakhir", vbOKOnly + 48, "Informasi"

    Resume Exit_cmdmaju_Click

End Sub

Private Sub cmdakhir_Click()

On Error GoTo Err_cmdakhir_Click

    DoCmd.GoToRecord , , acLast

    MsgBox "Sudah di Akhir Record", vbOKOnly + 48, "Informasi"

Exit_cmdakhir_Click:

    Exit Sub

Err_cmdakhir_Click:

    MsgBox Err.Description

    Resume Exit_cmdakhir_Click

End Sub

Private Sub cmdsimpan_Click()

On Error GoTo Err_cmdsimpan_Click

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_cmdsimpan_Click:

    Exit Sub

Err_cmdsimpan_Click:

    MsgBox Err.Description

    Resume Exit_cmdsimpan_Click

End Sub

Private Sub cmdhapus_Click()

On Error GoTo Err_cmdhapus_Click

MsgBox "Yakin Data ini ingin di hapus???", vbYesNo + 32, "Konfirmasi"

    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_cmdhapus_Click:

    Exit Sub

Err_cmdhapus_Click:

    MsgBox Err.Description

    Resume Exit_cmdhapus_Click

End Sub

Private Sub cmdtambah_Click()

On Error GoTo Err_cmdtambah_Click

    DoCmd.GoToRecord , , acNewRec

    noanggota.SetFocus

Exit_cmdtambah_Click:

    Exit Sub

Err_cmdtambah_Click:

    MsgBox Err.Description

    Resume Exit_cmdtambah_Click

End Sub

Private Sub cmdkeluar_Click()

On Error GoTo Err_cmdkeluar_Click

    DoCmd.Close

Exit_cmdkeluar_Click:

    Exit Sub

Err_cmdkeluar_Click:

    MsgBox Err.Description

    Resume Exit_cmdkeluar_Click

End Sub

Membuat report

17.  buatlah report anggota dari tabel anggota

18.  buatlah report vcd dari tabel vcd.

19.  buatlah report sewa dari tabel  sewa.

20.  buatlah report transaksi  dengan langkah sebagai berikut :

      masukan field di bawah ini :

Field Name	Tables Name
Noanggota	Anggota
Namaanggota	Anggota
Alamat	anggota
Kodevcd	Vcd
Judulvcd	Vcd
Tarifsewa	Vcd
tarifdenda	vcd
Tglpinjam	sewa
tglkembali	sewa

      klik next, pilih  by anggota,

      klik next 2 kali, ascending pada kolom 1 kodevcd,

      klik summary option, checklist pada  sum untuk mencari jumlah.

      klik next, atur seperti gambar di bawah ini :

      klik next, pilih background sesuka Anda, next, beri nama report transaksi, finish.