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