ya... kan tinggal dimodifikasi dikit aja query dari bung FRANKY... Private Sub List1_Click() rs.Open "select hargabarang from namatable where namabarang = '" & combobox.Text & "'" Text1 = rs!hargabarang rs.Close End Sub
kalo g salah kaya gitu... he he he he --- In [email protected], "okta mesepi" <[EMAIL PROTECTED]> wrote: > > thanks nih dijawab, tapi sepertinya pertanyaan saya salah, bukan dari > listbox tp dari combobox. jadi dicombobox kita scroll down ada item2, (saya > udah additem di combobox) terus kalo kita pilih item "A" dicombobox (run > macro) maka saya pingin harga item "A" tadi muncul ditextbox gitu. tolong > dijawab ya, thanks. > > On 4/24/08, Frangky id <[EMAIL PROTECTED]> wrote: > > > > Kodenya di textbox tapi di ListBox. Coba seperti dibawah ini: > > > > Private Sub List1_Click() > > rs.Open "select hargabarang from namatable where namabarang = '" & > > List1.Text & "'" > > Text1 = rs!hargabarang > > rs.Close > > End Sub > > > > > > Pada tanggal 23/04/08, okta mesepi <[EMAIL PROTECTED]> menulis: > >> > >> Dear moderator's dan master's > >> > >> Salam kenal dari saya yang baru gabung dimilis ini, nama saya okta dan > >> baru belajar computer dan tertarik sama vb karena kita bisa berkreasi dan > >> berangan-angan dengan menuangkan konssep atau ide untuk membuat program. > >> > >> sekalian disini saya mau tanya satu hal, kalo kita punya listbox yang > >> isinya nama2 barang misal mobil, motor, kapal laut dsb terus saya bikin > >> textbox yang dimaksukan, jika dilistbox dipilih mobil maka ditextbox berisi > >> harganya 10juta, jika dipilih motor maka harganya 2jt dst. > >> > >> kira2 bagaimana code untuk ditextboxnya ya?? terimakasih para master atas > >> bantuannya. > >> > >> > >> > >> okta > >> > >> > >> > > > > > > >
