ComboBox içi veri temizliği

[Emine Şahin]

Merhaba.
Kayıt formumda hem TextBox'lar hemde ComboBox'lar var.
Aşağıdaki kod yardımı ile TextBoxların içini temizleyerek yeni kayıt için hazır hale getiriyorum. Lakin ComboBoxlarımı nasıl temizleyeceğim bilemiyorum. ComboBoxların özelliği içlerinde tanımlanmış veriler var. Temizle dediğim zaman içindeki veriler tamamen silinmesin, resetlensin istiyorum. Mümkün mü?

Saygılarımla.


TextBoxlarımı temizlediğim kod:

Private Sub CommandButton4_Click()
    For X = 2 To 12
    Controls("TextBox" & X) = ""
    Next
    MsgBox "YENİ KAYIT İÇİN VERİLER SİLİNMİŞTİR.", vbInformation
End Sub

 

[asi_kral]

Merhaba.
Kayıt formumda hem TextBox'lar hemde ComboBox'lar var.
Aşağıdaki kod yardımı ile TextBoxların içini temizleyerek yeni kayıt için hazır hale getiriyorum. Lakin ComboBoxlarımı nasıl temizleyeceğim bilemiyorum. ComboBoxların özelliği içlerinde tanımlanmış veriler var. Temizle dediğim zaman içindeki veriler tamamen silinmesin, resetlensin istiyorum. Mümkün mü?

Saygılarımla.


TextBoxlarımı temizlediğim kod:

Private Sub CommandButton4_Click()
    For X = 2 To 12
    Controls("TextBox" & X) = ""
    Next
    MsgBox "YENİ KAYIT İÇİN VERİLER SİLİNMİŞTİR.", vbInformation
End Sub

Merhaba
Tanımlı veriler gitsin istiyorsanız

ComboBox1.Clear

Olarak deneyin.

 

[Emine Şahin]

Merhaba
Tanımlı veriler gitsin istiyorsanız

ComboBox1.Clear

Olarak deneyin.

Tanımlı verilerin kalmasını istiyorum. Bir nevi resetlenmesi gibi olacak.

 

[asi_kral]

Tanımlı verilerin kalmasını istiyorum. Bir nevi resetlenmesi gibi olacak.

ComboBox1=Empty

Olarak deneyin. Yapamazsanız dosya ekleyin ona göre çözüm üretelim.

 

[Murat OSMA]

Form üzerindeki tüm TextBox ve ComboBox'ları içeriğini temizler.

Deneyiniz...

[FONT="Trebuchet MS"][SIZE="2"]Private Sub CommandButton4_Click()
    Dim TC As Control
    For Each TC In Controls
        If TypeName(TC) = "[COLOR="Red"]TextBox[/COLOR]" Or TypeName(TC) = "[COLOR="red"]ComboBox[/COLOR]" Then
            TC.Value = ""
        End If
    Next TC
    MsgBox "YENİ KAYIT İÇİN VERİLER SİLİNMİŞTİR.", vbInformation
    Set TC = Nothing
End Sub[/SIZE][/FONT]

 

[Seyit Tiken]

Resetlemeyi daha anlamış değilim, soru yalın bir şekilde açıklanabilir.

 

[ExcelF1]

Combobox1 = "" olarak deneyin.

 

[Emine Şahin]

ComboBox1=Empty

Olarak deneyin. Yapamazsanız dosya ekleyin ona göre çözüm üretelim.

Denedim ama istediğim gibi olmuyor. Dosya ektedir.

Form üzerindeki tüm TextBox ve ComboBox'ları içeriğini temizler.

Deneyiniz...

[FONT="Trebuchet MS"][SIZE="2"]Private Sub CommandButton4_Click()
    Dim TC As Control
    For Each TC In Controls
        If TypeName(TC) = "[COLOR="Red"]TextBox[/COLOR]" Or TypeName(TC) = "[COLOR="red"]ComboBox[/COLOR]" Then
            TC.Value = ""
        End If
    Next TC
    MsgBox "YENİ KAYIT İÇİN VERİLER SİLİNMİŞTİR.", vbInformation
    Set TC = Nothing
