Skip to main content

AccessTr.neT


sayı binlik ayırma

ondercesmeci
ondercesmeci
8
4206

sayı binlik ayırma

#4
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 ?

Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
sayı binlik ayırma - Yazar: ondercesmeci - 22/12/2014, 12:37
Cvp: sayı binlik ayırma - Yazar: C*e*l*o*y*c*e - 22/12/2014, 13:08
Cvp: sayı binlik ayırma - Yazar: ondercesmeci - 22/12/2014, 16:44
Cvp: sayı binlik ayırma - Yazar: SCavusoglu - 22/12/2014, 17:37
Cvp: sayı binlik ayırma - Yazar: ondercesmeci - 22/12/2014, 17:55
Cvp: sayı binlik ayırma - Yazar: SCavusoglu - 23/12/2014, 11:09
Cvp: sayı binlik ayırma - Yazar: ondercesmeci - 24/12/2014, 11:11
Cvp: sayı binlik ayırma - Yazar: atoz112 - 24/12/2014, 16:25
Cvp: sayı binlik ayırma - Yazar: ondercesmeci - 25/12/2014, 10:02
Task