Sayıyı Basamaklara Ayırma Sorunu

zetyu

Access Cevaplanmış Soruları

607

14/09/2020, 11:23 #3

Aktif Üye

zetyu

Bul

Aktif Üye

Adı Soyadı: Ze.... Yı....

Yaşı: 52

Konum: İstanbul

Ofis Versiyonu: Ofis 2003

Son Oturumu: 30/07/2023,00:52

Yorumları: 163

Konuları: 49

Kayıt Tarihi: 12/03/2009

Teşekkür Puanı: 6

Mesleğiniz: serbest meslek

(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

zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.

Cevapla