UserForm ComboBox adını öğrenme

[tamer42]

Merhaba,
Bir userformda aşağıdaki kod ile CommandButton adını öğrenebiliyoruz, yalnız ComboBox olunca arka planın adını vermekte;

ComboBox' ın adını nasıl öğrenebiliriz.

Private Sub CommandButton1_Click()
Dim xCtrl As Variant
xCtrl = Me.ActiveControl.Name
Label1.Caption = xCtrl
End Sub

Teşekkürler,
iyi pazarlar.

 

[Muzaffer Ali]

Merhaba.

Private Sub ComboBox1_Change()
    Label1.Caption = Me.ActiveControl.Name
End Sub

 

[tamer42]

Merhaba.

Private Sub ComboBox1_Change()
    Label1.Caption = Me.ActiveControl.Name
End Sub

teşekkürler,

Combobox Multipage sayfası içinde olduğu zaman; "MultiPage1" olarak geliyor.

bu durumu nasıl çözebiliriz.

 

[Muzaffer Ali]

Şöyle yapın.

Private Sub ComboBox1_Change()
    Label1.Caption = ComboBox1.Name
End Sub

 

[FERAZ]

Label1.Caption = MultiPage1(0).ActiveControl.Name

 

[tamer42]

Label1.Caption = MultiPage1(0).ActiveControl.Name

bu şekilde çözdüm,

Me.MultiPage1(Me.MultiPage1.Value).ActiveControl.Value

teşekkürler.....

 

[FERAZ]

Rica ederiz.

 

[tamer42]

Label1.Caption = MultiPage1(0).ActiveControl.Name

Merhaba,
Combobox, Multipage sayfasında , birde Frame (Frame1) içinde olduğu zaman; nasıl bir düzenleme yapmamız gerekecektir.

Aşağıdaki gibi bir düzenleme yaptım, fakat olmadı.

Me.MultiPage1(1).Frame1.ActiveControl.Name

Teşekkürler,
iyi çalışmalar.

 

[Muzaffer Ali]

Sayın @tamer42 aktif olan kontrolün hangisi olduğu zaten kullanım aşamasında belli oluyor.

Mesela

Private Sub ComboBox1_Change()
    Label1.Caption = Me.ActiveControl.Name
End Sub

Burada zaten aktif olan kontrol ComboBox1 olduğu belli olduğuna göre neden

Private Sub ComboBox1_Change()
    Label1.Caption = Me.ComboBox1.Name
End Sub

şeklinde yapmıyorsunuz?

Yada tam olarak yapmak istediğiniz şeyi daha açık şekilde anlatın belki farklı bir yöntem olursa yardımcı olalım.

 

[FERAZ]

MsgBox MultiPage1(Me.MultiPage1.Value).Frame1.ActiveControl.Name

MsgBox MultiPage1(Me.MultiPage1.Value).Frame2.ActiveControl.Name

 

[FERAZ]

MsgBox Frame1.ActiveControl.Name

MsgBox Frame2.ActiveControl.Name

 

[tamer42]

MsgBox MultiPage1(Me.MultiPage1.Value).Frame1.ActiveControl.Name

MsgBox MultiPage1(Me.MultiPage1.Value).Frame2.ActiveControl.Name

Sn Feraz ilginize teşekkürler,
verdiğiniz kodu uyguladığım zaman; ekli hata mesajını alıyorum, sanırım bir yerlerde hata yapıyor olabilirim.

 

[FERAZ]

Merhaba.

Hatalı eki inceleyemiyorum.Ben userforma nir Mulyipage ekledim multipagenin içinede Frame ekledim.Framenin içinede Combobox ekledim ve son yolladığım kodlar çalışmıştı.

 

[tamer42]

Merhaba.

Hatalı eki inceleyemiyorum.Ben userforma nir Mulyipage ekledim multipagenin içinede Frame ekledim.Framenin içinede Combobox ekledim ve son yolladığım kodlar çalışmıştı.

Userform ilk aktif olurken Combobox ilk değeri almaktaydı, bu değişiklik nedeniyle hata veriyormuş, bu durumu pasif edince düzeldi.

her şey için teşekkürler.
selamlar, saygılar.

 

[FERAZ]

Bizdende saygılar,rica ederiz.