[Yardım]  combobox

Açılır liste kutusu.

combobox

İleti#1)  malatyali » 28 May 2021 21:29

Es Selamün Aleyküm
Combobo3 açılır listesinde (1,2,3,4,5) rakamları mevcut
Form Üzerinde de 5 adet textbox mevcut.
Combobox değeri 1 ise
Textbox1.Visible değeri True diğerleri False
Combobox değeri 2 ise
Textbox1 ve Textbox2 Visible değeri True diğerleri False
Textbox1.Visible değeri True diğerleri False
Combobox değeri 3 ise
Textbox1, Textbox2 ve Textbox2 Visible değeri True diğerleri False
Combobox değeri 4 ise
Textbox1, Textbox2, Textbox2 ve Textbox4 Visible değeri True diğerleri False
Combobox değeri 5 ise
Textbox1, Textbox2, Textbox2, Textbox4 ve Textbox5 Visible değeri True
olacak şekilde bir koda ihtiyacım var. Rica etsem yerdımcı olabilir misiniz?
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 257
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

Cevap: combobox

İleti#2)  ahmetilhan282 » 28 May 2021 22:20

abi zaten kodu yazmışsınız, bize bir şey kalmamış. bu mesajı alıp aynen module yapıştırın. bir kaç tane syntax hatasını düzelttikten sonra çalışır zaten :D
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 31
İleti: 918
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: combobox

İleti#3)  ahmetilhan282 » 28 May 2021 22:26

bu kodu deneyin
Kod: Tümünü seç
Private Sub ComboBox1_Change()
    For i = 1 To 5
        If i <= ComboBox1.text Then
            Controls("TextBox" & i).Visible = True
        Else
            Controls("TextBox" & i).Visible = False
        End If
    Next i
End Sub
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 31
İleti: 918
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

Cevap: combobox

İleti#4)  malatyali » 29 May 2021 11:10

ustam
MultiPage1 in Pages(1) sekmesinde olursa nasıl yapılır. Rica etsem bunun için de yardımcı olabilir misiniz?
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 257
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: combobox

İleti#5)  malatyali » 29 May 2021 11:24

Kod: Tümünü seç
Private Sub ComboBox3_Change()
   
        If MultiPage1.Pages(1).ComboBox3.Text = 1 Then
            MultiPage1.Pages(1).TextBox11.Visible = True
            MultiPage1.Pages(1).TextBox12.Visible = False
            MultiPage1.Pages(1).TextBox13.Visible = False
            MultiPage1.Pages(1).TextBox14.Visible = False
            MultiPage1.Pages(1).TextBox15.Visible = False
          Else
            If MultiPage1.Pages(1).ComboBox3.Text = 2 Then
            MultiPage1.Pages(1).TextBox11.Visible = True
            MultiPage1.Pages(1).TextBox12.Visible = True
            MultiPage1.Pages(1).TextBox13.Visible = False
            MultiPage1.Pages(1).TextBox14.Visible = False
            MultiPage1.Pages(1).TextBox15.Visible = False
             Else
            If MultiPage1.Pages(1).ComboBox3.Text = 3 Then
            MultiPage1.Pages(1).TextBox11.Visible = True
            MultiPage1.Pages(1).TextBox12.Visible = True
            MultiPage1.Pages(1).TextBox13.Visible = True
            MultiPage1.Pages(1).TextBox14.Visible = False
            MultiPage1.Pages(1).TextBox15.Visible = False
            Else
            If MultiPage1.Pages(1).ComboBox3.Text = 4 Then
            MultiPage1.Pages(1).TextBox11.Visible = True
            MultiPage1.Pages(1).TextBox12.Visible = True
            MultiPage1.Pages(1).TextBox13.Visible = True
            MultiPage1.Pages(1).TextBox14.Visible = True
            MultiPage1.Pages(1).TextBox15.Visible = False
            Else
            If MultiPage1.Pages(1).ComboBox3.Text = 5 Then
            MultiPage1.Pages(1).TextBox11.Visible = True
            MultiPage1.Pages(1).TextBox12.Visible = True
            MultiPage1.Pages(1).TextBox13.Visible = True
            MultiPage1.Pages(1).TextBox14.Visible = True
            MultiPage1.Pages(1).TextBox15.Visible = True
           End If
           End If
            End If
               End If
             End If
End Sub

Ustam böyle yaptım ama bunun daha kısası olabilir mi?
Kullanıcı avatarı
malatyali
Siteye Alışmış
 
Adı Soyadı:ilhan YÜKSEL
Kayıt: 20 Kas 2008 10:08
Konum: Malatya
Meslek: Meb ilçe milli eğitim şef
Yaş: 46
İleti: 257
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Malatya / Merkez


Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe