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
metin kutularındaki değerli silip form current olayını aşağıdaki gibi düzenler misiniz