TextBox Format Sorunu

[Tasarım]

Private Sub kadro_derece_AfterUpdate()
If kadro_derece <> "" Then
If Len(kadro_derece) = 2 Or 3 Then kadro_derece = Format(kadro_derece, "##/#")
End If
End Sub

Öncelikle herkese merhabalar;
Sorunum kısaca şöyle:
-Kadro ve derece bölümünde ben örneğin "11" yazdığımda "1/1" yapmasını istiyorum.
--Bunu çeşitli kodlarla oluşturdum ancak Text kutusunun içerisine girip çıktığımda format bozuluyor. Ben bunun sabit kalmasını istiyorum.
-Mesela "11" yazdığımda "1/1", "101" yazdığımda "10/1" şeklinde sabit kalmasını istiyorum.
-Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

Saygılar...

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Private Sub kadro_derece_AfterUpdate()
    If kadro_derece <> "" Then
        If Len(kadro_derece) = 2 And InStr(1, kadro_derece, "/") = 0 Then kadro_derece = Format(kadro_derece, "#/#")
        If Len(kadro_derece) = 3 And InStr(1, kadro_derece, "/") = 0 Then kadro_derece = Format(kadro_derece, "##/#")
    End If
End Sub

 

[Tasarım]

Aşağıdaki kodu deneyiniz.

Private Sub kadro_derece_AfterUpdate()
    If kadro_derece <> "" Then
        If Len(kadro_derece) = 2 And InStr(1, kadro_derece, "/") = 0 Then kadro_derece = Format(kadro_derece, "#/#")
        If Len(kadro_derece) = 3 And InStr(1, kadro_derece, "/") = 0 Then kadro_derece = Format(kadro_derece, "##/#")
    End If
End Sub

- Hocam yani ne diyeyim. "Allah razı olsun."
- İyiki varsınız

 

[Korhan Ayhan]

Allah sizlerden de razı olsun...