AccessTr.neT

Tam Versiyon: Sayıyı Basamaklara Ayırma Sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
sayıyı basamaklara ayırma ile ilgili ekte örnek mevcut.virgül olmayan sayılarda kullanabiliyorum.

virgül olan sayılarda basamaklara ayırma işlemi yapamıyorum.

örnek 3120  yi basamaklara ayırabiliyorum ama

         13120,50 yi basamaklara ayıramıyorum.


örnekleri inceledim ama neticeye ulaşamadım.muhtemelen aşağıdaki örnek benim istediğim olabilir ama accdb olduğu için açamadım  2003 kullanıyorum

şimdiden ilginize teşekkür ederim.



https://accesstr.net/konu-virgulden-once...-alma.html
metin kutularındaki değerli silip form current olayını aşağıdaki gibi düzenler misiniz
Private Sub Form_Current()
TmpMtn = CStr(Format(Me.satisfiyati, "#.##0,00"))

Vrg = InStr(TmpMtn, ",")
TmSayi = Format(Fix(Me.satisfiyati), "0000")
KsrSayi = "00"
If Vrg > 0 Then KsrSayi = Format(Mid(TmpMtn, Vrg + 1), "00")
Me.binn = Mid(TmSayi, 1, 1)
Me.yuzz = Mid(TmSayi, 2, 1)
Me.onn = Mid(TmSayi, 3, 1)
Me.bir = Mid(TmSayi, 4, 1)
Me.Metin245 = Mid(KsrSayi, 1, 1)
Me.Metin247 = Mid(KsrSayi, 2, 1)

End Sub
(14/09/2020, 10:17)berduş yazdı: [ -> ]Private Sub Form_Current()TmpMtn = CStr(Format(Me.satisfiyati, "#.##0,00"))Vrg = InStr(TmpMtn, ",")TmSayi = Format(Fix(Me.satisfiyati), "0000")KsrSayi = "00"If Vrg > 0 Then KsrSayi = Format(Mid(TmpMtn, Vrg + 1), "00")Me.binn = Mid(TmSayi, 1, 1)Me.yuzz = Mid(TmSayi, 2, 1)Me.onn = Mid(TmSayi, 3, 1)Me.bir = Mid(TmSayi, 4, 1)Me.Metin245 = Mid(KsrSayi, 1, 1)Me.Metin247 = Mid(KsrSayi, 2, 1)End Sub
Çok teşekkür ederim ,ellerinize sağlık.

Sorumun cevabını aldım.konuyu taşıyabiliriz.

Saygılar
Iyi çalışmalar)