Re: [belajar-access] Refer untuk 3 Tab

Dear N17R4 H4f45, 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,

AccessWizards

 

 

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___