Form Tab Propinsi, Kabupaten, Kecamatan

kawan2 pendekar access….
ada gak contoh form terdiri dari 3 Tab.
Tapi tiap tab 2 merefer ke tab 1, tab 3 merefer ke tab 2.
Kasus:
Saya punya 3 table : Tbl_propinsi, tbl_kabupaten, tbl_kecamatan
Nah saya ingin membuat 3 Tab.
Pada Tab 1 saya pilih Propinsi Jawa Timur, maka di Tab 2 tampil Kabupaten yg ada di Prop Jawa Timur
Pada tab 2 saya pilih Kabupaten Banyuwangi, maka di Tab 3 tampil semua kecamatan di Kab Banyuwangi, dst….
Thx kalau ada yg bisa ngasih saya contoh.

Solusi ini mungkin bisa membantu:

1.      Buat  3 table, tblKabupaten, tblKecamatan, tblPropinsi dengan ID =Autonumber (PK) dan relationship seperti  tampak pada gambar dibawah.

2.      Query1: SELECT tblPropinsi.Propinsi, tblKabupaten.Kabupaten, tblKecamatan.Kecamatan
FROM tblPropinsi INNER JOIN (tblKabupaten INNER JOIN tblKecamatan ON tblKabupaten.ID = tblKecamatan.IDKab) ON tblPropinsi.ID = tblKabupaten.IDPropinsi;

QueryTab2: SELECT tblKabupaten.ID, tblKabupaten.Kabupaten, tblKabupaten.IDPropinsi
FROM tblKabupaten
WHERE (((tblKabupaten.IDPropinsi)=[Forms]![Frm_Tab]![combo7]));

QueryTab3: SELECT tblKecamatan.ID, tblKecamatan.Kecamatan, tblKecamatan.IDKab
FROM tblKecamatan
WHERE (((tblKecamatan.IDKab)=[forms]![Frm_Tab![combo12]));

 

 

 

a.       Buat Tab Propinsi

 

Column Count: 2

Column Widths: 0cm;2cm (agar yang ditampilkan di combobox adalah column ke 2)

 

Buat ComboBox, property row source:

SELECT tblPropinsi.ID, tblPropinsi.Propinsi

FROM tblPropinsi;

Buat Event AfterUpdate:

Private Sub Combo7_AfterUpdate()

Me.Refresh

End Sub

b.       Buat Tab KABUPATEN:

 

 

Buat ComboBox, property row source:

SELECT QueryTab2.ID, QueryTab2.Kabupaten, QueryTab2.IDPropinsi

FROM QueryTab2

WHERE (((QueryTab2.IDPropinsi)=[forms]![Frm_Tab]![combo7]));

Buat Event AfterUpdate:

Private Sub Combo12_AfterUpdate()

Me.Refresh

End Sub

c.       Buat tab Kecamatan

 

 

Buat ComboBox, property row source:

SELECT tblKecamatan.ID, tblKecamatan.Kecamatan, tblKecamatan.IDKab

FROM tblKecamatan

WHERE (((tblKecamatan.IDKab)=[forms]![Frm_Tab]![combo12]));

Buat Event AfterUpdate:

Private Sub Combo14_AfterUpdate()

Me.Refresh

End Sub

Regards,


 

About Sumiyanto Surabaya

http://bajajbekas.wordpress.com/ berdiri sejak 7 Mei 2009. Termotivasi untuk menghabiskan stock barang tarikan dengan metode pemasaran yang konvensional memakan banyak pikiran, tenaga, dan dana untuk kampanye melalui media koran lokal yang hanya berdurasi 1-3 hari saja. Tidak cukup waktu untuk menghabiskan seluruh stock unit tarikan yang ada. Untuk alasan itulah media ini berdiri menjembatani bagi peminat motor khususnya bajaj untuk mendapatkan informasi yang tepat, tempat yang tepat, motor yang tepat. Tidak lebih. Dikelola oleh Sumiyanto, Goal Keeper Perusahaan Finance di Wilayah Jl. Jemur Andayani 50, Ruko Surya Inti Permata D 10-11, Surabaya, 031-72472523, 081 246 83700 https://cakyanto.wordpress.com/ Belajar tentang pemrograman database berbasis Ms Access

Posted on November 19, 2010, in Tutorial Ms Access. Bookmark the permalink. Tinggalkan komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: