Farklı Niteliklerdeki ComboBox ları seçebilme

[Mx@Raid]

Arkadaşlar Recep İpek Beyin SGK Formu üzerinde biraz oynayarak bana gerekli olan hale getirdim (umarım kızmaz). Yalnız benim sıkıntım üç farklı combo ver ve bunlara seçenekler yerleştirmem lazım. Ancak bunu nasıl yapacağımı bir türlü çözemedim aramlarımda da istediğim sonucu göremedim.
Private Sub UserForm_Initialize()
SGK_Turu.ListRows = 3
SGK_Turu.AddItem "SGK'lı Çalışan"
SGK_Turu.AddItem "SGK'lı Emekli"
SGK_Turu.AddItem "SGK Kurum Personeli"
With SGK_Turu
.SelStart = 0
.SelLength = Len(SGK_Turu)
End With
End Sub
burada sadece bir comboyu değerlendirebiliyorum. ancak benim elimde 2 adet combo daha var ve bunları da aktifleştirmek istiyorum.
Provizyon Numarası ve Yazdır combolarını sayfa içeriğinde ki gibi gerçekleştirmek istiyorum.
Birde çalışma sayfasındaki Web sayfasını görüntüle seçeneğini userforma ekleyip oradan çalıştırmayı düşünüyorum. Yardımcı olursanız sevinirim.
Dosya ektedir.
Saygılarımla. Teşekkürler.

 

[Recep İpek]

Kızmak ne kelime.Aksine çok sevinirim.

Kodlarınızı aşağıdaki şekilde deneyiniz.

Private Sub UserForm_Initialize()
With SGKTuru
    .AddItem "SGK'lı Çalışan"
    .AddItem "SGK'lı Emekli"
    .AddItem "SGK Kurum Personeli"
    .ListIndex = 0
End With
With ProvizyonAl
    .AddItem "Evet"
    .AddItem "Hayır"
    .ListIndex = 0
End With
With Yazdır
    .AddItem "Evet"
    .AddItem "Hayır"
    .ListIndex = 0
End With
End Sub

 

[Mx@Raid]

Recep beye katkılarından dolayı teşekkür ederim sonuçlanmıştır.
çalışmanın bir sayfanın açıldığı haliyle bir de direkt kullanıcı formu ile olanını ekliyorum. Kullanacak arkadaşlar için. Sorunsuz çalışıyor.

 

[1Al2Ver]

Recep beye katkılarından dolayı teşekkür ederim sonuçlanmıştır.
çalışmanın bir sayfanın açıldığı haliyle bir de direkt kullanıcı formu ile olanını ekliyorum. Kullanacak arkadaşlar için. Sorunsuz çalışıyor.

Sayın Mx@Raid, paylaşım için teşekkürler.

 

[Mx@Raid]

Birşey daha sormak istiyorum arkadaşlardan bunu unutmuştum. Listboxlardaki verilerin temizlenmesi lazım. çünkü bir sonraki sorgulmada sgk sorgulamasında kişi müstehak değilse önceki veriyle karışıyor. dolayısıyla ikinci sorgulamada listboxları temizleyip yeni sorguyu yapmak istiyorum.
yardımcı olursanız sevinirm. teşekkürler.
Sayın 1Al2Ver size ve şahsınızda tüm forum üyesi arkadaşlara katkılarından dolayı teşekkür ederim.

 

[Recep İpek]

Güzel bir çalışma olmuş.Kutlarım.

Kodlarınızın başına

If me.TcBox.Text="" Then Exit Sub
me.SicilBox.Text=""
me.TahsisBox.Text=""
me.Ad.Text=""
......

yazabilirsiniz.

 

[Mx@Raid]

recepbey siz forumdayken bişey daha sorayım prim sorugulama sayfasına çift tıkla nasıl yönlendirebilirim tc kimlik numarasının girildiği listboxtayken siz çalışma sayfasında bunu yapmışsınız bunu listboxa uygulamak istiyorum.

 

[Recep İpek]

Ekli dosyayı inceleyiniz.
TC kimlik no alanına çift tıklayarak deneyiniz.Bunun yerine yanına butonda koyarakta yapabilirsiniz.
Hatırlatmak isterim.Userform üzerindeki alanlar Listbox değil Textbox'dır.

 

[Mx@Raid]

Recep bey çok teşekkür ederim. Emeğinize sağlık.