Class Modüleli UserFormda Nesne Ekleme Sorunu

[class37]

Merhabalar
Ekli dosyamdaki çalışmadaki UserForm3 e Frame nesnesi eklediğimde hata mesajı veriyor.Class Modüle ilgili kodları sildiğimde ise hata vermiyor.Class modüle sayfasındaki kodları değiştirmekmi gerekiyor. :?

 

[F1]

If LCase(Left(kontrol.Name, 1)) = "g" And kontrol = Empty Then _ ..

bu kod satırında frame in boş oldunu kontrol etmesi hata veriyor, çünkü frame nesnesinde değer yada empty kavramı yoktur.


Userform3 Initialize kodunu aşağıdaki gibi değiştirin.

Private Sub UserForm_Initialize()
Set frm = Me

Dim kontrol As Control, i As Integer
i = 1
For Each kontrol In Me.Controls
If Left(kontrol.Name, 5) = "Frame" Then GoTo devam
  If Left(kontrol.Name, 7) = "TextBox" Then
    ReDim Preserve txtler(i)
    Set txtler(i).txt = kontrol
    i = i + 1
  End If
If LCase(Left(kontrol.Name, 1)) = "g" And kontrol = Empty Then _
Controls("TextBox" & Right(kontrol.Name, Len(kontrol.Name) - 1)).Enabled = False
devam:
Next
tar.Value = Format(Date, "dd.mm.yyyy   dddd")
Label67.Caption = Format(tar.Value, "dd.mm.yyyy dddd")
ProgressBar1.Visible = False
Label65.Caption = ActiveSheet.Name
UserForm3.Caption = Label67.Caption & " TARİHLİ " & Label65.Caption & " MAKBUZ KAYIT FORMU"

ListBox2.ColumnCount = 1 'sütun sayısı
'ListBox2.ColumnHeads = True 'sütun başlığını sabitler
ListBox2.ColumnWidths = "20" 'sütun genişlikleri
ListBox2.TextAlign = 1 'metinlerin merkezde yazılması
ListBox2.RowSource = "sayfa2!h1:h43"
'SIRAA.Value = ListBox2.ListIndex + 1

'Frame1.ScrollBars = fmScrollBarsVertical
'Frame1.ScrollHeight = 792


ProgressBar1.Visible = False
ad.SetFocus
'TextBox1.Value = Format(TextBox1, "dd/mm/yyyy")
'tar.Value = UserForm5.TextBox1
mno = Range("j1")
End Sub

 

[class37]

Çok Teşekkürler. :mutlu: