19/08/2009, 21:58
19/08/2009, 22:16
Ö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
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
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
Sayın newcoo
Admin'in kodlarını şu şekilde düzeltin
Kolay gelsin
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
sn mehmetdemiral
ilginiz için teşekkürler sağolun
verdiğiniz kodlar ile istediğim şeyi gerçekleştirdim..
ilginiz için teşekkürler sağolun
verdiğiniz kodlar ile istediğim şeyi gerçekleştirdim..