widgets

Jumat, 26 Juli 2013

Membuat Menu Utama di Microsoft Access


Bagaimana cara mambuat menu utama pada Microsoft Access ?
Pada tips Microsoft Access kali ini kita akan membahas cara membuat menu utama dengan menggunakan list box.
Untuk membuat menu ini kita harus mempersiapkan 2 tabel menu. Tabel menu pertama digunakan untuk menampilkan pilihan menu utama, sedangkan tabel kedua untuk menampilkan menu pada submenu. Pada contoh di sini tabel pertama diberi nama Menu0 sedangkan tabel kedua diberi nama Menu1.

Struktur tabel Menu0:
1. ID (Number - Integer)
2. Menu_Item Text(50)

Struktur tabel Menu1:
1. Menu_ID (Number - Integer)
2. Menu_Item Text(50)
3. Object_Name Text(50)
4. Urutan (Number - Integer)
5. Tipe Text(20)

Berikut ini screen shoot menu pilihan yang dibuat dengan control list box:

Data menu pilihan pada Menu Utama, diambli dari tabel Menu0 sedangkan data menu pilihan pada list box Sub Menu diambil dari tabel Menu1.
Jika user memilih salah satu menu pilihan pada di list box Menu Utama, maka pada list box Sub Menu akan tampil pilihan sesuai pilihan pada Menu Utama. Untuk memilih menu pada list box sub menu, user haru men-double klik pada menu pilihan yang ada..

Pada form menu ini list box Menu Utama diberi nama List0 dan list box Sub menu diberi nama List1. Property Row source dari List0 adalah tabel Menu0 dan Property Row source List1 adalah tabel Menu1.

Script program pada even OnClick pada list box List0 adalah sebagai berikut:

------------------------------------------------
Private Sub List0_Click()
Dim Jawab As Integer
On Error Resume Next
Me.List2.RowSource = "SELECT Menu1.*, Menu1.Urutan FROM Menu1 WHERE (((Menu1.Menu_ID)=" & List0.Column(0) & _
")) ORDER BY Menu1.Urutan;"
Me.List2.Requery

If List0.Column(1) = "Selesai" Then
Jawab = MsgBox("Exit Aplication ?", vbYesNo + vbExclamation)
If Jawab = vbYes Then
'Keluar
DoCmd.Quit acQuitSaveAll
End If
End If
End Sub
------------------------------------------------

Script program pada even OnDobleClick pada list box List1 adalah sebagai berikut:
-----------------------------------------------
Private Sub List2_DblClick(Cancel As Integer)
On Error Resume Next
If List2.Column(4) = "Form" Then
DoCmd.OpenForm List2.Column(2)
ElseIf List2.Column(4) = "Query" Then
DoCmd.OpenQuery List2.Column(2)
ElseIf List2.Column(4) = "Report" Then
DoCmd.OpenReport List2.Column(2), acViewPreview
End If
End Sub
------------------------------------------------

Untuk lebih jelasnya anda dapat men-download contoh programnya di sini.

Tidak ada komentar:

Posting Komentar