MS ACCESS MAILING LIST: Bls: Bls: [belajar-access] Ask : filter pada combo [1 Attachment]

[Attachment(s) from GALIH PERSADHA included below]

pada tabel unit tambahkan idcompany
sehingga pada waktu mengisikan unit maka disitu juga akan diminta mengisikan idcompani
lalu pada waktu memanggil datanya yang seperti dimaksudkan dalam pertanyaan maka kita bisa gunakan kriterianya adalah idcompanynya

contoh :
Table company :
idcompany        namacompany
1                            SM
2                            AIP
3                            TMP

Tabel Unit :
idunit        namaunit        idcompany
1                SM            1
2                TSE                 2
3                PSE                 2
4                MG1               3
5                MG2               3
6                MGF              3

dan seterusnya

maka pada waktu kita panggil di on click pada row source ( combo box ) bisa ditulis
select namaunit from tableunit where idcompany ='"& me.combocompany.column(0) &"'

jika pada combocompany ditampilkan datanya IDcompany,Namacompany

bis adilihat pada contoh nya :

semoga membantu

Dari: ephot_independent <ephot_independent@yahoo.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Rab, 15 Desember, 2010 14:13:10
Judul: Re: Bls: [belajar-access] Ask : filter pada combo

terima kasih banyak sebelumnya bang,

sebenarnya datanya itu cukup banyak jg tidak seperti yg saya contohkan, kalo menggunakan relasi antar table company dan unit itu seperti apa bang bisa share...terima kasih (saya akan coba yg tambahan coding td)

--- In belajar-access@yahoogroups.com, GALIH PERSADHA <galih_persadha@...> wrote:
>
> 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@...>
> Kepada: belajar-access@yahoogroups.com
> Terkirim: Ming, 12 Desember, 2010 08:24:59
> Judul: [belajar-access] Ask : filter pada combo [1 Attachment]
>
>
> [Attachment(s) from ephot cr included below]
> 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
>