(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