userformda kayıt yaptıkça font küçülüyor

[Erhan Köseoğlu]

Aslında iki soru(nu)m var;
1.si Başlıkta da belirttiğim gibi Kitap Kayıt adlı user form da kitap bilgilerini kayıt ettikçe (kaydet butonuna tıkladıkça) font küçülüyor ve 4. kayıt sayfa hata veriyor.
2.si OKUMA adlı userform da
textbox1 a kitap sıra no yazınca textbox3, textbox4,textbox5,textbox6 ya ait bilgilerin "VERİ" sayfasından alıp OKUMA sayfasına kayıt etmesini istiyorum.
Veri sayfasında sırası ile ;
Kitaplık sıra no, Kitap Sayfa Sayısı, Kitap Adı, Kitap Gurubu, Kitap Türü bilgileri var.
OKUMA adlı userformda textbox1 e kitap sıra no yazınca,
textbox3'e Kitap Sayfa Sayısı,
textbox4'e Kitap Adı,
textbox5'e Kitap Gurubu, ve
textbox6'e Kitap Türü bilgilerinin gelmesini ve Bilgiler geldikten sonra da Veri sayfasından alınan bilgilerin OKUMA sayfasına kayıt ettirmek istiyorum.
textbox2 ye öğrenci numarası yazacağım.

Ayrıca bu işlemler için textbox doğru tercih mi, başka şekilde yapmak daha mı mantıklı?

 

[Erhan Köseoğlu]

Kayıt yap dedikçe font kücülüyor, birtürlü düzeltemedim.

 

[Ergün Güler]

Kayıt yap dedikçe font kücülüyor, birtürlü düzeltemedim.

Selam,

Aşağıdaki kodlarınızın kırmızı bölümünü pasif yapıp dener misiniz?

   For Each Nesne In KAYIT_FORMU.Controls
        Nesne.Top = Nesne.Top * Yükseklik_Oranı
        Nesne.Left = Nesne.Left * Genişlik_Oranı
        Nesne.Width = Nesne.Width * Genişlik_Oranı
        Nesne.Height = Nesne.Height * Yükseklik_Oranı
        On Error Resume Next
           [B][COLOR="Red"] 'Nesne.Font.Size = Nesne.Font.Size * (Yükseklik_Oranı - 1)[/COLOR][/B]
        On Error GoTo 0
    Next

 

[Erhan Köseoğlu]

Font sorunu halledildi. Ancak 1. mesajda belirtttiğim 2. sorumla ile ilgili ne yapacağıma karar veremedim.