Bitişik ad ve soyadı birbirinden ayırmak

ayildiz · 22-07-2009, 12:22

Bir tablom ve bir sorgum var.

Sorgu ile tablomdaki verileri aşağıdaki gibi getiriyorum.

Adı ve Soyadı: Tel No:
Ahmet Kamil YILDIZ (216) 000 00 00

Ama ad ve soyad tek hücrede geliyor.

Benim burada yapmak istediğim şey:

Adı ve soyadı ayrı sütunlara ayırmak,

Ad sütunu
Soyad sütunu,

Telefon numarasını da 2160000000 şekline dönüştürmek.

Bununla ilgili arama yaptırdım ama bulamadım.

Daha önce yapmış olan bir arkadaşım var ise bilgisini paylaşabilir mi?
Teşekkür ederim.

esrefigit · 22-07-2009, 12:55

bunu modüle yaz
Private Function SonBosluk(S As String) As Byte
Dim i As Integer
For i = Len(S) To 1 Step -1
If Mid(S, i, 1) = " " Then
SonBosluk = i
Exit Function
End If
Next
End Function

Function AdBul(AdSoyad As String) As String
Dim i As Byte
i = SonBosluk(AdSoyad)
If i > 0 Then AdBul = Left(AdSoyad, i - 1)
End Function

Function SoyadBul(AdSoyad As String) As String
Dim i As Byte
i = SonBosluk(AdSoyad)
If i > 0 Then SoyadBul = Mid(AdSoyad, i + 1)
End Function

ve sorgudan soyad:soyadbul(adısoyadı)
diye çağır

not kod benim değil

ayildiz · **Kayıt Tarihi:** 23.02.2009

tşk ederim. bir deneyeyim. eline koluna sağlık.
peki telefonu nasıl biçimlendirebilirim.
bilgisi olan varsa yardımını rica ediyorum.
----

(22-07-2009, 12:55)esrefigit demiş ki: bunu modüle yaz
Private Function SonBosluk(S As String) As Byte
Dim i As Integer
For i = Len(S) To 1 Step -1
If Mid(S, i, 1) = " " Then
SonBosluk = i
Exit Function
End If
Next
End Function

Function AdBul(AdSoyad As String) As String
Dim i As Byte
i = SonBosluk(AdSoyad)
If i > 0 Then AdBul = Left(AdSoyad, i - 1)
End Function

Function SoyadBul(AdSoyad As String) As String
Dim i As Byte
i = SonBosluk(AdSoyad)
If i > 0 Then SoyadBul = Mid(AdSoyad, i + 1)
End Function

ve sorgudan soyad:soyadbul(adısoyadı)
diye çağır

not kod benim değil

Taruz · 22-07-2009, 13:51

(22-07-2009, 13:14)ayildiz demiş ki: peki telefonu nasıl biçimlendirebilirim.
bilgisi olan varsa yardımını rica ediyorum.
----

Merhaba..

Replace fonksiyonundan faydalanabilirsiniz...:

SQL
REPLACE(REPLACE(REPLACE([tel];") ";"");"(";"");" ";"")

Bir metin kutusunda kullanacaksanız başına = koymanız yeterli..

ayildiz · 22-07-2009, 14:08

Taruz üstadım,
Bu da çalıştı elleriniz dert görmesin.
Excel'de bunu yapmak çok kolay ama access'de zor oluyor bana göre.
Bir de yanıp sönen metin kutusu sorum kaldı, artık daha fazla yormayacağım Sizi.
Cute

----

(22-07-2009, 13:51)Taruz demiş ki:
(22-07-2009, 13:14)ayildiz demiş ki: peki telefonu nasıl biçimlendirebilirim.
bilgisi olan varsa yardımını rica ediyorum.
----

Merhaba..

Replace fonksiyonundan faydalanabilirsiniz...:
SQL
REPLACE(REPLACE(REPLACE([tel];") ";"");"(";"");" ";"")
Bir metin kutusunda kullanacaksanız başına = koymanız yeterli..

Aykay · 22-07-2009, 15:44

Sayın ayildiz;
Çalışmanızın bu bölümünü çalışır vaziyet de ekleyebilir misin

Teşekkürler

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[FONKSiYON] Uzun Tarih Alanındaki Gün Bilgisini Başka Bir Metin Kurusuna Ayırmak Istiyorum.	programmer67	3	604	13-04-2023, 11:14 Son Mesaj: programmer67
	Accessda Adı Soyadı Ve Time Ve Tarih Alanım Da Ilk Girileni Göster	ahmet114	7	1.113	15-07-2021, 22:20 Son Mesaj: ahmet114
	[SORGU] Tarih Ve Saati Birbirinden Nasıl Ayırabilirim	footprinting	7	1.227	20-04-2020, 14:24 Son Mesaj: footprinting
	[FORM] Birleşik Kutudaki Kayda Göre Adı Soyadı Denetleme	Amras	13	2.704	10-10-2018, 15:12 Son Mesaj: dsezgin
	[RAPOR] Raporda Birbirinden Farklı Sayfalar Oluşturma	mmert06	2	1.296	22-06-2018, 12:05 Son Mesaj: mmert06
	[VBA] Birden çok dosyayı birbirinden farklı klasörlere kopyalama	spawnss	6	4.532	27-04-2017, 14:37 Son Mesaj: dsezgin
	Tarih kısmını ilgili kolonlara göre ayırmak	iisahin	4	5.932	22-04-2017, 02:08 Son Mesaj: dsezgin
	[SORGU] Sorgu ile son tarihi ayırmak	ercan acar	5	1.614	15-02-2017, 10:41 Son Mesaj: ercan acar

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL