• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru Userform Multipage Sayfa Ekleme Hatası (Frame varken)

yusuf1284

Altın Üye
Katılım
17 Ocak 2015
Mesajlar
238
Excel Vers. ve Dili
Office Pro 2016 TR
UserForm üzerinde MultiPage kontrolüne kodlar ile sayfa eklenirken, formda bir Frame olduğunda hata veriyor yardımcı olur musunuz?
 

Ekli dosyalar

Kod:
Sub DinamikKontrolOlustur(hedefMultiPage As Object)

    Dim i As Long
    Dim pg1 As Object
    Dim pg2 As Object
    
    For i = hedefMultiPage.Pages.Count - 1 To 1 Step -1
        hedefMultiPage.Pages.Remove i
    Next i
    
    Set pg1 = hedefMultiPage.Pages(0)
    pg1.Caption = "Bilgi Girişi 1"
    
    Set pg2 = hedefMultiPage.Pages.Add("pg_Giris_2", "Bilgi Girişi 2")

End Sub

Bunu kullanınınız
 
Kod:
Sub DinamikKontrolOlustur(hedefMultiPage As Object)

    Dim i As Long
    Dim pg1 As Object
    Dim pg2 As Object
   
    For i = hedefMultiPage.Pages.Count - 1 To 1 Step -1
        hedefMultiPage.Pages.Remove i
    Next i
   
    Set pg1 = hedefMultiPage.Pages(0)
    pg1.Caption = "Bilgi Girişi 1"
   
    Set pg2 = hedefMultiPage.Pages.Add("pg_Giris_2", "Bilgi Girişi 2")

End Sub

Bunu kullanınınız

Hala aynı hata devam ediyor
 
@Biolightant hocamın tespiti sayesinde geçici çözüm bulduk. userform üzerine ekleyeceğim tüm frame başta ekliyorum sonrasında mp ekliyorum hata vermiyor taborder gibi bir sıralama başka durum var sanırım.
 
Çözüm önerisi olan var mı
Bazı bilgisayarlardw geçici çözümde işe yaramıyor
 
Şöyle deneyiniz...

Formunuzun üzerine bir Frame daha ekleyin. Sonra Multipage1 ve Frame1 nesnesini bu yeni Frame içine sürükleyiniz.

Sonra kodu çalıştırınca büyük ihtimalle sorununuz çözülecektir.
 
Şöyle deneyiniz...

Formunuzun üzerine bir Frame daha ekleyin. Sonra Multipage1 ve Frame1 nesnesini bu yeni Frame içine sürükleyiniz.

Sonra kodu çalıştırınca büyük ihtimalle sorununuz çözülecektir.
Teşekkür ederim hocam dediğiniz şekilde hata vermedi mp hepsini frame içersine alıyorum
 
Geri
Üst