I. Praktek Microsoft Access I · PDF file3 Gambar 1.5 Layar Microsoft Access 2003 1.4 Membuat...
Transcript of I. Praktek Microsoft Access I · PDF file3 Gambar 1.5 Layar Microsoft Access 2003 1.4 Membuat...
1
I. Praktek Microsoft Access I
Tujuan :
1. Pengenalan Access
2. Membuka Program Access
3. Mengenal Elemen Dasar Jendela Kerja Access
4. Membuat File Tabel Baru
5. Menyimpan File Tabel
6. Menampilkan dan Memperbaiki Data
7. Membuat Form dengan AutoWizard
8. Mengakhiri Access
1.1 Pengenalan Access 2003
Access 2003 adalah salah satu program aplikasi basis data (database) yang canggih, populer dan
sangat memperhatikan kemudahan pemakaian, fleksibilitas & integrasi dengan program lainnya serta
kemudahan bekerja pada sistem jaringan dengan pemanfaatannya yang optimal.
1.2 Membuat Folder Baru (Sub Directory)
Sebelum memulai program Access, sebaiknya anda buatkan dulu sub directory (folder) dengan nama
Nama Anda untuk menyimpan data-data anda agar tidak tercampur dengan data orang lain. Adapun langkah-
langkahnya adalah sbb.:
1. Nyalakan komputer anda, tunggu sampai komputer menampilkan area kerja (desktop) Windows
9x./Xp/2000/2003
2. Klik kanan tombol Start yang ada pada taskbar.
3. Pilih Explorer (lihat gambar 1.1)
4. Untuk membuat Folder Baru; klik directory tempat membuat folder baru (misal drive D atau O),
kemudian klik menu File, New, Folder (lihat gambar 1.2)
5. Ganti New Folder dengan nama anda (lihat gambar 1.3)
6. Keluar dari program windows explorer :
- Klik Menu File
- Pilih Close
Gambar 1.1 Memulai membuka program Windows Explorer
1.3 Memulai Access 2003
Untuk memulai program aplikasi Access 2003, ikuti langkah-langkah berikut ini :
1. Klik tombol Start yang ada pada taskbar.
2
2. Pilih menu Program.
3. Kemudian pilih dan klik program Microsoft Access seperti pada gambar 1.4, maka di layar komputer
anda akan tampil layar Microsoft Access seperti pada gambar 1.5.
Gambar 1.2. Cara membuat Folder Baru
Gambar 1.3 Tampilan Windows Explorer
Gambar 1.4 Memulai Access 2003 Melalui Menu Program
3
Gambar 1.5 Layar Microsoft Access 2003
1.4 Membuat File Database Baru
Untuk membuat file baru dalam access, lakukan langkah-langkah berikut :
1. Klik Icon New pada toolbars Database
2. Klik Blank Database pada kolom New di toolbars Task Pane sebelah kanan layer Access, kemudian
akan tampil kotak dialog File New Database (seperti pada gambar 1.6)
Gambar 1.6. Kotak Dialog File New Database
3. Ketik nama file SIGD (Sistem Informasi Gaji Dosen) pada kolom File Name, lalu pindahkan ke folder
nama anda, missal SUSI, kemudian klik tombol Create.
4. Maka di layar akan tampil kotak dialog seperti pada gambar 1.7.
4
1.5 Membuat File Table Baru
Buatlah file table pada gambar 1.8., Indeks field KODEDSN dan jadikan KODEDSN sebagai
Primary Key, serta simpan dengan nama file DOSEN.
Langkah Pengerjaannya :
a. Klik Object Table
b. Double Klik pada option Create Table in Design View, seperti pada gambar 1.7.
Gambar 1.7. Kotak dialog Menu Access
c. Buatkan struktur Table DOSEN pada gambar 1.8. berikut :
Field Name Data Type Description Field Size Format Index Kodedsn Text Kode Dosen 5 >@ Yes (No Duplicate) Namadsn Text Nama Dosen 25 Alamat Text Alamat 30
Kota Text Kota 15 Telp Text Telepon 11 Foto Ole Object Foto Dosen -
Gambar 1.8. File Tabel DOSEN
d. Simpan Tabel DOSEN di atas dengan cara meng-klik icon save pada toolbars Table Design (Ctrl +
S), kemudian beri nama file DOSEN
e. Untuk meng-entry data dosen, klik icon view pada toolbars Table Design.
f. Entri data pada Gambar 1.9. berikut :
Gambar 1.9. Data Dosen
5
g. Tutup File Table dengan mengklik File, Close atau tekan (Ctrl +W)
1.6 Membuat File Form
Buatkan Design Form seperti pada Gambar 1.10. :
Gambar 1.10 Contoh Form
Langkah Pengerjaan :
a. Klik object Form
b. Double klik option Create Form in Design View
c. Munculkan jendela Properties dengan meng-klik kanan pada form, kemudian pilih properties.
d. Pilih object Form, kemudian pilih page Format pada jendela properties.
e. Pada baris Caption ketik judul Form : OLAH DATA DOSEN
f. Pada baris Picture : Pilih Gambar yang dikehendaki
g. Pada baris Picture Size Mode : Pilih Stretch
h. Klik page Data
i. Pada baris Record Source : Pilih Table DOSEN (untuk meng-conect-kan file Tabel DOSEN ke Form)
j. Atur lebar form sesuai kebutuhan, kemudian lakukan design form seperti pada gambar 1.10
k. Semua question (Kode Dosen, Nama Dosen, Alamat, Kota dan Telepon) dibuatkan dengan Label.
l. Semua Field Entry dibuatkan dengan TextBox. Nama Field di entry dari Data, Control Source pada
jendela properties.
m. Kotak gambar/foto dibuatkan dengan Bound Oject Frame
1.7 Tugas I.
1. Buatkan file database baru dengan nama SIPNM (Sistem Informasi Pengolahan Nilai Mahasiswa)
2. Buatkan File Table MHS (Mahasiswa) dengan struktur sbb :
Field Name Data Type Description Field Size Format Index NIM Text Nomor Induk Mahasiswa 8 >@ Yes (No Duplicate)
NamaMhs Text Nama Mahasiswa 20 TempatLahir Text Tempat Lahir 15 TglLahir Date/Time Tanggal Lahir Medium Date Alamat Text Alamat 30
Kota Text Kota 15 KodePos Text KodePos 5 Telp Text Telepon 11 Photo OLE Object Photo Mahasiswa
6
4. Entry Data Mahasiswa (Ngarang sendiri minimal sepuluh record), contoh sbb :
5. Buatkan form untuk mengolah data mahasiswa, seperti contoh berikut :
7
II. Praktek Microsoft Access II
Tujuan :
1. Membuka Desain Form
2. Mengganti Background
3. Membuat Tombol Tekan
4. Membuat Report dengan Wizard
2.1 Meng-Edit Form
1. Membuka File Database (SIGD)
a. Pilih dan klik File
b. Pindahkan directory ke folder nama masing-masing
c. Pilih dan klik file SIPB
2. Membuka Desain Form
a. Pilih dan klik Object Form
b. Pilih dan klik File Olah Data Dosen
c. Pilih dan klik Toolbar Design
3. Mengganti BackGround
a. Aktifkan jendela Properties dengan meng-klik kanan pada form kosong, kemudian pilih properties
b. Pilih Form pada jendela Properties
c. Cari Picture pada jendela Format Properties
d. Cari directory gambar
e. Klik tombol OK
4. Membuat Tombol Tekan
a. Tombol Tekan Pertama
Klik control Command Button pada ToolBox
Klik pada form kosong
Pilih Categories Record Navigation
Pilih actions Go To First Record
Klik Tombol Next
Pilih Picture Go To First 1
Klik Tombol Next
Ketik Pertama untuk nama tombolnya
Klik tombol Finish
Atur lebar dan tinggi tombol-nya
Perintah tersebut di atas akan meng-create procedure sbb.:
Private Sub Pertama_Click()
On Error GoTo Err_Pertama_Click
DoCmd.GoToRecord , , acFirst
Exit_Pertama_Click:
Exit Sub
Err_Pertama_Click:
Resume Exit_Pertama_Click
End Sub
8
Ulangi perintah di atas untuk membuat tombol yang lainnya, jika kesulitan tanyakan pada Tutor
(Dosen).
b. Procedure Tombol Sebelumnya
Private Sub Sebelumnya_Click()
On Error GoTo Err_Sebelumnya_Click
DoCmd.GoToRecord , , acPrevious
Exit_Sebelumnya_Click:
Exit Sub
Err_Sebelumnya_Click:
Resume Exit_Sebelumnya_Click
End Sub
c. Procedure Tombol Berikutnya
Private Sub Berikutnya_Click()
On Error GoTo Err_Berikutnya_Click
DoCmd.GoToRecord , , acNext
Exit_Berikutnya_Click:
Exit Sub
Err_Berikutnya_Click:
Resume Exit_Berikutnya_Click
End Sub
d. Procedure Tombol Terakhir
Private Sub Terakhir_Click()
On Error GoTo Err_Terakhir_Click
DoCmd.GoToRecord , , acLast
Exit_Terakhir_Click:
Exit Sub
Err_Terakhir_Click:
Resume Exit_Terakhir_Click
End Sub
e. Procedure Tombol Terakhir
Private Sub Tambah_Click()
On Error GoTo Err_Tambah_Click
Dim kode As String
DoCmd.GoToRecord , , acLast
kode = kodedsn.Value
DoCmd.GoToRecord , , acNewRec
kodedsn.Value = kode
Exit_Tambah_Click:
Exit Sub
Err_Tambah_Click:
MsgBox ("Sorry Kode Dosen Yang Anda Masukan Duplikasi")
Resume Exit_Tambah_Click
End Sub
f. Procedure Tombol Hapus
Private Sub hapus_Click()
9
On Error GoTo Err_hapus_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_hapus_Click:
Exit Sub
Err_hapus_Click:
Resume Exit_hapus_Click
End Sub
g. Procedure Tombol Keluar
Private Sub keluar_Click()
On Error GoTo Err_keluar_Click
DoCmd.Close
Exit_keluar_Click:
Exit Sub
Err_keluar_Click:
Resume Exit_keluar_Click
End Sub
Hasilnya menjadi seperti pada gambar 2.1 berikut :
Gambar 2.1 Layout Form Olah Data Dosen
2.2 Membuat Report
Langkah-langkah membuat report :
a. Klik object Report
b. Double klik option Create Report in Design View
c. Munculkan jendela Properties dengan meng-klik kanan pada report, kemudian pilih properties.
d. Pilih object Report, kemudian pilih page Format pada jendela properties.
e. Pada baris Caption ketik judul Report : DAFTAR DOSEN
10
f. Klik page Data
g. Pada baris Record Source : Pilih Table DOSEN (untuk meng-conect-kan file Tabel DOSEN ke Report)
h. Memunculkan Report Header dan Report Footer
- Klik kanan pada report
- Pilih dan klik Report Header/Footer
i. Lakukan design report seperti pada gambar 2.2.
Gambar 2.2. Design Report DAFTAR DOSEN
2.3 Memanggil Report dari Form
Buka kembali Form Olah Data Dosen dan tambahkan tombol Preview Report seperti pada gambar
2.3 berikut :
11
Procedure Tombol Preview
Private Sub Tampil_Click()
On Error GoTo Err_Tampil_Click
Dim stDocName As String
stDocName = "Daftar Dosen"
DoCmd.OpenReport stDocName, acPreview
Exit_Tampil_Click:
Exit Sub
Err_Tampil_Click:
Resume Exit_Tampil_Click
End Sub
2.4. Tugas II.
1. Buka file database SIPNM, kemudian buatkan Report Daftar Mahasiswa sbb. :
2. Perbaiki file Form olah data mahasiswa yang sudah dibuatkan pada tugas 1 :
12
III.Praktek Microsoft Access III
Tujuan :
1. Membuat File Tabel Baru
2. Menyimpan File Tabel
3. Membuat Form dengan AutoWizard
3.1 Membuat File Tabel Mata Kuliah
Untuk membuat file table baru, lakukan langkah-langkah berikut :
5. Klik Objects Table
6. Klik create table in design view
7. Klik tombol design
8. Buatkan struktur file table seperti pada gambar 3.1
Field Name Data Type Description Field Size Format Decimal Places Index KodeMk Text Kode Mata Kuliah 9 >@ Yes (No Duplicate) NamaMk Text Nama Mata Kuliah 22 Kredit Number SKS Long Integer Standard 0
Gambar 3.1. File Tabel MK
5. Simpan Tabel Mata Kuliah di atas dengan cara meng-klik icon save pada toolbars Table Design
(Ctrl + S), kemudian beri nama file MK
6. Tutup File Table dengan mengklik File, Close atau tekan (Ctrl +W)
3.2 Membuat File Tabel Mata Kuliah
Untuk membuat form baru, lakukan langkah-langkah berikut :
1. Klik object Form
2. Double klik option Create Form in Design View
3. Munculkan jendela Properties dengan meng-klik kanan pada form, kemudian pilih properties.
4. Pilih object Form, kemudian pilih page Format pada jendela properties.
5. Pada baris Caption ketik judul Form : OLAH DATA MATA KULIAH
6. Pada baris Picture : Pilih Gambar yang dikehendaki
7. Pada baris Picture Size Mode : Pilih Stretch
8. Klik page Data
9. Pada baris Record Source : Pilih Table MK (untuk meng-conect-kan file Tabel MK ke Form)
10. Atur lebar form sesuai kebutuhan, kemudian lakukan design form seperti pada gambar 3.2
Gambar 3.2 Form Olah Data Mata Kuliah
13
11. Semua question (Kode Mata Kuliah, Nama Mata Kuliah, Kredit) dibuatkan dengan Label.
12. Semua Field Entry dibuatkan dengan TextBox. Nama Field di entry dari Data, Control Source pada
jendela properties.
13. Semua tombol tekan dibuatkan dengan Command Button
14. Jika design form sudah selesai, simpan dengan menekan Ctrl+S, kemudian berinama Olah Data Mata
Kuliah.
15. Tampilkan/jalankan Form, kemudian entri data pada Gambar 3.3. berikut :
Gambar 3.3 Data Mata Kuliah
3.3 Tugas III.
1. Buka file database SIPNM
2. Buatkan File Table LEVEL dengan struktur lihat gambar 3.4
Field Name Data Type Description Field Size Format Decimal Places Index lvl Text Level Dosen 2 >@ Yes (No Duplicate) GajiPJam Number Gaji Per Jam Long Integer Standard 0
Gambar 3.4. Table LEVEL
3. Buatkan Form untuk mengolah Data Level, Contoh Form seperti pada gambar 3.5
Gambar 3.5. Form Olah Data Level
14
9. Buatkan Report DAFTAR LEVEL, contoh design seperti pada gambar 3.6 :
Gambar 3.6. Daftar Level
15
IV. Praktek Microsoft Access IV
Tujuan : Membuat File Menu
4.1 Membuat File Menu
Untuk membuat Form Menu, lakukan langkah-langkah berikut :
10. Klik Objects Form
11. Klik create Form in design view
12. Klik tombol design
13. Buatkan Form Menu Utama seperti pada gambar 4.1
Gambar 4.1. Form Menu Utama
5. Simpan dengan nama Menu Utama, kemudian tutup form.
6. Membuat Sub Menu Data Master, dengan contoh desain seperti pada gambar 4.2.
7. Simpan Form tersebut dengan nama Data Master
Gambar 4.2. Form Data Master
8. Membuat Sub Menu Laporan, dengan desain seperti pada gambar 4.3.
9. Simpan Form tersebut dengan nama Laporan
16
Gambar 4.3. Form Laporan
4.2 Tugas IV.
1. Buatkan Form Menu Utama
2. Buatkan Form Sub Menu Data Master
17
3. Buatkan Form Sub Menu Laporan
18
V. Praktek Microsoft Access V
Tujuan :
1. Menyimpan File Macro
2. Membuat File Conection
5.1 Membuat File Macro
Untuk membuat Form Macro, lakukan langkah-langkah berikut :
14. Membuat File Macro Menu Utama
a. Klik Object Macro
b. Klik Option New
c. Klik kanan pada Title Bar kotak dialog Macro
d. Pilih dan klik Macro Name
e. Ketik Menu Utama pada kolom Macro Name
f. Cari dan pilih option Close pada kolom Action
g. Cari dan pilih option Form pada baris Object Type
h. Cari dan pilih file Data Master pada baris Object Name
i. Ulangi perintah nomor f s/d h pada baris ke dua untuk memasukan perintah menutup file Laporan
j. Cari dan pilih option OpenForm pada kolom Action baris ke tiga
k. Cari dan pilih file Menu Utama pada baris Form Name
l. Cari dan pilih option Form pada baris View
m. Cari dan pilih option Normal pada baris Window Mode
n. Simpan dengan nama file Menu Utama
o. Tutup kotak dialog Macro
15. Membuat File Macro Data Master
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Data Master pada kolom Macro Name
e. Cari dan pilih option Close pada kolom Action
f. Cari dan pilih option Form pada baris Object Type
g. Cari dan pilih file Menu Utama pada baris Object Name
h. Cari dan pilih option OpenForm pada kolom Action
i. Cari dan pilih file Data Master pada baris Form Name
j. Cari dan pilih option Form pada baris View
k. Cari dan pilih option Normal pada baris Window Mode
l. Simpan dengan nama file Data Master
m. Tutup kotak dialog Macro
16. Membuat File Macro Laporan
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Laporan pada kolom Macro Name
e. Cari dan pilih option Close pada kolom Action
f. Cari dan pilih option Form pada baris Object Type
g. Cari dan pilih file Menu Utama pada baris Object Name
h. Cari dan pilih option Open Form pada kolom Action
19
i. Cari dan pilih file Laporan pada baris Form Name
j. Cari dan pilih option Form pada baris View
k. Cari dan pilih option Normal pada baris Window Mode
l. Simpan dengan nama file Laporan
m. Tutup kotak dialog Macro
17. Membuat File Macro Keluar
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Keluar pada kolom Macro Name
e. Cari dan pilih option Quit pada kolom Action
f. Ketik Keluar dari Program pada kolom Comment
g. Cari dan pilih option Save All pada baris Option
h. Simpan dengan nama file Keluar
i. Tutup kotak dialog Macro
18. Membuat File Macro Olah Data Dosen
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Olah Data Dosen pada kolom Macro Name
e. Cari dan pilih option OpenForm pada kolom Action
f. Cari dan pilih File Olah Data Dosen pada baris Form Name
g. Cari dan pilih option Form pada baris View
h. Cari dan pilih option Normal pada baris Window Mode
i. Simpan dengan nama file Olah Data Dosen
j. Tutup kotak dialog Macro
19. Membuat File Macro Olah Data Mata Kuliah
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Olah Data Mata Kuliah pada kolom Macro Name
e. Cari dan pilih option OpenForm pada kolom Action
f. Cari dan pilih File Olah Data Mata Kuliah pada baris Form Name
g. Cari dan pilih option Form pada baris View
h. Cari dan pilih option Normal pada baris Window Mode
i. Simpan dengan nama file Olah Data Mata Kuliah
j. Tutup kotak dialog Macro
20. Membuat File Macro Olah Data Level
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Olah Data Level pada kolom Macro Name
e. Cari dan pilih option OpenForm pada kolom Action
f. Cari dan pilih File Olah Data Level pada baris Form Name
g. Cari dan pilih option Form pada baris View
h. Cari dan pilih option Normal pada baris Window Mode
20
i. Simpan dengan nama file Olah Data Level
j. Tutup kotak dialog Macro
21. Membuat File Macro Daftar Dosen
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Daftar Dosen pada kolom Macro Name
e. Cari dan pilih option OpenReport pada kolom Action
f. Cari dan pilih File Daftar Dosen pada baris Report Name
g. Cari dan pilih option Print Preview pada baris View
h. Cari dan pilih option Normal pada baris Window Mode
i. Simpan dengan nama file Daftar Dosen
j. Tutup kotak dialog Macro
22. Membuat File Macro Daftar Mata Kuliah
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Daftar Mata Kuliah pada kolom Macro Name
e. Cari dan pilih option OpenReport pada kolom Action
f. Cari dan pilih File Daftar Mata Kuliah pada baris Report Name
g. Cari dan pilih option Print Preview pada baris View
h. Cari dan pilih option Normal pada baris Window Mode
i. Simpan dengan nama file Daftar Mata Kuliah
j. Tutup kotak dialog Macro
23. Membuat File Macro Daftar Level
a. Klik lagi Option New
b. Klik kanan pada Title Bar kotak dialog Macro
c. Pilih dan klik Macro Name
d. Ketik Daftar Level pada kolom Macro Name
e. Cari dan pilih option OpenReport pada kolom Action
f. Cari dan pilih File Daftar Level pada baris Report Name
g. Cari dan pilih option Print Preview pada baris View
h. Cari dan pilih option Normal pada baris Window Mode
i. Simpan dengan nama file Daftar Level
j. Tutup kotak dialog Macro
24. Menghubungkan File Macro ke File Form Menu Utama
a. Buka Design Form Menu Utama
b. Klik pada Command Button dan Label Data Master
c. Cari dan Pilih File Macro Data Master pada kejadian On Clik di Jendela Properties.
d. Klik pada Command Button dan Label Laporan
e. Cari dan Pilih File Macro Laporan pada kejadian On Clik di Jendela Properties.
f. Klik pada Command Button dan Label Keluar
g. Cari dan Pilih File Macro Keluar pada kejadian On Clik di Jendela Properties.
h. Simpan dan Tutup Design Form Menu Utama.
25. Menghubungkan File Macro ke File Form Data Master
21
a. Buka Design Form Data Master
b. Klik pada Command Button dan Label Olah Data Dosen
c. Cari dan Pilih File Macro Olah Data Dosen pada kejadian On Clik di Jendela Properties.
d. Klik pada Command Button dan Label Olah Data Mata Kuliah
e. Cari dan Pilih File Macro Olah Data Mata Kuliah pada kejadian On Clik di Jendela Properties.
f. Klik pada Command Button dan Label Olah Data Level
g. Cari dan Pilih File Macro Olah Data Level pada kejadian On Clik di Jendela Properties.
h. Klik pada Command Button dan Label Kembali Ke Menu Utama
i. Cari dan Pilih File Macro Menu Utama pada kejadian On Clik di Jendela Properties.
j. Simpan dan Tutup Design Form Data Master.
26. Menghubungkan File Macro ke File Form Laporan
a. Buka Design Form Laporan
b. Klik pada Command Button dan Label Daftar Dosen
c. Cari dan Pilih File Macro Daftar Dosen pada kejadian On Clik di Jendela Properties.
d. Klik pada Command Button dan Label Daftar Dosen
e. Cari dan Pilih File Macro Daftar Dosen pada kejadian On Clik di Jendela Properties.
f. Klik pada Command Button dan Label Daftar Mata Kuliah
g. Cari dan Pilih File Macro Daftar Mata Kuliah pada kejadian On Clik di Jendela Properties.
h. Klik pada Command Button dan Label Daftar Level Dosen
i. Cari dan Pilih File Macro Daftar Level pada kejadian On Clik di Jendela Properties.
j. Klik pada Command Button dan Label Kembali ke Menu Utama
k. Cari dan Pilih File Macro Menu Utama pada kejadian On Clik di Jendela Properties.
5.2 Tugas V.
1. Buatkan File Macro Menu Utama, Data Master, Laporan, Keluar, Olah Data Mahasiswa, dan Olah Data
Mata Kuliah.
2. Hubungkan File Form Menu Utama dengan File Macro Data Master dan Laporan
3. Hubungkan pula File Form Data Master dengan File Macro Olah Data Mahasiswa, Olah Data Mata
Kuliah, dan Menu Utama.
4. Hubungkan pula File Form Laporan dengan File Macro Daftar Mahasiswa, Daftar Mata Kuliah, dan
Menu Utama.
22
VI. Praktek Microsoft Access VI
Tujuan :
1. Membuat Tabel
2. Membuat File Query
3. Merelasikan File
4. Membuat Formula pada Query
5. Membuat Form dengan Query
6.1 Membuat File Table Transaksi
1. Buat File Table GajiDsn berikut :
Field Name Data Type Description Field Size Format Decimal Places Index
NoAbs Text Nomor Absensi 9 >@ Yes (No Duplicate) Bulan Date/Time Bulan MMMM YYYY KodeDsn Text Kode Dosen 5 >@ Yes (Duplicate Ok) Gatot Number Gaji Total Long Integer Standard 0
Infak Number Infak Long Integer Standard 0 Gasih Number Gaji Bersih Long Integer Standard 0
2. Buat File Table Absen berikut :
Field Name Data Type Description Field Size Format Decimal Places Index NoAbs Text Nomor Absensi 9 >@ Yes (Duplicate Ok) KodeMK Text Kode Mata Kuliah 9 >@ Yes (Duplicate Ok) Lvl Text Level 2 >@ Yes (Duplicate Ok)
JmlAbs Number Jumlah Absensi Long Integer Standard 0
6.2 Membuat File Queries
Untuk membuat File Query, lakukan langkah-langkah berikut :
1. Membuat File Query QAbsen
p. Klik Object Queries
q. Klik Option Create Query in Design View
r. Pilih dan Klik File GajiDsn kemudian Klik Tombol Add
s. Pilih dan Klik File Absen kemudian Klik Tombol Add
t. Pilih dan Klik File MK kemudian Klik Tombol Add
u. Pilih dan Klik File Level kemudian Klik Tombol Add
v. Pilih dan Klik Tombol Close
w. Double klik semua field secara satu per satu pada semua file table
x. Klik kanan pada kolom kosong setelah Kolom GajiPJam, kemudian pilih Build
y. Buatka Formula berikut : Gaji: Absen!jmlabs*MK!kredit*level![GajiPJam]
z. Simpan dengan nama file QAbsen
aa. Tutup kotak Query (Gambar 6.1)
2. Membuat File Query QGaji
a. Klik Object Queries
b. Klik Option Create Query in Design View
c. Pilih dan Klik File Dosen kemudian Klik Tombol Add
d. Pilih dan Klik File GajiDsn kemudian Klik Tombol Add
e. Pilih dan Klik Tombol Close
f. Double klik semua field secara satu per satu pada semua file table
23
g. Simpan dengan nama file QGaji
h. Tutup kotak Query (Gambar 6.2)
Gambar 6.1. File Query QAbsen
Gambar 6.2. File Query QGaji
3. Membuat File Query QGajiDsn
a. Klik Object Queries
b. Klik Option Create Query in Design View
c. Pilih dan Klik File Dosen kemudian Klik Tombol Add
d. Pilih dan Klik File GajiDsn kemudian Klik Tombol Add
e. Pilih dan Klik File Absen kemudian Klik Tombol Add
f. Pilih dan Klik File MK kemudian Klik Tombol Add
g. Pilih dan Klik File Level kemudian Klik Tombol Add
h. Pilih dan Klik Tombol Close
i. Double klik semua field secara satu per satu pada semua file table
j. Klik kanan pada kolom kosong setelah Kolom GajiPJam, kemudian pilih Build
k. Buatka Formula berikut : Gaji: Absen!jmlabs*level![GajiPJam]*MK!kredit
24
l. Simpan dengan nama file QGajiDsn
m. Tutup kotak Query (Gambar 6.3)
Gambar 6.3. File Query QGajiDsn
6.3 Tugas VI.
1. Buatkan File Tabel IdNilai sbb.:
Field Name Data Type Description Field Size Format Decimal Places Index IdNilai Text Id Nilai=Nim& Smt 10 >@ Yes (No Duplicate) Nim Text Nomor Induk Mhs 8 >@ Yes (Duplicate Ok)
Smt Text Semester 1 >@ ThAk Text Tahun Akademik 9 >@
2. Buatkan Tabel DetailNilai sbb. :
Field Name Data Type Description Field Size Format Decimal Places Index IdNilai Text Id Nilai=Nim& Smt 10 >@ Yes (Duplicate Ok)
KodeMK Text Nomor Induk Mhs 9 >@ Yes (Duplicate Ok) UTS Number Ujian Tengan Smt Long Integer Standard 0 UAS Number Ujian Akhir Smt Long Integer Standard 0 TGS Number Tugas Long Integer Standard 0
NA Number Nilai Akhir Long Integer Standard 0 AM Number Angka Mutu Long Integer Standard 0 HM Text Huruf Mutu 1 >@ NM Number Nilai Mutu Long Integer Standard 0
25
3. Buatkan File Queries QNilai sbb. :
Formula :
Jurusan: IIf(Mid(IdNilai!Nim;3;3)="232";"Komputerisasi Akuntansi";"Manajemen Informatika") Lahir: Mahasiswa!Tlahir & ", " & Mahasiswa!TglLahir
4. Buatkan File Queries QDetailNilai sbb. :
Formula :
Jurusan: IIf(Mid(IdNilai!Nim;3;3)="232";"Komputerisasi Akuntansi";"Manajemen Informatika") Lahir: Mahasiswa!Tlahir & ", " & Mahasiswa!TglLahir
26
VII. Praktek Microsoft Access VII
Tujuan :
1. Membuat Report Struk Gaji
2. Mem-filter Data
7.1 Membuat File Report Struk Gaji
Untuk membuat File Report Struk Gaji, lakukan langkah-langkah berikut :
1. Membuat File Report Baru
bb. Klik Object Report
cc. Klik Option Create Report in Design View
2. Menggabungkan File Query QGajiDsn ke dalam File Report
a. Munculkan Jendela Properties
b. Cari object Report pada jendela Properties
c. Pilih dan Klik Option Data
d. Pilih dan Klik File Query QGajiDsn pada baris Record Source
3. Membuat Filter agar Struk Gaji baris ditampilkan/dicetak per Nomor Absen
a. Ketik GajiDsn.NoAbs=NomorAbsensi.Value pada baris Filter
b. Pilih kejadian Yes pada baris Filter On
c. Tutup Jendela Properies
4. Membuat Group Data
a. Klik kanan pada Report yang kosong
b. Pilih Sorting and Grouping
c. Lakukan Grouping data sbb. :
d. Untuk Grouping berdasarkan Nomor Absensi (NoAbs), tampilkan Group Footernya, dengan memilih
kejadian Yes pada baris Ggroup Footer
e. Tutup kembali jendela Sorting and Grouping
27
7.2 Design Report Struk Gaji
Desain Report Struk Gaji berikut ini :
7.3 Tugas VII.
1. Buatkan desain report Kartu Kemajuan Studi (KKS) seperti pada gambar 7.2.1.:
2. Gunakan File Query (QDetailNilai) untuk membuat Kartu Kemajuan Studi di atas.
3. Untuk menghitung Indeks Prestasi, Formulanya =sum(nm)/sum(kredit)
28
Gambar 7.2.1. Report Kartu Kemajuan Studi (KKS)
29
VIII. Praktek Microsoft Access VIII
Tujuan :
1. Membuat Form Olah Data Gaji Dosen
2. Mencetak Per Nomor Absensi
3. Membuat SubForm
4. Menggunakan File Macro
8.1 Membuat Form Olah Data Gaji Dosen
A. Buat File Form Olah Data Gaji Dosen berikut :
Gambar 8.1 Contoh Form Olah Data Gaji Dosen
B. Procedure Tombol Keluar On Click
Private Sub Keluar_Click()
On Error GoTo Err_Keluar_Click
DoCmd.Close
Exit_Keluar_Click:
Exit Sub
Err_Keluar_Click:
Resume Exit_Keluar_Click
End Sub
C. Formula Tombol + On Click
Private Sub Tambah_Click()
On Error GoTo Err_Tambah_Click
30
DoCmd.GoToRecord , , acNewRec
Exit_Tambah_Click:
Exit Sub
Err_Tambah_Click:
Resume Exit_Tambah_Click
End Sub
D. Procedure Tombol Cetak On Click
Private Sub cetak_Click()
On Error GoTo Err_cetak_Click
Dim stDocName As String
stDocName = "TrukGaji"
DoCmd.OpenReport stDocName, acViewPreview
Exit_cetak_Click:
Exit Sub
Err_cetak_Click:
Resume Exit_cetak_Click
End Sub
E. Procedure Tombol Hapus On Click
Private Sub Hapus_Click()
On Error GoTo Err_Hapus_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Hapus_Click:
Exit Sub
Err_Hapus_Click:
Resume Exit_Hapus_Click
End Sub
F. Procedure Tombol Pertama On Click
Private Sub Pertama_Click()
On Error GoTo Err_Pertama_Click
DoCmd.GoToRecord , , acFirst
Exit_Pertama_Click:
Exit Sub
Err_Pertama_Click:
Resume Exit_Pertama_Click
End Sub
G. Procedure Tombol Sebelumnya On Click
Private Sub Sebelumnya_Click()
On Error GoTo Err_Sebelumnya_Click
DoCmd.GoToRecord , , acPrevious
Exit_Sebelumnya_Click:
Exit Sub
Err_Sebelumnya_Click:
Resume Exit_Sebelumnya_Click
End Sub
31
H. Procedure Tombol Berikutnya On Click
Private Sub Berikutnya_Click()
On Error GoTo Err_Berikutnya_Click
DoCmd.GoToRecord , , acNext
Exit_Berikutnya_Click:
Exit Sub
Err_Berikutnya_Click:
Resume Exit_Berikutnya_Click
End Sub
I. Procedure Tombol Terakhir On Click
Private Sub Terakhir_Click()
On Error GoTo Err_Terakhir_Click
DoCmd.GoToRecord , , acLast
Exit_Terakhir_Click:
Exit Sub
Err_Terakhir_Click:
Resume Exit_Terakhir_Click
End Sub
J. Procedure Tombol Ref (Refresh) On Click
Private Sub Ref_Click()
On Error GoTo Err_Ref_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Ref_Click:
Exit Sub
Err_Ref_Click:
Resume Exit_Ref_Click
End Sub
K. Membuat SubForm dengan properties sbb.:
L. Membuat Tombol Jumlah Absensi
Private Sub jmlabs_Click()
On Error GoTo Err_jmlabs_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FormAbsen"
stLinkCriteria = "[Noabs]=" & "'" & Me![NoAbs] & "'"
32
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_jmlabs_Click:
Exit Sub
Err_jmlabs_Click:
Resume Exit_jmlabs_Click
End Sub
8.2 Membuat Form Jumlah Absensi
A. Buat File Form Jumlah Absensi seperti pada gambar 8.2.A:
B. Procedure TextBox JmlAbs After Update
Private Sub jmlabs_AfterUpdate()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub
C. Procedure Command Button On Click
Private Sub Pertama_Click()
On Error GoTo Err_Pertama_Click
DoCmd.GoToRecord , , acFirst
Exit_Pertama_Click:
Exit Sub
Err_Pertama_Click:
Resume Exit_Pertama_Click
End Sub
33
D. Procedure Command Button On Click
Private Sub Sebelumnya_Click()
On Error GoTo Err_Sebelumnya_Click
DoCmd.GoToRecord , , acPrevious
Exit_Sebelumnya_Click:
Exit Sub
Err_Sebelumnya_Click:
Resume Exit_Sebelumnya_Click
End Sub
E. Procedure Command Button On Click
Private Sub Berikutnya_Click()
On Error GoTo Err_Berikutnya_Click
DoCmd.GoToRecord , , acNext
Exit_Berikutnya_Click:
Exit Sub
Err_Berikutnya_Click:
Resume Exit_Berikutnya_Click
End Sub
F. Procedure Command Button On Click
Private Sub Terakhir_Click()
On Error GoTo Err_Terakhir_Click
DoCmd.GoToRecord , , acLast
Exit_Terakhir_Click:
Exit Sub
Err_Terakhir_Click:
Resume Exit_Terakhir_Click
End Sub
G. Procedure Command Button On Click
Private Sub Tambah_Click()
Dim Kode As String
Kode = NoAbs.Value
On Error GoTo Err_Tambah_Click
DoCmd.GoToRecord , , acNewRec
NoAbs.Value = Kode
Exit_Tambah_Click:
Exit Sub
Err_Tambah_Click:
Resume Exit_Tambah_Click
End Sub
34
H. Procedure Command Button On Click
Private Sub Hapus_Click()
On Error GoTo Err_Hapus_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Hapus_Click:
Exit Sub
Err_Hapus_Click:
Resume Exit_Hapus_Click
End Sub
I. Procedure Command Button On Click
Private Sub cetak_Click()
On Error GoTo Err_cetak_Click
Dim stDocName As String
stDocName = "TrukGaji"
DoCmd.OpenReport stDocName, acViewPreview
Exit_cetak_Click:
Exit Sub
Err_cetak_Click:
Resume Exit_cetak_Click
End Sub
J. Procedure Command Button On Click
Private Sub Keluar_Click()
On Error GoTo Err_Keluar_Click
Gatot.Value = tot.Value
Inpak.Value = 0.025 * tot.Value
Gasih.Value = tot.Value - Inpak.Value
DoCmd.Close
Exit_Keluar_Click:
Exit Sub
Err_Keluar_Click:
Resume Exit_Keluar_Click
End Sub
J. Procedure Command Button Refresh On Click
Private Sub Ref_Click()
On Error GoTo Err_Ref_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Exit_Ref_Click:
Exit Sub
Err_Ref_Click:
Resume Exit_Ref_Click
End Sub
35
8.3 Membuat File Macro
A. Buat File Macro Penjualan
Action baris 1. Close Form : Detail Pejualan
Action baris 2. Open Form : Penjualan
B. Memanggil File Macro dari Detail Penjualan
File Macro Penjualan dibuka dari tombol Keluar pada form Detail Penjualan.
8.4 Tugas VIII.
1. Buatkan Form Entry Olah Data Nilai sbb.:
Gunakan File Query (QNilai1) untuk membuat Form Olah Data Nilai di atas.
2. Buatkan Form Entry Detail Nilai sbb.:
36
Gunakan File Query (QNilai2) untuk membuat Form Detail Nilai di atas.
37
IX. Praktek Microsoft Access IX
Tujuan :
1. Membuat Report Rekap Gaji Dosen
2. Memfilter data Per Bulan
9.1 Cara Membuat Report Rekap Gaji Dosen
Untuk membuat File Report Rekap Gaji Dosen, lakukan langkah-langkah berikut :
1. Membuat File Report Baru
dd. Klik Object Report
ee. Klik Option Create Report in Design View
2. Menggabungkan File Query QGajiDsn ke dalam File Report
a. Munculkan Jendela Properties
b. Cari object Report pada jendela Properties
c. Pilih dan Klik Option Data
d. Pilih dan Klik File Query QGajiDsn pada baris Record Source
3. Membuat Filter agar Rekap gaji Dosen bisa ditampilkan/dicetak per Bulan
a. Ketik Month(GajiDsn.bulan)=Masukan_Bulan_Dalam_Angka pada baris Filter
b. Pilih kejadian Yes pada baris Filter On
c. Tutup Jendela Properies
4. Membuat Group Data
a. Klik kanan pada Report yang kosong
b. Pilih Sorting and Grouping
c. Lakukan Grouping data sbb. :
d. Untuk Grouping berdasarkan GajiDsn.NoAbs, tampilkan Group Header dan Footernya, dengan
memilih kejadian Yes pada baris Group Header dan baris Ggroup Footer
e. Tutup kembali jendela Sorting and Grouping
38
9.2 Mendesign Report Rekap Gaji Dosen
Design Laporan Harian seperti pada gambar 9.2.
Gambar 9.1 Contoh Rekap Gaji Dosen
9.3 Tugas IX.
1. Buatkan desain report Rekapitulasi Nilai sbb.:
39
2. Lakukan Sorting dan Gruping Report Rekapitulasi Nilai sbb.:
40
X. Praktek Microsoft Access X
Tujuan :
1. Latihan Membuat Table
2. Latihan Membuat Query
3. Latihan Membuat Form 4. Latihan Membuat Report
10.1 Membuat Table
1. Table Barang
2. Table Anggota
41
3. Table Faktur Jual
4. Table Detail Jual
42
10.2 Membuat Query
1. Query QJual
2. Query QJual1
43
3. Query QJual2
10.3 Membuat Report (Faktur)
Buatlak Report Faktur Penjualan sbb. :
44
10.4 Membuat Form
1. Form Penjualan Barang :
2. Form Detail Penjualan :