AccessTr.neT

Tam Versiyon: Eposta Adresinin Uzantısını Bulma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Merhabalar, tabloya kaydettiğim örneğin "[email protected]" eposta adresini sorguda "testmail.com" şeklinde görmek istiyorum. Nasıl yapabilirim?
x = InStr(1, Me.Metin0, "@") + 1 '@ işaretini yerini bulur, bir fazlasını ekleyerek @den sonrasının başlama yerini saptar
'instr(aramaya_başlanacak_yer, arama_yapılacak_metin, aranacak_metin)
Me.Metin2 = Mid(Metin0, x) ' mid(metin, buradan_sonrasını_al, n_tanesini_al_belirtilmezse_sonuna_kadar_alır)
cevabiniz icin cok tesekkur ederim.