Is Null Or ((Like "*?@?*.?*") And (Not Like "*[ ,;]*"))
metin5.value yi buna göre kontrol etmek için bunun neresine ekleyeceğiz
Is Null Or ((Like "*?@?*.?*") And (Not Like "*[ ,;]*"))
if instrrev(metin5.value, "@") > 0 Then
' mail adresi
end if
(12/03/2020, 11:13)ozanakkaya yazdı:o zaman @accessman kelimesini mail adresi olarak görmez miif instrrev(metin5.value, "@") > 0 Then
' mail adresi
end if
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 "*[! ,;]*"
(12/03/2020, 15:28)berduş yazdı: aşağıdaki kodu deneyebilirsinizçok teşekkürler
If Not IsNull(Me.Metin0) And (Me.Metin0 Like "*?@?*.?*" And Not (Me.Metin0 Like "*[ ,;]*")) Then MsgBox " mail adresi" Else MsgBox "mail adresi değil"