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
if instrrev(metin5.value, "@") > 0 Then
' mail adresi
end if
(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
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 "ozaman@accessmankelimesinimailadresi.gö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.
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 "*[
! ,;]*"