Cobain begini ...misalkan tabel kamu field nya seperti ini :
ID,Expense Type,Sub Expense Type
Misalkan nama combo box Expense Type adalah ExpenseType
dan nama combo box Sub Expense Type adalah SubExpenseType
maka kamu dapat gunakan event pada combo box Expense type dengan kode:
cara buat kode tau kan (Klik kanan pada combo box ExpenseType , Propertise
dan cari pada bagian event dan pilih After Update )
Private Sub ExpenseTyper_AfterUpdate()
Me.SubExpenseType.Requery
Me.SubExpenseType = Me.SubExpenseType.ItemData(0)
End Sub
Moga bisa membantu
On 4/6/06, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
>
> Dear All,
>
> Selamat pagi guys.. saya ad masalah nih di Access neh.. saya disuruh buat
> database menggunakan access, dan ada dua field user mintanya dibuatkan
> dropdown menu (combo box). jadi gini skenarionnya dalam satu table
> terdapat
> beberapa field, dan ada 2 field yg user mau itu pake combo box yaitu pada
> field Expense Type dan Sub Expense Type. saya gambarkan yah biar ga
> bingung.
>
> Nama Field
> ________________________________
> | Expense Type | Sub Expense Type |
> ________________________________
>
> nah pada field *expense type* dibikin combo, misalkan
> - Hotel
> - Meals
> - Transport
> - Others
>
> nah pada *sub expense type*
> apa bila kita memilih *Hotel *di expense type maka akan muncul secara
> otomatis di sub sexpense type *Hotel1, Hotel2, Hotel3, Hotel4 dst.*
> apa bila di field expense type di pilih Meals maka di sub expense type
> akan
> muncul *Meals1, Meals2, Meals3, Meals4 dst.*
>
> nah pertanyaannya bagaimana yah, kalau kita pilih menu yg ada di field
> *expense
> type *maka otomatis akan muncul menu-menu di *sub expense type *seperti yg
> udah di tetapkan seperti gambaran yg sudah saya jelaskan diatas.
>
> kalau untuk membuat combo boxnya saya sudah ketemu caranya tapi
> memunculkan
> di field *sub expense type* saya masih belum ketemu. apakah harus
> menggunakan macro atau membuat script VB lagi, kl untuk buat script VB
> saya
> agak bermasalah soalnya saya ga ngerti apa ttg VB.
>
> sebelum dan sesudahnya terima kasih.
>
> thanks
> 090535020X
>
>
> [Non-text portions of this message have been removed]
>
>
>
>
>
> --
> www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
> Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
> :: Hapus bagian yang tidak perlu (footer, dst) saat reply! ::
> ## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
> $$ Iklan/promosi : www.itcenter.or.id/sponsorship $$
>
> [@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
[Non-text portions of this message have been removed]
--
www.itcenter.or.id - Komunitas Teknologi Informasi Indonesia
Info, Gabung, Keluar, Mode Kirim : [EMAIL PROTECTED]
:: Hapus bagian yang tidak perlu (footer, dst) saat reply! ::
## Jobs: itcenter.or.id/jobs ## Bursa: itcenter.or.id/bursa ##
$$ Iklan/promosi : www.itcenter.or.id/sponsorship $$
[@@] Jaket ITCENTER tersedia di http://shop.itcenter.or.id
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/ITCENTER/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
