coba metode berikut tanpa tabel pembantu : '=================================== Option Compare Database Dim jenis As String Private Sub Form_Load() cmbJenis.RowSourceType = "Value List" cmbUkuran.RowSourceType = "Value List" cmbJenis.LimitToList = True cmbUkuran.LimitToList = True cmbJenis.RowSource = """Kaos"";""Celana""" jenis = "Kaos" End Sub Private Sub cmbJenis_AfterUpdate() If cmbJenis.Value = "Kaos" Then cmbUkuran.RowSource = """M"";""L"";""XL"";""LL""" Else cmbUkuran.RowSource = """25"";""26"";""27"";""28"";""29"";""30"";""31""" End If If cmbJenis <> jenis Then cmbUkuran.SetFocus:: cmbUkuran.Dropdown:: jenis = cmbJenis End Sub
-================================================== Mudah- mudahan membantu 2010/5/4 Joni <[email protected]> > > > terima kasih buat tanggapannya... > saya cobain tuk satu persatu...scripnya. > > Untuk Pak Thomas: > kemarin saya memberi 2 atribut saja untuk combobox 1 nya,tetapi Klo > combobox 1 atributnya banyak nanti akan muncul combobox baru yg lebih > banyak. > > maksud saya, bisa gak combobox kedua di buat sederhana lagi?... > misal : > Data ke 1 >> combobox 1 : kaos, > untuk combobox 2 nya : M,S,L,XL,LL. > > Data ke 2 >> combobox 2 : celana, > untuk combobox 2 nya : 25,26,27,28,29,30. > > jadi ketika combobox 1 dirubah celana otomatis combobox 2 nya menjadi > menampilkan atribut untuk celana, tidak menampilkan atribut kaos lagi. > > Mohon maaf sebelumnya... > dan terima kasih untuk masukannya... > mohon bantuan teman2 juga.. > > > -- --------------------------------------------- grapyak-semanak-cluthak http://djmumun.wordpress.com http://facebook.com/djmumun ---------------------------------------------
