AccessTr.neT
String Email Adresi Mi Kontrol Etmek - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: String Email Adresi Mi Kontrol Etmek (/konu-string-email-adresi-mi-kontrol-etmek.html)

Sayfalar: 1 2 3


String Email Adresi Mi Kontrol Etmek - accessman - 12/03/2020

girilen stringi kontrol etmek için şu var
Is Null Or ((Like "*?@?*.?*") And (Not Like "*[ ,;]*"))
 
metin5.value yi buna göre kontrol etmek için bunun neresine ekleyeceğiz


Cvp: String Email Adresi Mi Kontrol Etmek - ozanakkaya - 12/03/2020

if instrrev(metin5.value, "@") > 0 Then

' mail adresi

end if



Cvp: String Email Adresi Mi Kontrol Etmek - accessman - 12/03/2020

(12/03/2020, 11:13)ozanakkaya yazdı:
if instrrev(metin5.value, "@") > 0 Then

' mail adresi

end if
o zaman @accessman kelimesini mail adresi olarak görmez mi


Cvp: String Email Adresi Mi Kontrol Etmek - ozanakkaya - 12/03/2020

Konu başlığındaki sorunuzun cevabı: Eklediğiniz kod sorgu ölçütü, bu ölçütün içerisine metin5 ekleyemezsiniz. 

Sizin eklediğiniz ölçüte göre de "[email protected]örmezmi" kelimesini mail adresi olarak görür. Ki mail adresinde ö harfi olmaz.
String mail adresimi kontrol ettiremezsiniz. Sadece içerisindeki karakterlere göre şablona uyup uymadığını kontrol edebilirsiniz.

Veya mail adresi doğruluğunu kontrol eden web sitelerine veri gönderilip sonucu hakkında bilgi alınabilir.
Ekli uygulama girilen veriye göre kontrolü sağlar. Mail adresine mail gönderilebilirliğini kontrol etmez.


Cvp: String Email Adresi Mi Kontrol Etmek - berduş - 12/03/2020

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"
yada Not (Me.Metin0 Like "*[ ,;]*") yerine Me.Metin0 Like "*[! ,;]*"


Cvp: String Email Adresi Mi Kontrol Etmek - accessman - 12/03/2020

(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"
 çok teşekkürler