Bls: [belajar-access] Ask : filter pada combo

mungkin ini bisa membantu.

jadi pada combo company bisa ditambahkan perintah sbb :


Private Sub company_AfterUpdate()
    'ASM =ASM, AIP=TSE & PSE, TMP=MG1,MG2.MGF (combobox)
    If Me.company.Column(1) = "ASM" Then
        Me.unit.RowSource = "select* from tbl_unit where unit='ASM'"
    ElseIf Me.company.Column(1) = "AIP" Then
        Me.unit.RowSource = "select* from tbl_unit where unit='TSE' or unit='PSE'"
    Else
        Me.unit.RowSource = "select* from tbl_unit where unit='MG1' or unit='MG2' or unit='MGF'"
    End If
End Sub

sebenarnya kalau data yang digolongkan cuman sedikit sih tidak ada masalah menggunakan cara diatas
tetapi kalau data yang digolongkan jumlahnya banyak saran saya lebih baik dihubungkan antara tabel company dan tabel unitnya.

semoga bisa membantu

---

Dari: ephot cr <ephot_independent@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Ming, 12 Desember, 2010 08:24:59
Judul: [belajar-access] Ask : filter pada combo [1 Attachment]

 

Tolong bantuannya Saya ada database asset : Filed : assetid    location      : HOJKT, ROBJB,ROPKU (combobox) company    : ASM,AIP,TMP (combobox) unit             : ASM =ASM, AIP=TSE & PSE, TMP=MG1,MG2.MGF (combobox) Pertanyaan : 1. Bagaimana cara ketika saya pilih combobox company maka pada combobox unit sudah terfilter sesuai info diatas 2. Bagaimana cara clear record ketika button save selesai di tekan berikut saya kirimkan databasenya terimakasih banyak sebelumnya, ephot

__._,_.___

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

__,_._,___