AccessTr.neT

Bul · 16/02/2010, 15:02

bir alandaki bir metini nasıl ikiye bölebiliriz
mesala
c:\data\accesstr\access.mdb
metnini
c:\data\accesstr
ve
access.mdb
olarak ayıracağız
tabiki bunlar değişesilecek şeyler
bizim ayırma kriterimiz
sondan itibaren ilk "\" karakterinden öncekileri birinci alana
sondan itibaren ilk "\" karakterinden sonrakileri ikinci alana
olacak
nasıl yazmalıyız

Bul · 16/02/2010, 15:26

Sayın Masalcı;
Daha önce başka bir arkadaşa ad soyad ayırma konusunda verdiğim örneği bu konuya uyarlayarak yapabilirsiniz. Boşluk yerine "\" karakterini baz alacaksınız.

Kod:

'Önce kulanacağımız değişkenleri tanımlıyoruz.

Dim uzunluk As Integer

Dim ayir As Integer

Dim bosyer As Integer



For uzunluk = Len(adsoyad) To 1 Step -1

'adsoyad uzunluğu ne kadarsa oradan geriye doğru 1 er 1 er karakterlere bak



If Mid(adsoyad, uzunluk, 1) = " " Then

'eğer bu karakter boşluğa eşitse



bosyer = uzunluk

Exit For

'kaçıncı karakter olduğunu bosyer adlı değişkene ata ve for next döngüsünden çık



Else

End If

Next

'değilse döngüyü devam ettir



ayir = Len(adsoyad) - bosyer

'boşluğun kaçıncı karakterde olduğunu bulduktan sonra

'adsoyad uzunluktan bosluk yerini çıkar ve soyadın kaç karakter olduğunu bul



soyad = Right(adsoyad, ayir)

'soyad değişkenine adsoyadımızın sağından itibaren bulduğumuz ayir uzunluğu kadar

'karakteri ata

Saygılar, kolay gelsin.

Bul · 16/02/2010, 15:38

(16/02/2010, 15:02)Masalcı yazdı: bir alandaki bir metini nasıl ikiye bölebiliriz
mesala
c:\data\accesstr\access.mdb
metnini
c:\data\accesstr
ve
access.mdb
olarak ayıracağız
tabiki bunlar değişesilecek şeyler
bizim ayırma kriterimiz
sondan itibaren ilk "\" karakterinden öncekileri birinci alana
sondan itibaren ilk "\" karakterinden sonrakileri ikinci alana
olacak
nasıl yazmalıyız

1. Kısım denetim kaynağına
=Mid([asılmetin];1;15)
2. kısım Denetim kaynağına
=Mid([asılmetin];16)

örnekte ektedir.

Bul · 16/02/2010, 16:11

teşekkürler sn.hayri16
elinize sağlık
bunu bir fonksiyon gibi nasıl yazabiliriz
amaç
tablo1 de kayıtlı olan diyelim ki 150 tane kayıtın hepsini bu şekilde ayırmak
bir sorgu hazırlayıp
asılmetin alanını fonksiyonu uygulayarak
birincikısım alanına ve
ikincikısım alanına
güncelleyecek
nasıl yapabiliriz

Bul · 16/02/2010, 16:24

Metinböl2 örneğini indirirseniz fonksiyon gibi çalıştığını göreceksiniz

Bul · 16/02/2010, 16:49

Sayın Masalcı örnek hazırlamaya çalışıyorum.

AccessTr.neT

metini ikiye ayırma

metini ikiye ayırma

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri