(12/03/2020, 15:28)berduş yazdı: aşağıdaki kodu deneyebilirsiniz
If Not IsNull(Me.Metin0) And (Me.Metin0 Like "*?@?*.?*" And Not (Me.Metin0 Like "*[ ,;]*")) Then MsgBox " mail adresi" Else MsgBox "mail adresi değil"
Bu koda göre "türkçekarakterli@mailadresiolmaz.com" doğru bir mail adresi mi?
(12/03/2020, 15:39)ozanakkaya yazdı: (12/03/2020, 15:28)berduş yazdı: aşağıdaki kodu deneyebilirsiniz
If Not IsNull(Me.Metin0) And (Me.Metin0 Like "*?@?*.?*" And Not (Me.Metin0 Like "*[ ,;]*")) Then MsgBox " mail adresi" Else MsgBox "mail adresi değil"
Bu koda göre "türkçekarakterli@mailadresiolmaz.com" doğru bir mail adresi mi?
Replace ile voltranı tamamlarsa neden olmasın?
ben sadece sayın @
accessman 'in ilk mesajındaki kodun kullanımını gösterdim, isterse son kısma diğer karakterleri ekleyebilir.
yada @
feraz beyin belirttiği gibi replace koduyla düzenleme yapabilir
Mail adresinin doğruluğunu mu kontrol ediyorsunuz? Doğru hale mi getirmeye çalışıyorsunuz?