Re: [Programmer-VB] Tanya, pilih list field Combo Box, isi textbox

[Darsana]

coba ganti ComboKodeJenis.Text menjadi ComboKodeJenis.list(ComboKodeJenis.listindex)   salam, nyoman   ----- Original Message ----- From: PALUARED To: programmer-vb@yahoogroups.com Sent: Tuesday, December 06, 2005 11:50 AM Subject: [Programmer-VB] Tanya, pilih list field Combo Box, isi textbox mo tanya nich. gw pengen menampilkan "janis_barang" berdasarkan "kode_barang" yang di pilih pada combobox...   untuk menampilkan "kode_barang" pada combobox udah udah solve tapi setiap di pilih "Jnies_barang" belum muncul   code:   Sub Ganti_Label()     Dim strSQLjenis As String     Set rsMJenisBarang1 = New ADODB.Recordset     strSQLjenis = "select * from MJenisBarang where Jns_Kode = '" & Trim(ComboKodeJenis.Text) & "' "     rsMJenisBarang1.Open strSQLjenis, Con_DB     With rsMJenisBarang1         Text1.Text = Trim(!jns_nama)     End With End Sub Sub Isi_ComboJenis() Dim strSQLjenis As String     Set rsMJenisBarang = New ADODB.Recordset     strSQLjenis = "select * from MJenisBarang"     rsMJenisBarang.Open strSQLjenis, Con_DB     With rsMJenisBarang         .MoveFirst         While Not .EOF             ComboKodeJenis.AddItem rsMJenisBarang("Jns_kode")             .MoveNext         Wend             End With End Sub Private Sub Form_load()     Call isi_comboJenis End Sub Private Sub ComboKodeJenis_Change()     Call Ganti_Label End Sub kira2 masih kurang dimana nya ya... TIA -- Regards, Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.