COMBOBOX'ta Mükerrer kayıt sorunu

[benkimim96]

Arkadaşlar merhaba;
Ekte gönderdiğim olduğum dosyada açılan ilk pencerede (UserForm5) devam tuşuna basılarak veri girilmek istenen formun seçileceği ikinci bir pencere (UserForm7) açılıyor. Burada pasif durumda yer alan combobox verisi (aylar) bir önceki UserForm5 üzerindeki combobox2 ile aynı değeri taşıyor. Ay Değiştir butonuna basılarak aktifleşen bu combobox değeri ilk açılışında problem yok, ancak Form 023 veya Form 018 butonlarına tıklayıp ilgili formlar açılıp geri dönüldüğünde aynı verilerin alt alta yinelendiğini görüyoruz. Yani yılın 12 ayı mükerrer bir şekilde comboboxa ekleniyor acaba bu formun activate olayına eklediğim için mi böyle oluyor. Yardımcı olursanız sevinirim.
Saygılar.

 

[Orion1]

KOda Kırmızı satırı ilave ediniz.

Private Sub UserForm_Activate()
[B][COLOR="Red"]ComboBox1.Clear[/COLOR][/B]
ComboBox1.AddItem "OCAK"
ComboBox1.AddItem "ŞUBAT"
ComboBox1.AddItem "MART"
ComboBox1.AddItem "NİSAN"
ComboBox1.AddItem "MAYIS"
ComboBox1.AddItem "HAZİRAN"
ComboBox1.AddItem "TEMMUZ"
ComboBox1.AddItem "AĞUSTOS"
ComboBox1.AddItem "EYLÜL"
ComboBox1.AddItem "EKİM"
ComboBox1.AddItem "KASIM"
ComboBox1.AddItem "ARALIK"


Dim month
month = UserForm5.ComboBox2.Text
ComboBox1.Value = month

End Sub

 

[benkimim96]

Hocam alakanıza teşekkürler. Ancak bu kodu yazdığmızda her geri dönüşümüzde clear komutu gerçekleşmez mi? Yani bizim en son girdiğimiz ay verisi combobox da kalmayacaktır öyle değil mi?

 

[benkimim96]

Sizlerden özür diliyorum. Belki de çok acemice sorular, belki çok alt seviye sizler için. Daha önce çok az C++ ile uğraştım ama visual basic ilk defa kullanıyorum ve de bu çalışma da ilk çalışmam. Biraz acemice oldu.

 

[benkimim96]

Hocam galiba çözdüm

Dim month
month = UserForm5.ComboBox2.Text
ComboBox1.Value = month

ComboBox1.Clear
ComboBox1.AddItem "OCAK"
ComboBox1.AddItem "ŞUBAT"
ComboBox1.AddItem "MART"
ComboBox1.AddItem "NİSAN"
ComboBox1.AddItem "MAYIS"
ComboBox1.AddItem "HAZİRAN"
ComboBox1.AddItem "TEMMUZ"
ComboBox1.AddItem "AĞUSTOS"
ComboBox1.AddItem "EYLÜL"
ComboBox1.AddItem "EKİM"
ComboBox1.AddItem "KASIM"
ComboBox1.AddItem "ARALIK"

şeklinde (yani yer değiştirerek) sanırım çalışacak.

 

[benkimim96]

Evren hocam teşekkürler. Evet sizin eklememi salık verdiğiniz satırı ekledim ve

Dim month
month = UserForm5.ComboBox2.Text
ComboBox1.Value = month

satırlarını üste aldım. Çalıştı.