Slm.
Arkadaşlar koşula bağlı font büyütmek istedim aşağıdaki kodu yazdım ama hiç bir şey olamadı yanlışım nerede acaba.
tşk.
Private Sub Form_Activate()
If Abone_Adı = TTNET Then
Me.Not_Açıklama.FontSize = 24
End If
End Sub
Sayın Emel06;
Kodunuzu Aşağıdaki ile Değiştirin Çalışacaktır.
Private Sub Form_Activate()
If Abone_Adı = "TTNET" Then
Me.Not_Açıklama.FontSize = 24
End If
End Sub
slm.
sn.Kur@l, olmadı bende anlamadım dosyayı ekliyorum.
tşk.
Sayın emel06;
Ata Et, İte Ot Verdiğimiz için olmamış. Form Open Olayına YAzarsak Nasıl Olacak ki metin kutusunun güncelleme sonrası olayına ve formun geçerli olduğuna kodu yazdım...
Kolay Gelsin.
Tabi bunun bir şartla ttnet değilsede eski boyuna getirilmesi gerekli.
slm.
sn.Kur@l elinize sağlık. Tüm Kayıtlarda font 24 oluyor, gayemiz sadece TTNET kaydı için açıklama metin kutusunun fontu 24 olması.
tşk.
Sayın emel06;
İlgili yerleri aşağıdaki kod ile değiştirin.
If Abone_Adı = "TTNET" Then
Me.Not_Açıklama.FontSize = 24
else
Me.Not_Açıklama.FontSize = 12
End If