metin kutusuna yazılan verinin ilk 5 veya son 3 karakteri diğer metin kutusuna yazdır

19/08/2009, 21:58

newcooo

Ustalar bir metin kutusuna zafer123 yazdım diğer 2 metin kutusuna zafer ve 123 yazdırmak istiyorum yardımcı olursanız sevinir..
19/08/2009, 22:16

ozanakkaya

Örneğinizi düzenleyerek ekledim. Lütfen örnek uygulamalarınızı sıkıştırma programlarıyla sıkıştırarak ekleyiniz.
19/08/2009, 22:31

newcooo

sn sledgeab
sıkıştırma için kusura bakmayın..
yaptığınız örneğe baktım ilginiz için teşekkür ederim..
yalnız yaptığınız örnekte sayılar ve metin lar olarak ayrılıyor..
benim yapmak istediğim yazılan metnin son 2 karakteri ayrı metin kutusuna yazdırmak istiyorum.. son iki karakter sayı ve metin olabilir..
örnek...........
metin1: sdja1
metin2:sdj
metin3:a1
19/08/2009, 23:21

mehmetdemiral

Sayın newcoo
Admin'in kodlarını şu şekilde düzeltin

Kod:
Dim a, b As Integer
a = Len(metin1)
b = a - 2
Me.metin2 = Left(metin1, b)

Me.metin3 = Right(metin1, 2)

Kolay gelsin
19/08/2009, 23:29

newcooo

sn mehmetdemiral
ilginiz için teşekkürler sağolun
verdiğiniz kodlar ile istediğim şeyi gerçekleştirdim..