son 5 karkteri aktarma

[hedefkaya]

AŞAĞIDAKİ KODDA
metin3 kutusundaki yazılı olan (123456789) rakamın son 5 (56789) karakterini metin4 kutusuna aktarıyor


Me.metin4 = Right(metin3, 5)


fakat benim istediğim en son karakter hariç(yani 9 hariç ) diğer 4 rakamı (yani 5678 rakamlarını ) metin4 kutusuna aktarmak
bu konuda bilgisi olan varmı acaba
teşekürler

 

[Taruz]

Merhaba..

Bunun birkaç yolu var.. Uzunluklar sabitse

Left(Right([metin3];5);4)

işinize yarar..

 

[hedefkaya]

TeŞekÜrler Taruz Ellerİn Dert GÖrmesİn

 

[gulsum1]

rakam kaç haneli olursa olsun en son rakam hariç sondan 4 rakamın kodu
Private Sub Metin0_AfterUpdate()
Dim gls As Integer
gls = Len(Me.Metin0) - 1
Me.Metin2 = Right(Left(Me.Metin0, gls), 4)
End Sub