ComboBox9.Style = 2 Kullanınca hata alıyorum?

[Emine Şahin]

Merhaba Arkadaşlar.
ComboBoxlarında "ComboBox9.Style = 2" kullandığım zaman hata alıyorum.
ListBoxtan çift tıklayınca hata veriyor...
Bunu nasıl çözebilirim. Kullanmadığımda sorun yok ama. Hata yapılmasını önlemek için böyle bir çare düşündüm. Bunun bir çözümü var mı acaba?
Dosyam ektedir.

 

[snx111]

ben bişey anlamadım nerdeki combobox combobox9 damı sadece ?;hangi list box ? ne tür hata alıyorsun ?
run time "380" mi ?
detay yazsan daha hızlı çözüm bulursun

 

[snx111]

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next '  BU KODU EKLEYİNİZ HATA YOK
If ListBox1.ListIndex < 0 Then Exit Sub
TextBox1.Text = ListBox1.Column(0)
TextBox2.Text = ListBox1.Column(1)
TextBox3.Text = ListBox1.Column(2)
TextBox4.Text = ListBox1.Column(3)
ComboBox1.Text = ListBox1.Column(4)
ComboBox2.Text = ListBox1.Column(5)
TextBox5.Text = ListBox1.Column(6)
TextBox6.Text = ListBox1.Column(7)
TextBox7.Text = ListBox1.Column(8)
ComboBox3.Text = ListBox1.Column(9)
ComboBox4.Text = ListBox1.Column(10)
TextBox8.Text = ListBox1.Column(11)
ComboBox5.Text = ListBox1.Column(12)
ComboBox6.Text = ListBox1.Column(13)
ComboBox7.Text = ListBox1.Column(14)
ComboBox8.Text = ListBox1.Column(15)
ComboBox9.Text = ListBox1.Column(16)
ComboBox10.Text = ListBox1.Column(17)
ComboBox11.Text = ListBox1.Column(18)
TextBox9.Text = ListBox1.Column(19)
TextBox10.Text = ListBox1.Column(20)
CommandButton1.Enabled = True 'False yaparsanız kaydet butonu pasif olur
CommandButton2.Enabled = True
CommandButton3.Enabled = True
End Sub

 

[Orion1]

Merhaba Arkadaşlar.
ComboBoxlarında "ComboBox9.Style = 2" kullandığım zaman hata alıyorum.
ListBoxtan çift tıklayınca hata veriyor...
Bunu nasıl çözebilirim. Kullanmadığımda sorun yok ama. Hata yapılmasını önlemek için böyle bir çare düşündüm. Bunun bir çözümü var mı acaba?
Dosyam ektedir.

listboxa tıklayınca oradaki veri sanıyorum comboboxta gseçiliyor.
style2 kulanırsanız,eğer comboboxta olmayan bir veriyi comboya aktarırsanız hata oluşur.style1 kullanırsanız bu hata oluşmaz.

 

[Emine Şahin]

ben bişey anlamadım nerdeki combobox combobox9 damı sadece ?;hangi list box ? ne tür hata alıyorsun ?
run time "380" mi ?
detay yazsan daha hızlı çözüm bulursun

Kısa ve öz yazmaya çalıştım. Anlaşılır olabileceğini düşünmüştüm ama. Yeterli değilmiş sanırım. Mazur görün bu konuda pek fazla bilgim olmadığı için soru sormakta da zorlanıyorum. Listboxta bulunan verilerin üzerine çift tıklayınca Textboxlara ve Comboboxlara geri geliyorlar. Burada çift tıklayınca hata veriyor. Style 2 yi kullandığımda hata verdi. Başlarına kesme işareti koyup devre dışı bırakınca hata vermedi. Doğru çalıştı. Lakin ben style 2 yi kullanmak istiyorum. Buna bir çözüm bulabilir miyiz? Umarım şimdi anlatabildim

Alıntı yaptığım mesajınızın altında verdiğiniz çözüm önerisi tamamdır. Problemi çözdü... Allah razı olsun

listboxa tıklayınca oradaki veri sanıyorum comboboxta gseçiliyor.
style2 kulanırsanız,eğer comboboxta olmayan bir veriyi comboya aktarırsanız hata oluşur.style1 kullanırsanız bu hata oluşmaz.

Merhaba Orion.
Style 2 içeren aşağıdaki kod yumağını:

ComboBox1.Style = 2
ComboBox2.Style = 2
ComboBox3.Style = 2
ComboBox4.Style = 2
ComboBox5.Style = 2
ComboBox6.Style = 2
ComboBox7.Style = 2
ComboBox8.Style = 2
ComboBox9.Style = 2
ComboBox10.Style = 2
ComboBox10.Style = 2

Hepsini "1" olarak değiştim ama sorun daha da büyüdü. Userformu açan makro çalışmadı. sayın: snx111'in sunduğu çözüm tamam. Alakanız için çok teşekkür ederim.