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,