Soru Userform Multipage Sayfa Ekleme Hatası (Frame varken)

[yusuf1284]

UserForm üzerinde MultiPage kontrolüne kodlar ile sayfa eklenirken, formda bir Frame olduğunda hata veriyor yardımcı olur musunuz?

 

[muhasebeciyiz]

Deneyiniz

 

[yusuf1284]

Deneyiniz

Hocam hatamın asıl sebebi sayfa ekleme işlemleri aşağıdaki kodu eklediğimde hata veriyor

    Set yeniPg = hedefMultiPage.Pages.Add
    yeniPg.Caption = "Bilgi Girişi 2"

 

[muhasebeciyiz]

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

 

[yusuf1284]

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

 

[yusuf1284]

@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.