oooo yaaa ...
nih tak kasi caranya ...
---Letakkin di Modulenya ----
Public Sub IsiJenisBuah(obj As Form)
With obj.comboPilihan ----- ComboPilihan :
harus ada pada setiap form seperti yg anda sebutkan sebelumnya
.Clear
.AddItem "00 - Pepaya"
.AddItem "01 - Mangga"
.AddItem "02 - Pisang"
.AddItem "03 - Jambu"
End With
End Sub
Setiap form ganti jadi :
Private Sub Form_Load()
IsiJenisBuah Form2 ---> Form2 : Nama Form masing-2
seperti yg anda sebutkan sebelumnya
End Sub
Mudahkan selamat mencoba, Tapi saya sarankan kalau program yg anda
bangun berhubungan dgn databases ,
bagusnya gunakan lah tabel , combo box hanya load ulang record yg ada.
:) Trim's
sonmailist wrote:
lum bisa mr. robin...
kan di module combobox nya gk ada. jd prog nya error..?
--- In [email protected]
<mailto:Programmer-VB%40yahoogroups.com>, 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...?
> >
> >
>
