Coba pakai table (misal msbuah)
Terus di module tinggal bikin function :
Public Sub IsiCombo(combo as ComboBox, query as String)
combo.Clear
Dim rsTMP as new ADODB.Recordset
rsTMP.Open query, koneksi, adOpenForwardOnly
Do While not rsTMP.EOF
combo.AddItem rsTMP(0).Value
rsTMP.MoveNest
Loop
rsTMP.Close
set rsTMP = nothing
End Sub
Waktu isi ke combo, pakai validasi dulu juga boleh (misal if not
IsNull(rsTMP(0).Value) untuk mengantisipasi error kalau isinya null.
Nanti di form load tinggal panggil Call IsiCombo(Combo1, "select * from msbuah")
Semoga membantu
Liung's
www.apktntajd.com (Ape Kate Ente Aje Deh!)
----- Original Message -----
From: sonmailist
To: [email protected]
Sent: Tuesday, July 24, 2007 9:31 AM
Subject: [Programmer-VB] Re: fungsi isi combobox...?
lum bisa mr. robin...
kan di module combobox nya gk ada. jd prog nya error..?
--- In [email protected], Robin Sembiring <[EMAIL PROTECTED]>
wrote:
>
> Mr son, bagusnya :
>
> Public Sub IsiJenisBuah
> ...
>
> diletakkan pada Module aja . kan itu udah Public jadi bs kemana-2 donk
> heheheeehhe,
> nah kalau di form sudah anda letakkan pemanggilan Call IsiJenisBuah.,
> berarti dah Ok.
>
> tinggal nambahin item aja di Modulnya, form yg lain pasti kebagian
>
> Met coba
>
> RS
>
>
>
>
>
> sonmailist wrote:
> >
> > pada tiap form_load saya ketikan perintah "Call IsiJenisBuah" untuk
> > mengisi combobox, dan ini ada di banyak form.
> >
> > pada tiap form ada listing sbg brikut.
> > namun klo ingin nambah item buah saya harus merubah d seluruh form.
> >
> > Public Sub IsiJenisBuah()
> > with comboPilihan
> > .clear
> > .AddItem "00 - Pepaya"
> > .AddItem "01 - Mangga"
> > .AddItem "02 - Pisang"
> > .AddItem "03 - Jambu"
> > end with
> > End SUb
> >
> > bagaimana yaa biar saya ubah satu fungsi ini semua combobox jg berubah
> > isinya...?
> >
> >
>
.