End Sub[/SIZE][/FONT]

Evet tüm verileri temizliyor. Lakin istediğim bu değil.

Resetlemeyi daha anlamış değilim, soru yalın bir şekilde açıklanabilir.

REsetlemedeki kastım; TextBoxların içinde tanımlı veri yok.
ComboBaxlarımda ise aşağıdaki formulde olduğu gibi seçilebilen veriler var.
Ekteki dosyadan daha net anlaşılacaktır...

Private Sub UserForm_Initialize()

    TextBox1.Value = Format(Date, "dd.mm.yyyy")
    ComboBox1.AddItem "TL"
    ComboBox1.AddItem "EURO"
    ComboBox1.AddItem "DOLAR"
    ComboBox1.Text = "TL"
    ComboBox2.AddItem "KK"
    ComboBox2.AddItem "KK Taksit"
    ComboBox2.AddItem "CE"
    ComboBox2.AddItem "NK"
    ComboBox2.Text = "NK"
    ComboBox3.AddItem "PP"
    ComboBox3.AddItem "FC"
    ComboBox3.AddItem "TP"
    ComboBox3.Text = "PP"
    ComboBox4.AddItem "1"
    ComboBox4.AddItem "2"
    ComboBox4.AddItem "3"
    ComboBox4.AddItem "4"
    ComboBox4.Text = "3"
    ComboBox5.AddItem "D"
    ComboBox5.AddItem "K"
    ComboBox5.Text = "D"
    ComboBox6.AddItem "E"
    ComboBox6.AddItem "H"
    ComboBox6.Text = "H"
    ComboBox7.AddItem "E"
    ComboBox7.AddItem "H"
    ComboBox7.Text = "H"
    ComboBox8.AddItem "OXSİMA"
    ComboBox8.AddItem "HAKİKİ ŞİFA"
    ComboBox8.AddItem "KADIRGA"
    ComboBox8.Text = "HAKİKİ ŞİFA"

Combobox1 = "" olarak deneyin.

Bunu da denedim. Tamamen Comboboxları siliyor.

 

[Taruz]

Merhaba...

Reset için..:


Call UserForm_Initialize

 

[Emine Şahin]

Merhaba...

Reset için..:


Call UserForm_Initialize

Merhaba.
Bunu nasıl uygulamam gerek?

 

[Taruz]

Herhangi bir düğmenin kod yordamına yazabilirsiniz..

 

[Emine Şahin]

Herhangi bir düğmenin kod yordamına yazabilirsiniz..

Süpersiniz.
Başıma ağrılar girmişti.
Allah razı olsun. Tam istediğim gibi oldu...

Private Sub CommandButton4_Click()
    For X = 2 To 12
    Controls("TextBox" & X) = ""
    [COLOR="Red"]Call UserForm_Initialize[/COLOR]
    Next
    MsgBox "YENİ KAYIT İÇİN VERİLER SİLİNMİŞTİR.", vbInformation
End Sub

 

[Korhan Ayhan]

Merhaba,

İlgili satırı "Next" satırından sonra yazmanız daha uygun olacaktır.

 

[Emine Şahin]

Merhaba,

İlgili satırı "Next" satırından sonra yazmanız daha uygun olacaktır.

Teşekkür ederim Korhan Bey.
Neden olduğunu söyleyebilir misiniz?

 

[Taruz]

Teşekkür ederim Korhan Bey.
Neden olduğunu söyleyebilir misiniz?

Döngü her çalıştığında siz kutuları resetliyorsunuz.. Next altına aldığınızda döngü dışında kalacak ve bir kere çalışacak.. Diğer türlü 11 kere reset atarsınız..

 

[Emine Şahin]

Teşekkür ederim.
Öğreniyoruz