Sayıyı Basamaklara Ayırma Sorunu

Sayıyı Basamaklara Ayırma Sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayıyı Basamaklara Ayırma Sorunu (/konu-sayiyi-basamaklara-ayirma-sorunu.html)

Sayıyı Basamaklara Ayırma Sorunu - zetyu - 14/09/2020

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-oncesi-ve-sonrasini-alma.html

RE: Sayıyı Basamaklara Ayırma Sorunu - berduş - 14/09/2020

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

RE: Sayıyı Basamaklara Ayırma Sorunu - zetyu - 14/09/2020

(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

RE: Sayıyı Basamaklara Ayırma Sorunu - berduş - 14/09/2020

Iyi çalışmalar)