ParÇa Al ????

[PC-manyaa]

Arkadaşlar access'te excel'de parça al fonksiyonunun işlevini gören bir fonksiyon var mı? Nedir? Müşterilerin e-mail adresleri var.bu adresleri veren domainleri saydırmam gerekiyor.ben e-mail adresinde @ ' ten sonraki kısmı saydırmayı düşündüm ama bulamadım.Yardım edebilirseniz çok sevinirim...teşekkürler şimdiden... :yardim:

 

[isomikis]

vba editöründe mid fonksiyonu var arkadaşım mesela metin0 kutusundaki 3. harften itibaren 4 karakter alacaksan

mid(metin0,3,4) yazarsan işlemin tamamlanmış olur.

ancak @ işaretinden sonrasını arayacaksan

Dim strUzantı, strAra As String
Dim a As Long, x As Integer
strUzantı = Me.email (hangi metin kutusunda arayacaksan onu yazıyorsun)
a = Len(strUzant&#305
For x = 1 To a
strAra = Mid(strUzantı, x, 1)
If strAra = "@" Then
str1 = Mid(strUzantı, x + 1)
End If
Next x

kodlarını kullanabilirsin bunu bir buton ya da sub yordamına yzdığında @ işaretinden sonraki kısmı elde edersin