(22/12/2014, 17:37)SCavusoglu yazdı:

Kod:

Private Sub Metin0_Exit(Cancel As Integer)
If Me.Metin0 = Format(Me.Metin0, "General Number") Then
    Me.Metin2 = Format(Me.Metin0, "General Number")
    Me.Metin4 = ""
Else
    Me.Metin2 = Left([Metin0], InStr([Metin0], ".") - 1)
    Me.Metin4 = Mid([Metin0], InStr([Metin0], ".") + 1)
End If
End Sub

Örnek uygulamadaki kodları üstteki şekilde değiştirdiğinizde istediğiniz sonuca ulaşılmıyor mu ?

yukarıda verdiğiniz kodları örnek uygulama üzerinde de aynı şekilde uyguladım fakat olmuyor. teşekkürler.